dateien nacheinander einlesen

[thkerkmann]

Hi,

nee so geht das auch nicht.....

Delphi-Quellcode:

var
  error: integer;
  sr: tSearchrec;
  pfad: string;
  dateiname: string;
begin
  pfad := 'c:\meindateipfad\';
  error := FindFirst(pfad + '*.txt', faAnyfile, sr);
  while error = 0 do
  begin
    dateiname := pfad + sr.name;

    // tu was mit der datei

    error := FindNext(sr);
  end;
  FindClose(sr);
end;