2440
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
_i_ 2003-04-17
Tlistbox.Items就是所有内容 TStrings
u2m 2003-04-17
for i := 0 to ListBox1.count -1 do
showmessage(ListBox1.Items[i]);
showmessage(ListBox1.Items[i]);
lty 2003-04-17
edit1.Text:=ListBox1.Items[i];
careerist 2003-04-17
for i := 0 to ListBox1.count -1 do
edit1.Text:=ListBox1.Items[i];
sunnyasp 2003-04-17
这样只能取到第一条的内容啊,是不是ListBox1.Itemindex可以递增啊?
jackie168 2003-04-17
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
edit1.Text:=ListBox1.Items[ListBox1.itemindex];
end;
begin
edit1.Text:=ListBox1.Items[ListBox1.itemindex];
end;