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