使用剪切板[1]: AsText、SetTextBuf、GetTextBuf

剪切板类 TClipboard 定义在 Clipbrd 单元, 使用前先要 uses Clipbrd;

---

uses Clipbrd;



procedure TForm1.Button1Click(Sender: TObject);

var

  clip: TClipboard;

begin

  clip := TClipboard.Create; {建立}

  clip.AsText := Self.Text;  {把窗体标题放入剪切板}

  ShowMessage(clip.AsText);  {从剪切板读取, 返回结果是: Form1}

  {因为剪切板是全局的, 此时可以在其他地方粘贴一试}

  clip.Free;                 {释放}

end;


 
   

根据 Delphi 给我们提供的方便, 上面的例子可以简化为:

---

uses Clipbrd;



procedure TForm1.Button1Click(Sender: TObject);

begin

  Clipboard.AsText := Text;

  ShowMessage(Clipboard.AsText); {Form1}

end;


 
   

这个 Clipboard 是什么? 是不是和 Screen 一样的类型变量?
答案是否定的! Clipboard 只是个函数, 是一个无参函数, 是定义在 Clipbrd 单元的一个全局函数, 它返回一个 TClipboard 类型的变量, 当我看到这个函数的源码时, 真是感觉又学了一招, 非常精巧的思路.

---

除了用 TClipboard.AsText 属性, 我们还可以使用 SetTextBuf 把文本放入剪切板、使用 GetTextBuf 读出剪切板中的文本.

---

uses Clipbrd;



{使用 SetTextBuf}

procedure TForm1.Button1Click(Sender: TObject);

begin

  Clipboard.SetTextBuf(PChar(Text)); {按参数类型要求, 需要转换一下}

  ShowMessage(Clipboard.AsText);     {Form1}

end;



{使用 GetTextBuf 就和使用 API 差不多, 需要给个缓冲区}

procedure TForm1.Button2Click(Sender: TObject);

var

  arr: array[0..255] of Char;

begin

  Clipboard.AsText := Text;

  Clipboard.GetTextBuf(arr, Length(arr));

  ShowMessage(arr);                       {Form1}

end;



{如果不给缓冲区, 那你自己得申请并释放内存}

procedure TForm1.Button3Click(Sender: TObject);

var

  pc: PChar;

begin

  Clipboard.AsText := Text;

  GetMem(pc, 256);               {申请内存}

  Clipboard.GetTextBuf(pc, 256);

  ShowMessage(pc);               {Form1}

  FreeMem(pc);                   {释放内存}

end;