التحويل من Float إلى Integer

[SamirAloui]

السلام عليكم هل يمكن تحويل الأرقام العشرية أو التي تحمل فاصلة إلى أعداد تقريبية صحيحة

مثلاً في edit1 لدينا العدد 16,33333333333 عند الضغط على الزر boutton1 يتم تحويل القيمة الموجودة في ال edit1 الى 16 و في حالة كان العدد 16,6666666666 القيمة تحول إلى 17

أضن سؤالي بسيط و مفهوم في انتظار مساعداتكم و السلام عليكم

[hakimrahal]

السلام عليكم ...استخدم الدالة 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;