عملية الجمع في دلفي
صفحة 1 من اصل 1 • شاطر
عملية الجمع في دلفي
عملية الجمع في دلفي
ضع على الفورم 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.
ضع على الفورم 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.
مواضيع مماثلة
» عملية تسجيل في جدول قاعدة بيانات دلفي
» عملية البحث في قواعد البيانات -دلفي- مثال بسيط
» دلفي ورسائل
» رسائل في دلفي
» جمع عددين في دلفي
» عملية البحث في قواعد البيانات -دلفي- مثال بسيط
» دلفي ورسائل
» رسائل في دلفي
» جمع عددين في دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى