wxy

hallo,

mit formatierung speichern:

wie oben..

anstatt:

Query1.FieldByName('RichText').asString:= GetRtFText(RichEdit1);

mit der Function GetRtFText:

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;

Greeze