Speichermäßig ist das doch am einfachsten mit zeilenweiser String-Bearbeitung, oder?
Delphi-Quellcode:
procedure Die_Schleife_Stirbt_Nicht(Von,Nach: string);
var
T1, T2: TextFile;
Zeile: string;
begin
AssignFile(T1,Von); // bzw. Assign(T1,Von); in D6
Reset(t1);
AssignFile(T2,Nach);
Rewrite(T2);
while not EOF(T1) do begin
ReadLn(T1,Zeile);
// Zeileninhalt bearbeiten
WriteLn(T2,Zeile);
end;
CloseFile(T1); // bzw. Close(T1) in D6
CloseFile(T2);
end;
gebnau das ist ja der ausgangspunkt, so ist am ende der arbeitsspeicher mit der einzulesesnden datei gefüllt.