+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : listbox (/showthread.php?tid=6594)
listbox - midouhh31 - 27-11-2014
السلام عيكم
![[صورة: PgEVXe.jpg]](http://im68.gulfup.com/PgEVXe.jpg)
كيف يقوم بحساب كل الأسطر في listbox وليس اتنان فقط
listbox - bassem_43 - 27-11-2014
وعليكم السلام
تفضل مثال سريع يمكن تحسينه طبعا
لنفرض لديك زر يحسب المجموع الكلي والنتيجة توضع في 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;listbox - midouhh31 - 28-11-2014
مشكور على إهتمامك و لمساعدتي