الانتقال الى المشاركة

Primary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Pattern: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
مرحبا بك في منتديات ابن خلدون التعليمية

أهلا وسهلا بك زائرنا الكريم، و يشرفنا أن تقوم بالتسجيل إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


تسجيل الدخول التسجيل الآن



صورة

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


  • لا تستطيع كتابة موضوع جديد
  • من فضلك قم بتسجيل دخولك لتتمكن من الرد
لا توجد ردود على هذا الموضوع

#1
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 42 المشاركات
  • البلد: Country Flag

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

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

procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit1.Text := ''; Edit2.Text := '';
 Edit3.Text := '';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Close;
end.

 

 


:D

دلفي تعليم

http://delph.forumalgerie.net

 





عدد المتواجدون الآن فى الموضوع : 0

0 الأعضاء, 0 الزوار, 0 الأعضاء المجهولين