Memo-Inhalt wird nicht richtig gespeichert

[hasserwahn]

also ich habe folgenden code:

Delphi-Quellcode:

procedure form1.button1click(Sender: TObject)
begin
 memo3.lines.loadfromfile('c:\test.txt');
 memo2.text:='hallo';
 memo1.text:='tschüss';
 memo3.lines[7]:=memo2.lines[0];
 memo3.lines[6]:=memo1.lines[0];
 memo3.lines.savetofile('c:\test.txt');
end;

in der textdatei stand vorher nichts

so wenn ich denn hinterher in die textdatei gucke steht aber in der 7. bzw. 6. zeile einfach nichts.

warum steht da nichts und wie kann ich das ändern?

[Bernhard Geyer]

Komisch das keine Exception kommt. Mach es lieber so:

Delphi-Quellcode:

memo3.lines.Add(memo2.lines[0]);
memo3.lines.Add(memo1.lines[0]);

[inherited]

Das Problem ist, dass, weil die Datei leer ist, weder die 6. noch die 7. Zeile existiert.

[IngoD7]

Zitat von Bernhard Geyer:

Komisch das keine Exception kommt.

Ja, Memos und Konsorten sind manchmal seltsam (zumindest noch in D7).

Die Write-Methode von TMemo.Lines.Strings[] ist TMemoStrings.Put.
Diese Methode arbeitet etwas seltsam:
Ein Beschreiben/Ändern der vorhandenen Zeilen lässt sie zu. So weit, so richtig. Aber auch das Beschreiben der nächsten, noch gar nicht vorhandenen Zeile erledigt sie.
In einem Memo mit nur einer vorhandenen Zeile in Lines[0] kann man die nächste mit Memo.Lines[1]:=... einbringen (soll man natürlich nicht --> Add benutzen!).
Eine weitere Zeile mit Memo.Lines[2]:=... einbringen, geht dann schon nicht mehr. Es wird aber nicht gemeckert.

In den Fällen, in denen die Put-Methode vorzieht, lieber nichts zu machen, tut sie auch genau das: Gar nichts.
Bezogen auf den Code des Fragestellers bedeutet das: Einen Index 6 oder 7, der kilometerweit vom einzig möglichen nutzbaren Index 0 entfernt liegt, übersieht sie gnädig und wirft nicht mal einen Indexfehler.

[hasserwahn]

also ich hab's mit diesem hier probiert:

Delphi-Quellcode:

memo3.lines.Add(memo2.lines[0]); 
memo3.lines.Add(memo1.lines[0]);

und es funktioniert


vielen dank an alle
mfg

hasserwahn