كيفية حساب مثلا العملية التالية 122*2.5%
القيمة 2.5% كيف اكتبها فو لايقبل رمز%.
كذلك انا اعرف الصيفة التالية inttostr او العكس
اما بالنسبة للارقام التي تحتوي فاصلة اي من نوع real كيف تكون الصيغة
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
السلام عليكم
هذه العملية 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.
لم افهم الخطااين