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

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

الصفحات : 1 2

rami كتب :السلام عليكم

كود :
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]

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

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

كود :
edt1.Text:=FloatToStr(frac(StrToFloat...........

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

الصفحات : 1 2

King SofT

itoumoui