Text Datei teilen

[Jürgen Thomas]

Wenn Du die Daten jeweils nach einem Zeilenende trennen willst, genügt TStream wohl nicht. (Bei einem Stream sparst Du Dir das Einlesen der gesamten Quelldatei). Dann nimm aber statt TMemo lieber TStringList; da entfällt die visuelle Verbindung (die kostet vor allem bei großen Dateien Speicher und Zeit). Mein Konzept:

Code:

var Quelle, Ziel: TStringList;
Summe := 0;
Start := 0;
for (alle Zeilen der Quelle)
  addiere die Länge der aktuellen Zeile zur Summe
  kopiere die aktuelle Zeile nach Ziel
  wenn Summe >= 1 MB
    Ziel.SaveToFile
    Ziel.Clear
    Summe := 0
  end
finally
  Ziel.Clear

Kannst Du damit etwas anfangen? Jürgen