Memo in Zwischenablage kopieren?

[Jelly]

Zitat von Matze:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
end;

oder, um nicht alles markieren zu müssen, und nachher gegebenfalls wieder den alten Zustand herzustellen:

Delphi-Quellcode:

uses
 ClipBrd ;

procedure Memokopieren ;
var
  clp : TClipboard ;
begin
  clp := TClipBoard.create ;
  clp.AsStext := memo1.lines.text :
  clp.free ;
end ;