Dateinamen

[t0mmy]

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;