@Ykcim
Im Prinzip bist Du auf dem richtigen Weg. Wenn Du Dein Post #1 und den Tip aus #2 zusammenbringst, sollte es funktionieren (ungetestet!):
Delphi-Quellcode:
function RichText(re: TRichEdit): AnsiString;
var ss: TMemoryStream;
begin
ss := TMemoryStream.Create;
try
re.Lines.SaveToStream(ss);
SetLength(Result, ss.Size);
move(ss.Memory^, Pointer(Result)^, ss.Size);
finally
ss.Free;
end;
end;
Der String muss dann Escaped, und an die Datenbank übergeben werden.
Delphi-Quellcode:
var
query: AnsiString;
begin
query := '
insert into plants set Name=' + QuoteString(RichText(MyRichEdit));
mysql_real_query(LibHandle, PAnsiChar(
query), Length(
query))
end;
Zum Auslesen aus der Datenbank musst Du den umgekehrten Weg gehen. Also den Inhalt des Feldes Name in einen MemoryStream kopieren und diesen Stream dann in die RichEdit-Kompnente einlesen.