Delphi使用for循环添加相同的项目

Question

嘿家伙所以我正在delphi中创建这个程序加载一个用户名列表我想将它们全部添加到备忘录而不使用selectall我想使用for循环来了解它是如何工作的，因为你可以看到我尝试失败它选择了两者，但只添加了最后一个奇怪的xD任何帮助都会很棒谢谢你们

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Clear;
 Listbox1.Items.LoadFromFile('names.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 I: Integer;
begin

for I:=Listbox1.Items.Count-1 downto 0 do
begin
 ListBox1.ItemIndex:=I;

 Memo1.Lines.Add(ListBox1.Items.Strings[1]);
 end
 end;
 end; 
 end.

Answer 1

好吧，每次都添加索引为1的项目。你可能意味着：

for I:=Listbox1.Items.Count-1 downto 0 do
  Memo1.Lines.Add(ListBox1.Items[I]);

这会以相反的顺序添加。如果您希望项目的顺序相同，则只需：

Memo1.Lines.Assign(ListBox1.Items);