Text-Dateien hintereinander auslesen

[Klaus01]

Vielleicht auch so:

Delphi-Quellcode:

var
  dataFile: TextFile;
  line : String;
  i: Byte;
  LineCount: Int64;

begin
  LineCount := 0;
  for i:=0 to FileNames.count -1 do
    begin
      assignFile(dataFile,FileNames[i]);
      reset(dataFile);
         while not eof(dataFile) do
           begin
             readln(dataFile,line);
             inc(LineCount);
           end;
      CloseFile(dataFile);
    end;  
  end;
  ShowMessage('Zeilenzahl: 'Int64ToStr(LineCount));
end;

- benötigt kaum Speicher

Grüße
Klaus