RichEdit und Speichern der Texte in TList

[Tom]

Zitat von runningsoft:

BauStein^.Item := RichEdit1.Lines; Das Phänomen ist nun, dass mir immer exakt der Text in der Kontrollanzeige angezeigt wird, der im RichEdit zu sehen ist und nicht etwa der ehemals gespeicherte Text. ...

Steht doch da: Baustein.Item = RichEdit.Lines. Du weißt BauStein^.Item (das ist ein Zeiger auf TStrings) RichEdit1.Lines zu (auch ein Zeiger auf TStrings. In Wahrheit möchtest Du aber den Inhalt vom RichEdit kopieren!

Also in etwa so:

Delphi-Quellcode:

Stream : TMemoryStream; 
Lines : TStringList; // Zum externen Speichern des Textes 

// Text in Richedit einsetzen 

Lines.SaveToStream( Stream); 
Stream.Position := 0; 
RichEd.Lines.LoadFromStream(Stream); 


// Text aus Richedit auslesen 

RichEd.Lines.SaveToStream( Stream ); 
Stream.Position := 0; 
Lines.LoadFromStream( Stream );

Damit wird auch die Formatierung des RichEdit mit gespeichert!

Tipp am Rande: Ändere Dein Record BauStein in eine eigene Klasse.