Problem mit Stream

memox · Hält's aus hier Beiträge: 2

Hallo,

Folgender Code sollte doch eigentlich den Inhalt aus memo1 in memo2 kopieren. Aber es funktioniert nciht. Wo liegt mein Denkfehler?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var tss : TMemoryStream;
begin
  tss := TMemoryStream.Create;
  memo1.Lines.SaveToStream(tss);
  memo2.Lines.LoadFromStream(tss);
  tss.Free;
end;

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Gausi · Verfasst: Di 31.03.09 17:33

Hallo und

in der Entwickler-Ecke,

Setz mal zwischen speichern und laden die Position im Stream wieder auf Anfang, also

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var tss : TMemoryStream;
begin
  tss := TMemoryStream.Create;
  memo1.Lines.SaveToStream(tss);
  tss.Position := 0;
  memo2.Lines.LoadFromStream(tss);
  tss.Free;
end;

Dann gehts.

Edit: Einfacher gehts natürlich so ;-)

.

markieren

Delphi-Quelltext

1:	Memo2.Lines.Assign(Memo1.Lines);

_________________
We are, we were and will not be.

memox · Hält's aus hier Beiträge: 2

Super! Vielen Dank!
An die Position des Zeigers habe ich gar nicht gedacht.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme