Dateinamen auslesen

[Mavarik]

Delphi-Quellcode:

var 
  f:tsearchrec; 
  filename:string; 
  list:tstringlist; 
  error : Integer;
begin 
  list:=tstringlist.create; 
  path:=filepath; 
  filename:='C:\Verzeichniss\*.tsx'; 
  error := findfirst(filename,faanyfile,f);
  try
    while error = 0 do
      begin
        list.add(f.name);
        error := findnext(f);
      end;
  finally
    findclose(f); 
  end;
end;

oder so geht es noch einfacher!

Frank