كيفية وضع النسبة المؤية مع DBGrid

[المحجوب]

السلام عليكم

لدي DBGrid به عدد موظفين مجازين
اردت عمل نسبة مؤية مع الموظفين العاملين

بحيث ان عدد الموظفين العاملين سوف اضعهم في edit وتظهر النتيجة في lable

كيف استخرج النسبة المؤية في ذلك ؟

[S.FATEH]

السلام عليكم
تحسب النسبة المؤوية

عدد الموضفين = عدد الموضفين العاملين + عدد الموضفين المجازين
النسبة المؤوية = عدد الموضفين المجازين * عدد الموضفين /100

اثناء العرض طبق ما تشاء على النتيجة

[المحجوب]

لكن لم افهم ما المشكلة في حال القسمة يظهر خطأ

PHP كود :

var
A: integer;
B: integer;
C: integer;
d: Integer;
begin
a:= StrToint(edit3.text);
b:= StrToint(edit2.text);
Edit4.text:= intToStr(A+B);
C:=StrToInt(Edit4.Text);
Edit5.Text:=IntToStr(c*b);
d:= StrToInt(Edit5.Text);
sSpeedButton9.Caption:=IntToStr(d/100); 


[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته
أخي النسبة المئوية عدد حقيقي و ليس طبيعي و لا صحيح و لهذا استعمل float بدلا من int
مثل:

كود :

procedure TForm1.Button1Click(Sender: TObject); var a:real; begin edit3.Text:=floattostr(strtofloat(edit1.text)/ strtofloat(edit2.text)); end;

و إن أردت القسمة بالعدد الصحيح فاستخدم الدالة "div" بدلا من "/"
بالتوفيق

[المحجوب]

شكراً لكم تحقق الامر والملخص نتيجتين كلهما نفس الناتج

PHP كود :

Edit4.Text:=FloatToStr(StrToFloat(Edit2.Text)+StrToFloat(Edit3.Text ));
Edit5.Text:=FloatToStr(StrToFloat(Edit2.Text)*StrToFloat(Edit4.Text ));
sSpeedButton9.Caption:=FloatToStr(StrToFloat(Edit5.Text)/StrToFloat( Edit6.Text)); 


الطريقة الثانية

PHP كود :

var
A: integer;
B: integer;
C: integer;
begin
a:= StrToint(edit3.text);
b:= StrToint(edit2.text);
Edit4.text:= intToStr(A+B);
C:=StrToInt(Edit4.Text);
Edit5.Text:=IntToStr(c*b);
sSpeedButton9.Caption:=FloatToStr(StrToFloat(Edit5.Text)/StrToFloat( Edit6.Text)); 


حيث Edit6.Text= 100