FireMonkey开发: Android和IOS下的剪贴板实现

Android和IOS下的剪贴板

var   
   lClipboardService: IFMXClipboardService; 
   s: string;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,  IInterface(lClipboardService)) then
  begin
    lClipboardService.SetClipboard(s);
  end;

end;