Änderungen an Textdatei speichern

[Sugar]

Zitat von zeras:

Zitat von Sugar:

Zitat von zeras:

Geht das vielleicht mit einer Stringlist?

Daran habe ich auch schon gedacht und probiere damit gerade rum. Aber scheinbar kann man so ohne Weiteres nicht einfach nur eine Zeile ersetzen.

Warum sollte das nicht gehen

SL[i] := string;

Oh mann... manchmal hat man sich echt so in einen falschen Weg verbissen, das man das Naheligenste nicht sieht. Ich probier das gleich mal aus...

[himitsu]

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.