如何把Listbox中的TStrings复制到剪贴板中.(100分)

T

top777

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #1

如题

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #2

>>

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #3

clipboard.astext:=listbox.items.text;

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #4

单个string可以如 cAkk, 所有的内容还得加一个循环
procedure TForm1.Button1Click(Sender: TObject);
var clip: TClipBoard;
i: integer;
begin
Clip := TClipBoard.Create;
clip.AsText := '';
for i := 0 to Listbox1.items.count -1 do
clip.AsText := Clip.AsText + listbox1.items;
clip.free
end;
注意要uses Clipbrd

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #5

cAkk 是正确的。

 

吃

吃天大圣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-25

• #6

to crab:好象不用重新定义Clip吧？Clipboard为系统内定的全局变量，使用就行
了，不用重新定义！
不过要在使用时在uses 中加入一句：
clpbrd

 

T

top777

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-29

• #7

多人接受答案了。