اشکال در کار با checklistBox

[hamidreza]

در هنگام اجرای برنامه با پیام list index out of bounds(-1) روبرو می شوم

و برنامه هنگ می کند لطفا راهنمایی نمائید.

[Kamyar.Kimiyabeigi]

شما دارین در Checklistbox با Index ایی کار میکنین که وجود نداره میشه تیکه کدی که با Checklistbox کار میکنی رو بزارین
یکی از اشتباهات رایج در این زمینه زدین حلقه به صورت زیره


for i := 0 to CheckListBox1.Items.Count

که درستش به صورت زیره


for i := 0 to CheckListBox1.Items.Count - 1

[marmar]

سلام

میشه بگید بعد از این کد اگه بخوام بگم اون item هایی رو که تیک خورده برو تو یه list boxکپی کن چی باید بگم؟

[Kamyar.Kimiyabeigi]

میشه بگید بعد از این کد اگه بخوام بگم اون item هایی رو که تیک خورده برو تو یه list boxکپی کن چی باید بگم؟


procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to CheckListBox1.Items.Count - 1 do
begin
if CheckListBox1.Checked[i] then
ListBox1.Items.Add(CheckListBox1.Items.Strings[i]);
end;
end;

موفق باشین

[سید مسعود موحد]

دوست عزیز به صورت زیر



procedure TForm1.FormClick(Sender: TObject);
Var
Counter: Integer;
begin

For Counter := 0 To CheckListBox1.Count - 1 Do
If CheckListBox1.Checked[Counter] Then
ShowMessage('Item No : ' + IntToStr(Counter) + ' Is Checked ' );
end;