عملية حسابية بالنسبة المؤوية

[kwahab]

كيفية حساب مثلا العملية التالية 122*2.5%
القيمة 2.5% كيف اكتبها فو لايقبل رمز%.
كذلك انا اعرف الصيفة التالية inttostr او العكس
اما بالنسبة للارقام التي تحتوي فاصلة اي من نوع real كيف تكون الصيغة

[TF6M]

1- 2.5% نحسبها ببساطة رياضيا : Value * 2.5 / 100
2- إستخدم FloatToStrF كم يمكن FormatFloat مثال :

كود :

procedure TForm1.Button1Click(Sender: TObject); Var A:Real; begin A:=123.269; ShowMessage(FloatToStrF(A,FfFixed,5,4));//FloatToStrF ShowMessage(FormatFloat('0.00',A));//FormatFloat ShowMessage(Format('%g',[A]));//Format end

للمزيد و للتوضيح : إبحث عن FloatToStrF, Format, FloatToStr , FormatFloat

http://www.delphibasics.co.uk/index.html

[kwahab]

جزاك الله خيرا .

[kwahab]

السلام عليكم
هذه العملية edit1*0.025*edit2*edit3*edit4*edit5*12/400
جربت هذا الكود لكن رسالة خطا تظهرلي

كود :

ap:=strtofloat(edit1.Text)*a*strtofloat(edit2.Text)*strtofloat(edit3.Text) *strtofloat(edit4.Text)*strtofloat(edit5.Text)*m/k;

m=12.k=400.
لم افهم الخطااين