Hallo!
Und zwar ich durchsuche bestimmte ordner nach *.txt dateien. Dort sind aber auch einer dateien enthalten. Zu meiner Frage... Ich möcht nur die Dateinamen von den .txt dateien in eine listbox schreiben.. was muss ich da bei der folgenden prozedur ändern?:
Delphi-Quellcode:
procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.txt', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;