[wared]

(21-06-19, 08:07 PM)سعود كتب : الان ... ماهو نوع الرقم الذي يقبل اي شي اقصد كسر او غيره

---

الجميل بهذه اللغة ان البرنامج لا ينكسر ولا يتوقف وكانك وضعت رسالة  عند Catch

---

إقتباس :مثلا [2] + [3] [=] >>>> 5

هنا عند الضغط على رقم جديد (بدون ضغط [C]) سيتم وضع الرقم الجديد بعد الناتج القديم.

اي نعم مثل ماقلت التصحيحات تتوالى

(لست مبرمج Delphi)

يجب أن يكون نوع الرقم Single أو Double لقبول الرقم العشري

قم يتعريف متغير للناتج r مع تغيير نوع البيانات للمتغيران n1 وn2 مثل

كود :

var n1:Single;
var n2:Single;
var r:Single;

ثم استخدم القيمة بالعلامة / مثل

كود :

else if o='/' then
begin
 r := n1 / n2 ;
 label1.caption:= label1.caption + FloatToStr(r) ;
end;

تم تحويل الناتج العشري الى نص بـ FloatToStr