title image


Smiley Re: Dann compiliert er es.... aber:
Hast du auch das "*"-Zeichen bedacht?



So funktioniert bei mir ohne Probleme:



Procedure ListDirs(const FilePath: String; const ListBox:TStrings);

var

SR: TSearchRec;

begin

ListBox.Clear;

if FindFirst(FilePath,faAnyFile,SR)=0 then

begin

if (SR.Attr and faDirectory)=SR.Attr then ListBox.Add(SR.FindData.cFileName);

while FindNext(SR)=0 do

begin

if (SR.Attr and faDirectory)=SR.Attr then ListBox.Add(SR.FindData.cFileName);

end;

end;

if ListBox.IndexOf('.')-1 then ListBox.Delete(ListBox.IndexOf('.'));

if ListBox.IndexOf('..')-1 then ListBox.Delete(ListBox.IndexOf('..'));

FindClose(SR); //FindClose(SR);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ListDirs('c:\windows\*', ListBox1.Items);

end;

Gruß Thomas


Was ist der Unterschied zwischen Bill Gates und Gott?

  -->Gott hält sich nicht für Bill Gates!




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: