把一个listbox多选的内容导入到另一个listbox中的问题(30分)

liuyang · 2006-09-05

条目是连续的导入没问题，要是选择的不是连续的就不对了（选择的是前几个（选择三个就是前三条）），谁能帮我改一改呢？代码如下 procedure Tf_main.sB_swyy2Click(Sender: TObject); var Iitemno,Ino,i: Integer; ifsame:boolean; begin  Iitemno:=0;  with sLB_swyyqb do  for Ino:=0 to Items.Count-1 do  begin    if Selected[Ino] then    begin      Iitemno:=Ino;      Break;    end;  end;  ifsame:=false;  with sLB_swyyqb do  begin    for Ino:=Iitemno to Iitemno+(sLB_swyyqb.SelCount-1) do    begin      for i:=0 to sLB_swyyxz.Items.Count-1 do      begin        if Items[Ino]= sLB_swyyxz.Items then        begin          ifsame:=true;          break;        end;        ifsame:=false;      end;      if ifsame=false then sLB_swyyxz.Items.Add(Items[Ino]);    end;  end; end;

zywcd · 2006-09-05

这样就好，不需要你那么复杂 var  i:Integer; begin  for i:=0 to sLB_swyyqb.Items.Count-1 do  begin    if sLB_swyyqb.Selected then    begin      sLB_swyyxz.Items.Add(sLB_swyyqb.Items.Strings);    end;  end; end;

冰力不足 · 2006-09-05

ListBox1.Items.CommaText

李翔鹏 · 2006-09-05

这样就好，不需要你那么复杂 var  i:Integer; begin  for i:=0 to sLB_swyyqb.Items.Count-1 do  begin    if sLB_swyyqb.Selected then    begin      sLB_swyyxz.Items.Add(sLB_swyyqb.Items.Strings);    end;  end; end;

liuyang · 2006-09-05

多人接受答案了。

把一个listbox多选的内容导入到另一个listbox中的问题(30分)

liuyang

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

李翔鹏

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

Similar threads