السلام عليكم
ارجو منكوم توضحي لي هذا السؤئل
وهو
عندي هذا الارقم 300,200,650 وهكذ ,,,,, كيف يمكن ان افصل منه رقم 100 اي اخد منه الارقم 100
عند دخل احد الارقم في متغير يقوم بفصل القيمة وعرضها في lable
ارج ان يكون السؤئل وضحاً
كيف يمكن
مغلق
اخي الكريم قم بعمل التالي
اولا تقسيم العدد المدخل على مئة ثم اخذ القيم الصحيحة منها ثم ضربها بمئة مرة اخرى
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:= Trunc(StrToInt(Edit1.Text) / 100) * 100; Label1.Caption:= IntToStr(i) end;
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:= StrToInt(Edit1.Text)-100; Label1.Caption:= IntToStr(i) end;
اطرح على 100 اخي الكريم
:rolleyes: :rolleyes: :rolleyes:
..................بسم الله الرحمن الرحيم..................
وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان
.............................................................................................................................
سلسلة تعلم برمجة Pascal , تعلم اساسيات الباسكال
التحكم بمنفذ الطابعة عن طريق الدلفي
سلسلة دروس تعلم قواعد بيانات Midas
أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي
كتب + مواقع ::: مراجع مهمة للغة دلفي, مجموعة كتب مجانية + مواقع مفيدة
مكتبه الأكواد, أكواد وبرامج دلفي
.............................................................................................................................
هذا الموضوع مغلق.