أين الخطأ في هذا الكود

[ELARAPY]

أردت ان اطبق مع الدرس الثالث في دوره دلفي للعرب وهو درس الاجراءات والدوال وعند محاولتي لتغير الاجراء الى داله لم اتمكن مع اني افعل خطوه خطوه مع الفيديو لأرى الخطأ ولم اتمكن.


اين الخطأ في هذه الداله

كود :

implementation {$R *.dfm} function mathoperation(a, d: integer ; sig :string):integer; begin if sig = '+' Result := a+d ; if sig = '-' Result := a-d ; if sig = '*' Result := a*d ; end; procedure TForm1.Button1Click(Sender: TObject); var a, d, c : integer ; sig : string ; begin c := 0; a := strtoint (Edit1.Text); d := strtoint (Edit2.Text); sig := Edit3.Text ; if sig = '+' then c:= a+d ; if sig = '-' then c:= a-d ; if sig = '*' then c:= a*d ; Edit4.Text := inttostr (c); end; procedure TForm1.Button2Click(Sender: TObject); begin Edit4.Text := inttostr(mathoperation(strtoint(Edit1.Text), strtoint(Edit2.Text)Edit3.Text)); end; end.

[kachwahed]

السلام عليكم ورحمة الله
يبدو الخطأ هنا:

كود :

Edit4.Text := inttostr(mathoperation(strtoint(Edit1.Text), strtoint(Edit2.Text[color=Red])E[/color]dit3.Text));

الفصل بين المعلمات بفاصلة إجباري.

[maosalah]

كود :

function mathoperation(a, d: integer ; sig :string):integer; begin if sig = '+' then Result := a+d ; if sig = '-' then Result := a-d ; if sig = '*' then Result := a*d ; end;

التعديل في كتابة الشرط
If .... then

[ELARAPY]

الخطأ مازال موجود

كود :

http://www14.0zz0.com/2011/04/19/02/970625480.jpg

[karazeh2006]

أخي الكريم .... كما أوضح لك السيد maosalah عدل جمل الشرط IF ... Then

[roniothman]

التصحيح

PHP كود :

if sig = '+'Then Result := a+d ;
if sig = '-' Then Result := a-d ;
if sig = '*' Then Result := a*d ; 


PHP كود :

Edit4.Text := inttostr(mathoperation(strtoint(Edit1.Text), strtoint(Edit2.Text),Edit3.Text));
end;