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

Hi,

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

markieren

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;

Du musst die Position des Streams wieder auf 0 setzen

greetz
Mike

Zitat von Benedikt1983:

markieren

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:

markieren

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;

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