Formatierten Text in PostgreSQL 9 speichern

[FBrust]

Hallo,

ich habe jetzt innerhalb des Programms eine Testmethode zum Experimentieren erstellt, dabei wird der Inhalt eines JvRichEdits in einen Stream und von da aus in eine String-Variable geschrieben.

Anschließend wird mit der String-Variable ein Stream gefüllt und dieser wiederum in ein zweites JVRichedit geladen.

Dabei wird aus

Zitat:

Pimpernelle Zwiebelhaut (Hans Adolf Halbey)

Kennt ihr schon die Hexenbraut
Pimpernelle Zwiebelhaut?

ein Text, der zwar mit den RTF-Formatierungen beginnt, aber am Schluss mit "Zwiebelhau" endet. Außerdem folgt nach jedem Zeichen ein Leerzeichen. Ich hab ein Bild angefügt, da sich der Text nicht in die Zwischenablage einfügen lässt.

Hier die Testmethode:

Delphi-Quellcode:

procedure TfrmMain.btn5Click(Sender: TObject);
var
  FStream: TStringStream;
  strtest: widestring;
  teststring: string;
begin
  // Zuerst in Stream umwandeln:
  try
    FStream := TStringStream.Create(teststring);
    FStream.Clear;
    edt1.Lines.SaveToStream(FStream);
    FStream.Position := 0;
    strtest := FStream.DataString;
  finally
    FStream.Free;
  end;

  // und wieder zurück:
  edt2.lines.clear;
  try
    FStream := TStringStream.Create(teststring);
    FStream.Clear;
    FStream.WriteBuffer(strtest[1], Length(strtest));
    FStream.Position := 0;
    edt2.Lines.LoadFromStream(FStream);
  finally
    FStream.Free;
  end;
end;

Sehr seltsam das ganze...irgendwo ist der Wurm drin..

Gruß
Frank