RTF Linespacing speichern und wiederherstellen

[toms]

Ich meinte du könntest den RTF Code vorher und nachher auslesen und dann vergleichen.

Delphi-Quellcode:

function GetRTFText(RichEdit: TRichedit): string;
var
  s: string;
  Stream: TStringStream;
begin
  s := '';
  Stream := TStringStream.Create(s);
  try
    RichEdit.PlainText := False;
    RichEdit.Lines.SaveToStream(Stream);
    Result := Stream.DataString;
  finally
    Stream.Free
  end;
end;