2,507
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
_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;
