Hallo Zusammen,
vielen Dank für die guten Hilfen!!!
Ich habe jetzt mit dieser Zeile die Daten und die Formatierungen tatsächlich in den
MySQL Server bekommen.
query:='insert into plants (Name) values(' + QuoteString(LOMUnit.RichTextSave(RichEdit1))+')';
Jetzt habe ich es testen und eine RichEdit diesen Text mit der Formatierung zuweisen wollen.
Dabei habe ich das Feld aus der Datenbank ausgelesten, so das mir der Wert in einem String (Rows[0,0]) vorlag. Diesen wollte ich dann mit diesem Aufruf
RichTextLoad(RichEdit1,Rows[0,0]);
und dieser Funktion
Delphi-Quellcode:
function RichTextLoad(re: TRichEdit; Text: string): String;
var ss: TStringStream;
begin
ss := TStringStream.Create ('');
try
ss.WriteBuffer(Text[1],Length(Text));
ss.Position := 0;
re.Lines.LoadfromStream(ss);
Result := ss.DataString;
finally
ss.Free;
end;
end;
dem RichEdit1 wieder zuweisen.
Das klappt aber leider nicht, denn ich bekomme nur soetwas ausgegeben:
{\rtf1\
ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 Tahoma;}{\f1\fnil\fcharset2 Symbol;}}
\viewkind4\uc1\pard{\pnte
Der vollständige Feldinhalte sieht aber so aus:
{\rtf1\
ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 Tahoma;}{\f1\fnil\fcharset2 Symbol;}}
\viewkind4\uc1\pard{\pnte
xt\f1\'B7\tab}{\*\pn\pnlvlblt\pnf1\pnindent0{\pntx tb\'B7}}\fi-200\li200\ul\b\i\f0\fs16 Das ist ein zweiter Test\ulnone\b0\i0\par
}
Das rote fehlt komischer Weise und es ist natürlich auch nichts formatiert.
Ich habe mir diese Vorgehensweise aus Euren Hinweisen und stöbern überlegt...
Könnt Ihr mir helfen?
Vielen Dank
Ykcim
P.S.: Ich wünsche allen schöne Ostern