德爾福添加相同的項目與for循環

嘿人就是這樣在delphi中加載這個程序的用戶名列表我想將它們全部添加到備忘錄而不使用selectall我想使用for循環來了解它是如何工作的你可以看到，我試圖通過失敗它同時選擇，但只增加了最後一個是怪異的xD任何幫助將是巨大的謝謝你們德爾福添加相同的項目與for循環

The Error Image

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.

來源

2014-10-11 Shrekt

你有一個錯字「Memo1.Lines.Add（ListBox1.Items.Strings [1]」？不應該'1'是一個'我'？ – MartynA 2014-10-11 17:53:42

XX我覺得很愚蠢的錯誤xD ty告訴 – Shrekt 2014-10-11 17:57:33

這就是爲什麼有些人主張反對使用單字符變量名，特別是'I'，因爲它看起來太像'1'。'Index'會例如： – 2014-10-11 20:20:17

好吧，你跟指數1每次添加的項目時間。你大概的意思是：

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

這增加了相反的順序。如果你想在同一順序的項目，它只是︰

Memo1.Lines.Assign(ListBox1.Items);

來源

2014-10-11 17:53:18

要使這個問題成爲答案ty bro需要等待7分鐘 – Shrekt 2014-10-11 17:58:02

德爾福添加相同的項目與for循環

回答

相關問題