Memo.Lines.SaveToStream geht nicht

[Sascha L]

Hi,

ich habe folgenden Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i:TMemoryStream;
begin
i := TMemoryStream.Create;
Memo1.Lines.SaveToStream(i);
Memo2.Lines.LoadFromStream(i);
i.Free;
end;

Warum ist der Stream immer leer? Denn nach dem ich den Code ausführe, ist Memo2 leer.

[Luckie]

Weder Delphi noch das Betriebssystem sind Hellseher. Wo gibst du die Datei an, in die gespeichert werden soll?

[ol1uw]

Versuchs mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i:TMemoryStream;
begin
i := TMemoryStream.Create;
Memo1.Lines.SaveToStream(i);
i.Position:=0;
Memo2.Lines.LoadFromStream(i);
i.Free;
end;

Gruß Uwe

[maximov]

Zitat:

Zitat von Luckie

Weder Delphi noch das Betriebssystem sind Hellseher. Wo gibst du die Datei an, in die gespeichert werden soll?

Von einer datei war nie die rede :mrgreen:

@sacha: Du musst die position auf null setze, bevor du liest, da immer von der aktuellen position gelesen wird.

//edit: genau

[Sascha L]

AHHH!

Danke, hab ich total vergessen :D

Manchmal ist man.... also wirklich :D