طريقة جمع عددين بدلفي برمجيا
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
طريقة جمع عددين بدلفي برمجيا
Delphi
طريقة جمع عددين بدلفي برمجيا
طريقة جمع عددين بدلفي برمجيا
- الكود:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
Edit1, Edit2: TEdit;
Label1, Label2, Label3: TLabel;
Button1: TButton;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a1, b2: Integer;
begin
if (Edit1.Text<> '')and(Edit2.Text<> '') then
begin
a1 := StrToInt(Edit1.Text);
b2 := StrToInt(Edit2.Text);
Label3.Caption := IntToStr(a1+b2);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Font.Size := 11;
Form1.Font.Style := [fsBold];
Form1.Font.Name := 'Arial';
// Label1
Label1 := TLabel.Create(self);
Label1.Parent := Form1;
Label1.Left := 50;
Label1.Top := 50;
Label1.Caption := 'Number One:';
// Label2
Label2 := TLabel.Create(self);
Label2.Parent := Form1;
Label2.Left := Label1.Left;
Label2.Top := 100;
Label2.Caption := 'Number Two:';
// Label3
Label3 := TLabel.Create(self);
Label3.Parent := Form1;
Label3.Left := 120;
Label3.Top := 180;
Label3.Caption := 'Label3';
// Edit1
Edit1 := TEdit.Create(self);
Edit1.Parent := Form1;
Edit1.Left := Label1.Width+60;
Edit1.Top := Label1.Top;
Edit1.Width := 170;
Edit1.Height := 25;
// Edit2
Edit2 := TEdit.Create(self);
Edit2.Parent := Form1;
Edit2.Left := Edit1.Left;
Edit2.Top := Label2.Top;
Edit2.Width := Edit1.Width;
Edit2.Height := Edit1.Height;
// Button1
Button1 := TButton.Create(self);
Button1.Parent := Form1;
Button1.Left := Label3.Left;
Button1.Top := 140;
Button1.Height := 31;
Button1.Width := 130;
Button1.Caption := 'Click here';
Button1.OnClick := Button1Click;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Button1.Free;
Edit2.Free;
Edit1.Free;
Label3.Free;
Label2.Free;
Label1.Free;
end;
djelal- مبرمج مجتهد
- عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015
مواضيع مماثلة
» طريقة جمع عددين بدلفي برمجيا وهو تحسن لسابقه
» جمع عددين في دلفي خمسة
» طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك، سي شارب، سي ++ )
» طريقة الاتصال بقاعدة البيانات برمجيا في فجوال سي زايد زايد
» ربط قاعدة بيانات أكسس بدلفي وإجراء بعض العمليات عليها كالإضافة والتعديل والحذف والبحث بدلفي
» جمع عددين في دلفي خمسة
» طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك، سي شارب، سي ++ )
» طريقة الاتصال بقاعدة البيانات برمجيا في فجوال سي زايد زايد
» ربط قاعدة بيانات أكسس بدلفي وإجراء بعض العمليات عليها كالإضافة والتعديل والحذف والبحث بدلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى