TRichEdit und Delphi2009

[squetk]

Ich kenne das Problem und hatte Erfolg mit diesem WorkAround zum Laden in das Control:

Delphi-Quellcode:

    s := TStringStream.Create(FieldByName('RTFTextfeld').AsString);
    try
      RichEdit1.Lines.LoadFromStream(s);
    finally
      FreeAndNil(s);
    end;

Möglicherweise reicht das schon. Wenn nicht - das Holen vom Control geht dann so:

Delphi-Quellcode:

function GetRTFText : WideString;
var RichStream: TStringStream;
    S: String;
begin
  RichStream := TStringStream.Create(S);
  try
    RichEdit1.Lines.SaveToStream(RichStream);
    Result := RichStream.DataString;
  finally
    RichStream.Free;
  end;
end;