erstmal danke für die Tipps.
Ich hatte gehofft dass es mit TStream gehen könnte. Aber da wird auch nur bis "2127" gelesen.
Delphi-Quellcode:
var
fs: TStream;
begin
fs := TFileStream.Create(lbCsvDateien.Items[i], fmOpenRead);
try
try
sl_EinzelDatei.LoadFromStream(fs);
except
on E: EReadError do
ShowMessage(E.Message);
end;
finally
FreeAndNil(fs);
end;
end;
Dann hatte ich es mit ReadLn probiert.
Damit werden zwar alle Zeichen gelesen, aber die Datei hat nicht mehr denselben Satz-Aufbau. Einige, wenige Zeilen haben einen anderen Inhalt wie die Ursprungsdatei.
Delphi-Quellcode:
sl_Gesamt_alle_Dateien := TStringList.Create;
try
for i := 0 to ListBox_mit_allen_Dateien.Items.Count - 1 do
begin
sl_EinzelDatei := TStringList.Create;
try
try
AssignFile(F, ListBox_mit_allen_Dateien.Items[i]);
Reset(F);
while not eof(F) do
begin
s := '';
Readln(F, s);
sl_EinzelDatei.Add(s);
end;
Except
on E: EReadError do
ShowMessage(E.Message);
end;
finally
CloseFile(F);
end;
sl_Gesamt_alle_Dateien.AddStrings(sl_EinzelDatei);
sl_EinzelDatei.Free;
end;
sl_Gesamt_alle_Dateien.SaveToFile(txtAusgabePfad.Text, TEncoding.Default);
finally
sl_Gesamt_alle_Dateien.Free;
end;
....
Mir gehen hier leider die Ideen aus.
Für weitere Hilfe wäre ich sehr dankbar.