كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2

[King SofT]

السلام عليكم

كود :

if edit1.text = '' then edit2.text := inttostr(0) else if edit1.text = ' ' then edit2.text := inttostr(0) else edit2.text := floattostr(int(strtofloat(edit1.text)));

[color="darkgreen"]
ما فائدة استثنائك للشرط الاول اذا كان الثاني هو نفسه

شكرا

[/color]

[itoumoui]

السلام عليكم
بارك الله فيكم لقد وجدت ضالتي في هذا المنتدى وما أود إضافته هو لما تبحث عن

الجزء العشري
تفعل هكذا

كود :

edt1.Text:=FloatToStr(frac(StrToFloat...........

[COLOR="Red"]الحمد لله[/OLOR]