Hallo,
ich hab wochenlang nach einer Möglichkeit gesucht wie ich formatierten Text von einem Richtext in ein anderes bekomme.
Hintergrund: ich programmiere ein Onlinegame mit Delphi in dem die Spieler über eine Art Shoutbox/Chat miteinander kommunizieren können. Da mir eine festegelegte Schriftart auf Dauer zu wenig war dachte ich mir, da ich ja JvRichEdits verwende und in denen der Textformatiert werden kann, muss ich diesen formatierten Text auch irgendwie samt Formatierung auslesen und übertragen können.
Letzen Endes habe ich von
Sko der dafür in seinem
MiniChat ebenfalls JvRichEdits verwendet folgenden Code bekommen:
Delphi-Quellcode:
function GetRTFText(NRichEdit: TJvRichedit): string;
var
ss: TStringStream;
leer: string;
begin
leer := '';
ss := TStringStream.Create(leer);
try
NRichEdit.Lines.SaveToStream(ss);
Result := ss.DataString;
finally
ss.Free
end;
end;
//Empfangsprozdedur
begin
...
JvRichEdit2.Lines.Add(EmpfNachricht); //EmpfNachricht ist der empfangene String
...
end;
Ich habe das jetzt eingebaut und es funktioniert perfekt.
An dieser Stelle einen herzlichen Dank an Sko
MfG
