دخول

merouane

و عليكم السلام

الملاحظة الأولى هي أنك لم تطلع على الدرس آلة حاسبة بسيطة بالدلفي في قسم الدروس

جميع السطور التالية

كود :
procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton12.caption ;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton5.caption ;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton6.caption ;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton7.caption ;
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton11.caption ;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton10.caption ;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton9.caption ;
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton13.caption ;
end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton14.caption ;
end;

procedure TForm1.SpeedButton18Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton18.caption ;
end;

procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton15.caption ;
end;

بكل بساطة

كود :
Edit1.Text := Edit1.Text + (Sender as TSpeedButton).Caption

بالنسبة للـفاصلة، لقد كتبت

كود :
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
edit1.Text := edit1.text + speedbutton15.caption ;
end;

الأصح (حسب ما يتعامل معه النظام) و لابد أن تكتب مرة واحدة للرقم (هذه لقد نسيتها أنا أيضا)

كود :
Edit1.Text := Edit1.Text + DecimalSeparator;

بعد عملية الجمع لا بد من مسح الأرقام قبل الكتابة (هذه لقد نسيتها أنا أيضا)

إذا قمنا بالضغط على أحد الأرقام ثم ضغطنا على النتيجة تطهر رسالة خطأ .. من الأفضل الإنطلاق من الصفر بالنسبة للعدد - في برنامجك S -

سأتوقف هنا

ملاحظة اخيرة لو استعملت الدرس وقمت بالتصحيح عليه لأفدنتا (خصوصا كاتب هذه الأسطر) و وفرت وقتك

آمل أنني لم أثقل

تحياتي Smile

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة