+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التحويل من Float إلى Integer (/showthread.php?tid=4503)
التحويل من Float إلى Integer - SamirAloui - 02-09-2012
السلام عليكم هل يمكن تحويل الأرقام العشرية أو التي تحمل فاصلة إلى أعداد تقريبية صحيحة
مثلاً في edit1 لدينا العدد 16,33333333333 عند الضغط على الزر boutton1 يتم تحويل القيمة الموجودة في ال edit1 الى 16 و في حالة كان العدد 16,6666666666 القيمة تحول إلى 17
أضن سؤالي بسيط و مفهوم في انتظار مساعداتكم و السلام عليكم
التحويل من Float إلى Integer - hakimrahal - 02-09-2012
السلام عليكم ...استخدم الدالة round
round(1.99) donne 2
round(1.5) donne 2
round(1.499) donne 1
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
a:real;
begin
a:=strtofloat(edit1.Text);
edit1.Text:=inttostr(round(strtofloat(edit1.Text)));
end;