+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : قسمة عددين بدون قيمة تقريبية (/showthread.php?tid=7102)
قسمة عددين بدون قيمة تقريبية - bouh25 - 16-07-2015
كيف اجري العملية برقمين وراء الفاصلة و بدون قيمة تقريبية
ولكم جزيل الشكـــر
قسمة عددين بدون قيمة تقريبية - hakimrahal - 29-07-2015
السلام عليكم.
إستخدم (formatfloat(' # ### ###.##',a/b
بدلا من ( formatfloat('#,##0.00',a/b
قسمة عددين بدون قيمة تقريبية - bouh25 - 11-08-2015
اشكرك اخي الكريم hakimrahal هل من الممكن كتابة رقمين وراء الفاصلة فقط 0.99 بدل 0,997752808988764
قسمة عددين بدون قيمة تقريبية - hakimrahal - 25-08-2015
http://delphi4arab.net/forum/showthread.php?tid=7818
قسمة عددين بدون قيمة تقريبية - bouh25 - 12-09-2015
نفس المشكل و ارجو منكم الحل في نفس المثال المرفق
قسمة عددين بدون قيمة تقريبية - I3CT - 13-09-2015
جرب هذه الدالة:
ما تقوم به هو تحويل القيمة الى 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
قسمة عددين بدون قيمة تقريبية - hakimrahal - 13-09-2015
السلام عليكم.... إستخدم هذا الكود:
كود :
medit2.text:=floattostr(int(a/b)+int(frac(a/b)*100)/100);