Hmm..
ich glaube es könnte am fehlenden
ARichEdit.PlainText := False;
liegen
http://www.swissdelphicenter.ch/de/showcode.php?id=843
Delphi-Quellcode:
function GetRTFText(ARichEdit: TRichedit): string;
var
ss: TStringStream;
emptystr: string;
begin
emptystr := '';
ss := TStringStream.Create(emptystr);
try
ARichEdit.PlainText := False;
ARichEdit.Lines.SaveToStream(ss);
Result := ss.DataString;
finally
ss.Free
end;
end;
@Sir Rufo
Meines Wissens liefert
Result := redt1.Lines.Text;
nur den reinen Text, ohne RTF-Formatierungen.