Dateinamen auslesen

[ichbins]

Wenn du alle Files im Verzeichniss listen willst, solltest du mit tsearchrec arbeiten:

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
    exit;
  list.add(f.name);
  while findnext(f)=0 do 
     list.add(f.name);
  findclose(f);
end;