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

[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