27-11-2014, 08:32 PM
السلام عيكم
![[صورة: PgEVXe.jpg]](http://im68.gulfup.com/PgEVXe.jpg)
كيف يقوم بحساب كل الأسطر في listbox وليس اتنان فقط
كيف يقوم بحساب كل الأسطر في listbox وليس اتنان فقط
27-11-2014, 10:34 PM
وعليكم السلام
تفضل مثال سريع يمكن تحسينه طبعا
لنفرض لديك زر يحسب المجموع الكلي والنتيجة توضع في label ادن سيكون الكود هكدا :
تفضل مثال سريع يمكن تحسينه طبعا
لنفرض لديك زر يحسب المجموع الكلي والنتيجة توضع في 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;28-11-2014, 09:34 AM
مشكور على إهتمامك و لمساعدتي