ورود

View Full Version : چطور میشه مقادیری رو از اعداد داخل لیست باکس کم کرد؟



hex161
سه شنبه 09 خرداد 1385, 17:52 عصر
با سلام
برنامه ای رو می خواستم بنویسم که یه لیست باکس داره که توش حدود 10 تا عدد هست.
حالا می خواهم کاری کنم که از هر کدوم از این اعداد 2 تا کم بشه تا همه به صفر برسن.
و وقتی همه به صفر رسیدن اونوقت کار تفریق به پایان برسه.
چطور میشه همچین کدی نوشت ؟
با تشکر.

mzjahromi
سه شنبه 09 خرداد 1385, 19:20 عصر
Repeat
flag:=true
for i:=0 to listbox1.items.ount-1 do
if items[i]<>0 then
Begin
Items[i]:=items[i]-2
flag:=false
End
until flag

یه چیزی شبیه به این