المشاركات : 8
المواضيع 5
:
: 0
الإنتساب : Oct 2014
27-11-2014, 08:32 PM
(آخر تعديل لهذه المشاركة: 27-11-2014, 08:33 PM بواسطة midouhh31.)
السلام عيكم
![[صورة: PgEVXe.jpg]](http://im68.gulfup.com/PgEVXe.jpg)
كيف يقوم بحساب كل الأسطر في listbox وليس اتنان فقط
المشاركات : 543
المواضيع 34
:
: 463
الإنتساب : Apr 2013
وعليكم السلام
تفضل مثال سريع يمكن تحسينه طبعا
لنفرض لديك زر يحسب المجموع الكلي والنتيجة توضع في 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;
و من طلب العلوم بغير كد _________ سيدركها إذا شاب الغراب
المشاركات : 8
المواضيع 5
:
: 0
الإنتساب : Oct 2014
مشكور على إهتمامك و لمساعدتي
