|
Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
Delphi 10 Seattle Enterprise
|
Re: Filemanager Fehler - Lösung gefunden?
1. Mär 2010, 22:30
Delphi-Quellcode:
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr AND faDirectory <> faDirectory) then
begin
dview:= Form2.DirFileView.Items.Add;
dview.ImageIndex:= 1;
dview.Caption:= SR.Name;
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
Kaum macht man's richtig - schon funktioniert's 
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
|