TStrings.SaveToStream, LoadFromStream

[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;