Formatierungsangaben eines RichEdit speichern

[little_budda]

Hallo,

ich nutze ein Richedit zur Eingabe von formatierbarem Text.
Den Inhalt speichere ich über die Eigenschaft ".Lines" in einer Stringliste (TStrings).
Leider werden die Formatierungsinformationen nicht mit gesichert sondern nur der reine Plaintext.

Habe ich eine Möglichkeit die Formatierungsinfomationen (Fett, Farbe, etc.) zusammen mit dem Text zu speichern?

Ich wär dankbar für eine Idee.

[Progman]

als *.rtf speichern?
RichEdit1.Lines.SavetoFile('irgendwas.rtf');

[little_budda]

Ich kann den Inhalt des Richedit leider nicht in einer RTF-Datei speichern.
Der Text liegt zeilenweise in einer INI Datei.

[Progman]

hm, da wüsst ich jetzt keine Lösung. Mal abwarten, ob jemand anderes da was raten kann

[alzaimar]

Zitat von little_budda:

Der Text liegt zeilenweise in einer INI Datei.

'Zeilenweise' gibt es bei RTF nicht. Absatzweise ja, zeilenweise nicht.

Wenn Du den Inhalt in einem String speichern willst, dann verwendest Du die SaveToStream-Methode. Schau mal unter 'TStringStream' nach und kombiniere das mit der SaveToStream- bzw. LoadFromStream-Methode.

[marabu]

Hallo,

vielleicht hilft der Code aus diesem Thread weiter: klick

Grüße vom marabu

[little_budda]

Klappt gut, er speichert jetzt alle Formatierungsinfos mit.
Aber wie komme ich denn zurück ins RE?

Ich habs probiert mit folgendem Code

Delphi-Quellcode:

procedure SteamToRichText(re: TRichEdit; sDataStr: string);
var ss: TStringStream;
begin
  ss := TStringStream.Create ('');
  try
    ss.DataString := sDataStr;
    re.Lines.LoadFromStream(ss);
  finally
    ss.Free;
  end;
end;

Aber das klappt nicht weil die "DataString Eigenschaft eine Nur-Lese-Eigenschft ist.

[mr2]

wie wäre es denn mit

Delphi-Quellcode:

procedure SteamToRichText(re: TRichEdit; sDataStr: string);
var
  ss: TStringStream;
begin
  ss := TStringStream.Create(sDataStr);
  try
    re.Lines.LoadFromStream(ss);
  finally
    ss.Free;
  end;
end;

?

[little_budda]

Danke.
Klappt.