RTF in MySQL

[samso]

Weil die Variable Text ein Unicodestring ist? Text sollte ein Ansistring sein.

Probiere es mal so:

Delphi-Quellcode:

procedure RichTextLoad(re: TRichEdit; const Text: AnsiString);
var ss: TMemoryStream;
begin
   ss := TMemoryStream.Create;
   try
     ss.WriteBuffer(Pointer(Text)^, Length(Text));
     ss.Position := 0;
     re.Lines.LoadfromStream(ss);
   finally
     ss.Free;
   end;
end;