unit Unit1;

 interface

 uses

   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,

   System.Rtti,//需要引入

   FMX.platform, FMX.ScrollBox, FMX.Memo, FMX.Edit, FMX.Controls.Presentation,

   FMX.StdCtrls;//需要引入

 type

   TForm1 = class(TForm)

     Button1: TButton;

     Button2: TButton;

     Edit1: TEdit;

     Memo1: TMemo;

     Button3: TButton;

     Button4: TButton;

     Memo2: TMemo;

     Button5: TButton;

     procedure FormCreate(Sender: TObject);

     procedure Button1Click(Sender: TObject);

     procedure Button2Click(Sender: TObject);

     procedure Button5Click(Sender: TObject);

     procedure Button3Click(Sender: TObject);

     procedure Button4Click(Sender: TObject);

   private

     { Private declarations }

   public

     { Public declarations }

     //定义剪切板全局变量化

     FClipboardService: IFMXClipboardService;

   end;

 var

   Form1: TForm1;

 implementation

 {$R *.fmx}

 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm1.Button1Click(Sender: TObject);

 begin

   //法一，用控件自带的方法实现拷贝

   Edit1.SelectAll;

   Edit1.CopyToClipboard;

 end;

 procedure TForm1.Button2Click(Sender: TObject);

 begin

   //法一，用控件自带的方法实现拷贝

   Memo1.SelectAll;

   Memo1.CopyToClipboard;

 end;

 procedure TForm1.Button3Click(Sender: TObject);

 begin

   //法二，用系统的剪切板来实现拷贝

   FClipboardService.SetClipboard(Tvalue(Edit1.Text));

 end;

 procedure TForm1.Button4Click(Sender: TObject);

 begin

   //法二，用系统的剪切板来实现拷贝

   FClipboardService.SetClipboard(Tvalue(Memo1.Text));

 end;

 procedure TForm1.Button5Click(Sender: TObject);

 begin

   //从系统剪切板得到数据实现粘贴

   Memo2.Text := FClipboardService.GetClipboard.ToString;

 end;

 procedure TForm1.FormCreate(Sender: TObject);

 begin

   //初始化剪切板

   TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(FClipboardService));

 end;

 end.