如我有两listbox1,listbox2,想将listbox1中的item选择性地添加到listbox2中,但不能重复添加,如何实现?
解决方案 »
- 用过TMS Component 的进来
- IDTCPServer的OnExecute事件中将接收的数据写入数据库中?但是它是多线程的,共同访问一个ADOQuery会有问题吗?
- 单击dbgrid中的某一行之后,如何根据规定的项目取得dbgrid中的数据。
- 关于用线程查询,请各位老大讲解????????????????
- 在dbgrid中,当编辑完一个字段后会触发什么事件?
- 继承于TWinControl的控件是如何画出并显示出来的啊?
- Rave 惆桶恀枙ㄛ跪弇肮俴珂輛堔翑珨狟
- 谁知道用ADOdataset组件如何实现多表联接更新?
- 请问如果我的分用完了怎么办?向谁要?
- 专升本的途径?
- delphi窗体最大化,或大小改变时,如何保持其中控件相对位置与大小比例??
- 请问在应用和前途上是DELPHI好?还是VC好呢?
count,i:integer;
begin
count:=listbox1.items.count;
for i:=0 to count-1 do
begin
if IsNotInListBox2(listbox1.item[i].string) then
listbox2.items.add(listbox1.item[i].string);
end;
end;function IsNotInListBox2(str:string):boolean;
var count,i:integer;
begin
count=listbox2.items.count;
for i:=0 to count-1 do
if (listbox2.item[i].string=str) then
return 0;
return 1;
end;