Sobald sich die Zeile in der Zieldatei nur im ein Byte in der Länge unterscheidet, lässt sie sich nicht mehr speichern, ohne alle nachfolgenden Zeilen zu verschieben.
Inc(i); ReadLn(FileOld, S); WriteLn(FileNew, IfThen(i = x, NewLine, S));
oder halt die Varianten mit der TStringList.
50MB: Bedenke, dass ab Delphi 2009 man alleine für das Laden und Speichern als TStringList über das Fünffache an virtuellem Speicher braucht und nach dem Laden immernoch das Zweifache)
Datei in
RAM laden (1x) > TEncoding drüber (
ANSI ->
Unicode = +2x) und dann die ganzen einzelnen Zeilen (+2x)
Die ersten Beiden als je ein zusammenhängender Block im Speicher.
Bis D2006 über das doppelte und danach etwa Einfache.
Und wenn danach das Grid nicht virtuell arbeitet, nochmal eine Kopie der ganzen Strings.