Richedit Quellcode lesen

[Chefx]

Hallo DBs,

Ich hab ne frage nämlich wie kann ich den Quelltext von einer Richedit lesen?
Also RTF-Dateien bestehen ja aus diesen Quellcode:

Code:

{\rtf
{\fonttbl{\f0\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;}

\f0
\cf1\i\{text1\}\i0\cf0  und \cf1\{text2\}\cf0\par
\f1

}

wenn man das in einer Richedit anzeigen lässt zieht das so aus:

Zitat:

{text1} und {text2}

Würde man das mit :
text:=richedit.text; in die Variable(text) einfügt und dann das in Memo anzeigen läst ist zwar der
Text in dem Memo aber nicht der Code!
Wie kann ich das aus dem Richedit diesen Quellcode lesen?

danke für antworten

[turboPASCAL]

zB so:

Delphi-Quellcode:

procedure ...
var
  ms: TMemoryStream;
begin
  richedit1.SelAttributes.Style := [fsbold];
  richedit1.Lines.Add('Bla');

  ms := TMemoryStream.Create;
  try
    richedit1.Lines.SaveToStream(ms);
    ms.Position :=0;
    memo1.Lines.LoadFromStream(ms);
  finally
    ms.Free;
  end;
end;

[Chefx]

danke funktioniert super!


Geht diese Funktion vielleicht noch schneller zumachen(denke ich zwar nicht)?
Ist bloß noch ne frage

[Chefx]

Kann man das auch mit einer Variable machen?

[Ralf Kaiser]

Zitat von Chefx:

Kann man das auch mit einer Variable machen?

Ja. Anstatt Memo.Lines kannst du auch einfach eine TStringList nehmen.

[Chefx]

warum kann ich nicht auf Text in der Tstringlist zugreifen?

Delphi-Quellcode:

procedure ...;
var
  ms: TMemoryStream;
  strl:tstringlist;
begin
  strl.Text:='hallo';
  ms := TMemoryStream.Create;
  try
    strl.SaveToStream(ms);
    ms.Position :=0;
    richedit1.Lines.LoadFromStream(ms);
  finally
    ms.Free;
  end;
end;

[Ralf Kaiser]

Da fehlt dann wohl ein:

str1 := TStringList.Create; Du musst Objekte immer erzeugen bevor du mit ihnen arbeitest!

Ach ja, und hinterher das hier nicht vergessen:

str1.Free;

[Chefx]

Alfi001 und
turboPASCAL
danke für eure antworten