قسمة عددين بدون قيمة تقريبية

[I3CT]

جرب هذه الدالة:
ما تقوم به هو تحويل القيمة الى string ثم بدئ عملية المعالجة بترك فقط رقمين بعد الفاصلة ثم اعادة تحولها الى قيمة...

التعديل سهل على الدالة اذا كان عندك نوع مخرجات اخرى...

PHP كود :

function FormatWithoutRoundIt(Val: Extended): Extended;
var
  strVal, strVal2: string;
begin
  strVal := FloatToStr(Val);

  if Pos('.', strVal) <> 0 then
    strVal2 := copy(strVal, 0, Pos('.', strVal) + 2)
  else
    strVal2 := strVal;

  result := StrToFloat(strVal2);
end; 


طريقة استعمالها:

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.text := FloatToStr(12356/81);
  Edit2.text := FloatToStr(FormatWithoutRoundIt(12356/81));
  Edit3.text := FloatToStr(FormatWithoutRoundIt(0.997752808988764));
  Edit4.text := FloatToStr(FormatWithoutRoundIt(0.947752808988764));
  Edit5.text := FloatToStr(FormatWithoutRoundIt(150.012345678));
end