Zitat von
aaaaaaaaaa_10:
In die Test.txt wird aber immer nur die neue Zeile geschrieben und zwar so oft, wie Zeilen in der 3SekDatei vorhanden sind.Die vorherigen verschwinden.
Genau das hast du doch auch geschrieben...
Zitat von
aaaaaaaaaa_10:
Delphi-Quellcode:
ZwSpeicher.DelimitedText := Sek.Strings[Sek.Count-1];
...
for z := 0 to Zeilenanzahl-1 do
begin;
for s := 0 to Spaltenanzahl-2 do
begin
StringArray[s,z] := ZwSpeicher.Strings[s+2];
Du legst die letzte Zeile in ZwSpeicher und liest danach Zeilenanzahl mal die selben Strings aus. Denn ZwSpeicher.Strings[s+2] ist ja immer das selbe, wenn die äußere Schleife (z) immer wieder durchläuft...