クリップボードに文字列を設定する

クリップボードに文字列を設定する例
忘れそうなので、便利関数を作成して置きました。

[XE3]

// uses FMX.Platform を定義
// クリップボードに文字列の設定
procedure EggSetClipboardAsString(text:String);
var
  ClipboardService: IFMXClipboardService;
begin
  ClipboardService := IFMXClipboardService(TPlatformServices.Current.GetPlatformService(IFMXClipboardService));
  ClipboardService.SetClipboard(text);
end;