Lista filer
2 svar · 306 visningar · startad av psykolog
Du kan göra nått sånt här kanske:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
dir := 'C:\\WINNT\' + '*.*';
FindFirst(dir, faAnyFile, srec);
repeat
ListBox1.Items.Add(srec.Name);
until FindNext(srec) <> 0;
FindClose(srec);
där dir är av typen string och srec ett TSearchRec. Varför man ska ha in namnen i en ListBox vet jag inte, men jag tog bara en "lämplig" komponent. Fungerar i delphi6 (clx).
[r] stavfel + webForum-kod
[Redigerat av MinOrk den 21 jan 2002]