تقريب عدد عشري

[بلال زيان]

السلام عليكم إخواني :
هل يمكن تقريب عدد حقيقي إلى عشري : مثال على ذلك العدد ( 26554.33 ) فعند التقريب يصبح هكذا (26550.00 ) . و جزاكم الله خيرا

[format82]

عن طريق Round

كود :

Edit1.Text:=IntToStr(Round(StrToFloat(Edit2.text)));

[بلال زيان]

جزاكم الله خيرا و جعله الله في ميزان حسناتكم