问：用什么函数方法之类的可以将String变量的值复制到剪贴板上？

Question

问：用什么函数方法之类的可以将String变量的值复制到剪贴板上？
变量是sql语句，因为不是一次就写好，我想拷到sqlserver 上运行，看错在哪里。

Answer 1

uses
  Clipbrd;    <----引用单元...var
  Buffer: PChar;
begin
  ClipBoard.SetTextBuf(PChar(Memo1.Lines.Text));    <----复制到剪贴板上  GetMem(Buffer, 1024);
  ClipBoard.GetTextBuf(Buffer, 1024);    <----从剪贴板上取出内容
  ShowMessage(Buffer);
  FreeMem(Buffer);
end;

Answer 2

ＳＱＬ语句你可以用tquery.sql.text来取得ＳＱＬ的值！
首先运行程序，在生成ＳＱＬ的最后的地方设置断点，按Ctrl+F7,然后输入tquery.sql.text，下面一个框就是你要的ＳＱＬ了！，然后ＣＯＰＹ