كيف تقوم بصنع برنامج يعطيك النسبة بالـ %

[Ali -Al-Dujaily]

السلام عليكم

كيفية صناعة برنامج يعطيك نسبة معينة انت تدخلها بالمئة %
1_تحتاج الى 3 عناصر Edit و عنصر Button
اضغط على عنصر Button واكتب الكود التالي :

كود :

var a:real; b:real; c:real; begin If (Edit1.Text = '') Or (Edit2.Text = '') Then Messagedlg('Please Enter Numbers',mterror,[mbok],0) else Try a:=strtofloat(edit1.Text ); b:=strtofloat(edit2.Text ); c:=100/b; Edit3.Text := floattostr(a*c) + '%'; except Messagedlg('Please Enter Numbers',mterror,[mbok],0); end; end;

صورة :

كود :

http://a5.sphotos.ak.fbcdn.net/hphotos-ak-ash3/179499_264148650354049_950457177_n.jpg