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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  alla23 في السبت أكتوبر 22, 2016 10:40 am

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

ضع على الفورم 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.

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى