Question

我需要你的帮助。我有两个Listbox

在Listbox1中我有（Language.id（：integer）（1,2,3 ......等）

在Listbox2中我有（Language.name（：string）（英格兰，德国等）

我想将它们全部添加到xml中。每个人列表框项目索引新我的语言。就像下面一样，只有一行我不能写。

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
   lNewLanguage := XMLIntf.Languages.add;
   lNewLanguage.id   := listbox1.Items[Listbox1.ItemIndex];
   lNewLanguage.name := listbox2.Items[Listbox1.ItemIndex];
  i:= 0;
  while (i < ListBox1.Count) and(i < ListBox2.Count) do
  begin

     ListBox1.Items[i] + Listbox2.Items[i];   //This line

    Inc(i);
  end;
end;

Answer 1

看起来你正在尝试写

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i:= 0;
  while (i < ListBox1.Count) and(i < ListBox2.Count) do
  begin
    lNewLanguage := XMLIntf.Languages.add;
    lNewLanguage.id   := listbox1.Items[i];
    lNewLanguage.name := listbox2.Items[i];
    Inc(i);
  end;
end;

但说实话，这不是太明智。如果按两次按钮，您将获得两次输入...

列表框添加xml

1 个答案: