delphi - XE7 将文本复制到剪贴板

Question

http://www.swissdelphicenter.com/torry/showcode.php?id=640有一个将列表项复制到剪贴板的示例。该代码适用于 WIN-XP 和 Delphi 7。它不适用于 XE7。我猜 16 位字符或字符串类型会导致问题，因为列表中的数据来自使用 8 位字符的 USB 外围设备。但代码看起来是正确的。

Answer 1

为了将ListBox的内容复制到剪贴板，可以使用下面的代码:

uses
  Vcl.Clipbrd;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Clipboard.AsText := ListBox1.Items.Text;
end;