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

بخصوص الإحتفاظ برقمين بعد الفاصلة

بدأه saiddsa3980 في 15 أبريل 2008 · 5 رد · 1,014 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

إخواني عندي برنامج حساب صغيرأريد أن يقوم بالإحتفاظ برقمين بعد الفاصلة في أي حال كان وحتى لوكان بعد الفاصلة صفرين

*** وفي الأخير بارك الله فيكم إخواني ***

decimal.rar

تم تعديل هذه المشاركة بواسطة saiddsa3980 في 15 أبريل 2008 في 19:11

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#2

استخدم FormatFloat بدلا من strtofloat راجع Help

mon1:= FormatFloat('0.00',dbedit1.text);
d4baa0.gif
#3

بارك الله فيك أخي لكن الكود لم ينجح معي

لقد أرفقت الكود للي أعطيتني إياه في الملف

decimal1.rar

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#4 
procedure TForm1.Button1Click(Sender: TObject);
var mon1,mon2,resul:real;
begin
mon1:= StrToFloat(dbedit1.text);
mon2:= StrToFloat(dbedit2.text);
   begin
   resul:=mon1+mon2;
   dbedit3.text:=FormatFloat('0.00',resul);
   end;
end;
d4baa0.gif
#5

بارك الله فيك أخي الكريم ، جزاك الله كل الخير

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#6

السلام عليكم

مثل ما قاله أخي عبد العزيز و هناك طريقة أخرى


var mon1,mon2,resul:real;
begin
mon1:= StrToFloat(dbedit1.text);
mon2:= StrToFloat(dbedit2.text);
begin
resul:=mon1+mon2;
dbedit3.text:=floattostrf(resul,ffnumber,18,2);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);

أطلب العم من المهد إلى اللحد

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

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

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

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

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