Formatierten Text in PostgreSQL 9 speichern

[Sir Rufo]

@Perlsau

Um das ganze ein wenig zu erhellen:

Delphi-Quellcode:

procedure StreamCopyStrings( Source, Destination: TStrings );
var
  lTempStream: TMemoryStream;
begin
  lTempStream := TMemoryStream.Create;
  try
    Source.SaveToStream( lTempStream );
    lTempStream.Position := 0;
    Destination.LoadFromStream( lTempStream );
  finally
    lTempStream.Free;
  end;
end;

procedure TForm1.Button1Click( Sender: TObject );
begin
  StreamCopyStrings( RichEdit1.Lines, Memo1.Lines );
  Label1.Caption := Memo1.Lines.Encoding.EncodingName;
end;

Sodele, und jetzt achauen wir uns einmal das Encoding an. Was fällt uns auf?

Und wenn wir das beim Einlesen in den StringStream nicht berücksichtigen, dann bekommen wir eben nur Grütze (wie man sehen kann).

Also entweder einfach in den (Binär)-Stream packen und wieder auslesen oder man weiß was man tut und kennt sich mit dem Encoding Geraffel aus