عملية الجمع في دلفي خمسة

من طرف **salme** السبت يناير 21, 2017 5:04 pm

عملية الجمع في دلفي خمسة

ضع على الفورم 3
TLabel
ضع على الفورم 3
TButton
ضع على الفورم 3
TEdit

الكود:: procedure TForm1.Button1Click(Sender: TObject); var a,b,c : Integer; begin a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); c := a + b; Edit3.Text := IntToStr(c); end; procedure TForm1.Button2Click(Sender: TObject); begin Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end; procedure TForm1.Button3Click(Sender: TObject); begin Close; end.