クリップボードから文字列を取得する

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

[XE3]

// uses FMX.Platform を定義
// クリップボードから文字列の取得
function EggGetClipboardAsString():String;
var
  ClipboardService: IFMXClipboardService;
begin
  ClipboardService := IFMXClipboardService(TPlatformServices.Current.GetPlatformService(IFMXClipboardService));
  Result := ClipboardService.GetClipboard.AsString;
end;