Dateinamen auslesen

[Klaus01]

Delphi-Quellcode:

var 
  f:tsearchrec; 
  filename:string; 
  list:tstringlist; 
begin 
  list:=tstringlist.create; 
  path:=filepath; 
  filename:='C:\Verzeichniss\*.*'  //hier auch *.tsx o.ä. möglich 
  if findfirst(filename,0,f) = 0 then 
    begin
      repeat
        list.add(f.name);
      until findnext(f) <> 0;
    end;
  findclose(f); 
end;

oder so, dann kann man sich das exit sparen
und macht es meiner Meinung nach etwas lesbarer ;o)

Grüße
Klaus