复制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.csdn.net/alsamsung/archive/2011/03/02/6218096.aspx