17-04-2011, 07:08 PM
أردت ان اطبق مع الدرس الثالث في دوره دلفي للعرب وهو درس الاجراءات والدوال وعند محاولتي لتغير الاجراء الى داله لم اتمكن مع اني افعل خطوه خطوه مع الفيديو لأرى الخطأ ولم اتمكن.
اين الخطأ في هذه الداله
اين الخطأ في هذه الداله
كود :
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.