الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة فيما يتعلق بنتيجة لعدد من والى

بدأه medreg في 22 يونيو 2010 · 2 رد · 413 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله تعالى وبركاته

كيف يمكنني ان اضع وظيفة او إجراء أو تعليمة بحيث يكون قيمة لمتغير ما وليكن

كالتالي

s:=القيمة من 01 الى 10

بحيث اقول في كود

اذا كان الحقل cd_pr يساوي المتغير (s)

إذًا الحقل MT يساوي (x)

علما انني كنت استعمل شرط كبير ولهذ ا لو اجد كود المطلوب يكون احسن

كنت اضع هذا الكود

المقصود هو تعريف بعض المتغيرات ختى استعملهم في اجراء كها المثال

المتغير s:= من 1 الى 10

المتغير t:= من 11 الى 20

المتغير r:= من 21 الى 30

لأستطيع ان استعملهم في اجراء واقول فية

if table1.fieldbyname('CD_PR').asstring=s then h:=h+table1.fieldbyname('mt').asfloat;
if table1.fieldbyname('CD_PR').asstring=t then y:=y+table1.fieldbyname('mt').asfloat;
if table1.fieldbyname('CD_PR').asstring=r then x:=x+table1.fieldbyname('mt').asfloat;

وهكذا

وشكرًا

تم تعديل هذه المشاركة بواسطة medreg في 22 يونيو 2010 في 23:36

#2

شئ كهذا قد يفيد

case   table1.fieldbyname('CD_PR').AsInteger of
  1..10 : h:=h+table1.fieldbyname('mt').asfloat;
  11..20: y:=y+table1.fieldbyname('mt').asfloat;
  21..30: x:=x+table1.fieldbyname('mt').asfloat;
else
  doSomething();
end;

تم تعديل هذه المشاركة بواسطة YaSeenTA في 23 يونيو 2010 في 04:17

#3
YaSeenTA كتب:

شئ كهذا قد يفيد

case   table1.fieldbyname('CD_PR').AsInteger of
  1..10 : h:=h+table1.fieldbyname('mt').asfloat;
  11..20: y:=y+table1.fieldbyname('mt').asfloat;
  21..30: x:=x+table1.fieldbyname('mt').asfloat;
else
  doSomething();
end;

جزاكم الله عنا كل خير

سأجرب هذا وسأرد عليك إن شاء الله

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…