TStrings.SaveToStream, LoadFromStream

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