复制ListBox的结果

根据haochin的回复，我稍微改了一下，最后是这样：

use Clipbrd

procedure TForm1.Button2Click(Sender: TObject);
var
  I : Integer;

begin
  Clipboard.Clear;
  for I := 0 to ListBox1.Count - 1 do
  begin
    Clipboard.AsText := Clipboard.AsText +listbox1.Items[I]+#13#10;
  end;
  //Clipboard.SetTextBuf(PChar(listbox1.Items.Text));
end;

可作为详细参考的内容

使用剪切板[1]: AsText、SetTextBuf、GetTextBuf
http://blog.youkuaiyun.com/alsamsung/archive/2011/03/02/6218096.aspx

转载于:https://www.cnblogs.com/Bubalus/archive/2011/03/02/2013703.html