listbox

[bassem_43]

وعليكم السلام
تفضل مثال سريع يمكن تحسينه طبعا
لنفرض لديك زر يحسب المجموع الكلي والنتيجة توضع في label ادن سيكون الكود هكدا :

كود :

procedure TForm1.btn1Click(Sender: TObject); var i,sum:integer; begin sum:=0; for i:=0 to (( lst1.items.count)-1) do sum:= (StrToInt(lst1.Items[i])+ sum); // حلقة تكرارية تحسب المجموع من اول عنصر الى اخر عنصر lbl1.Caption:=IntToStr(sum);// النتيجة هنا end;