RichEdit und Speichern der Texte in TList

[runningsoft]

Hallo,

für einen Formulareditor speichere ich mehrere mit einem RichEdit erzeugte Texte in einer TList, die folgenden Record aufnimmt:

Delphi-Quellcode:

type
  TTextBauStein = record
    ID : integer;
    Item : TStrings;
   end;

Mit dieser Prozedur speichere ich die Daten in der TLIst:

Delphi-Quellcode:

procedure TForm11.ToolButton2Click(Sender: TObject);
type PMyList = ^TTextBaustein;
var Baustein : PMyList;
begin
New(Baustein);
BauStein^.ID := TextBausteinListe.Count + 1;
BauStein^.Item := RichEdit1.Lines;
TextBausteinListe.Add(Baustein);
end;

Mit dieser Prozedur rufe ich das erste Element der Liste auf und lasse mir zur Kontrolle den Text anzeigen. 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. Es steht also in meinem Baustein^.Item immer genau das drin, was auch im RichEdit steht.

Delphi-Quellcode:

//Aufrufen des ersten Elementes aus TLIst
procedure TForm11.ToolButton3Click(Sender: TObject);
type PMyList = ^TTextBaustein;
var Baustein : PMyList;
    I : integer;
    GespText : string;
begin
BauStein := TextBausteinListe.Items[0];
GespText := '';
//Anzeige des im Record enthaltenen Textes
for I := 0 to BauStein^.fText.Count - 1 do
   begin
   GespText := GespText + (Baustein^.fText[I]) + #10#13;
   end;
showmessage(GespText);
end;

Weiß jemand Rat, wo der Fehler liegt oder wie ich besser den formatierten Text aus dem RichEdit in einer typisierten Datei ablegen kann?

Danke

Steffen

[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.

[Tom]

Noch ein Tipp:

Zitat von runningsoft:

Delphi-Quellcode:

    GespText : string;
...
GespText := '';
for I := 0 to BauStein^.fText.Count - 1 do
   begin
   GespText := GespText + (Baustein^.fText[I]) + #10#13;
   end;
showmessage(GespText);

Macht das gleiche:

showmessage(BauStein^.fText.Text);