delphi4arab منتديات دلفي للعرب

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

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

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

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

SamirAloui

hakimrahal