TStrings.SaveToStream, LoadFromStream

[Benedikt1983]

Hallo zusammen!

Ich will die Strings (am besten mit Formatierung!) eines RichEdit in einen Stream speichern, diesen in ein BLOB-Feld, aus diesem in einen Stream und von dort in ein TRichEdit einlesen.

Doch ein Test zeigt: Wenn ich von RichEdit.SaveToStream aufrufe und diesen Stream dann sofort wieder in ein anderes RichEdit einlese, dann ist sieht man gar nichts! Der Stream hat zwar eine bestimmte Größe aber lässt sich nicht in RichEdit darstellen...

Hat jemand eine Idee?

Liebe Grüße
Benne

[Die Muhkuh]

Hi,

kannst du mal deinen Code zeigen, mit dem du das gemacht hast?

[Benedikt1983]

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
  S: TMemoryStream;
begin
  S := TMemoryStream.Create;
  Edit1.Lines.SaveToStream(S);
  Edit2.Lines.LoadFromStream(S);
  S.Free;
end;

[JasonDX]

Du musst die Position des Streams wieder auf 0 setzen

greetz
Mike

[Die Muhkuh]

Zitat von Benedikt1983:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
  S: TMemoryStream;
begin
  S := TMemoryStream.Create;
  Edit1.Lines.SaveToStream(S);
  Edit2.Lines.LoadFromStream(S);
  S.Free;
end;

Zu gut Deutsch:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
  S: TMemoryStream;
begin
  S := TMemoryStream.Create;
  Edit1.Lines.SaveToStream(S);
  S.Position := 0; // << !!
  Edit2.Lines.LoadFromStream(S);
  S.Free;
end;

[Benedikt1983]

Hi, hi, so leicht habe ich mir das gar nicht vorgestellt...