ممكن حل لهذا الكود

[karika2]

procedure TForm1.Button1Click(Sender: TObject);
var
num1:Integer;
begin
num1 := StrToInt(Edit1.Text);
num1 := num1 +10 ;
Label1.Caption :=intTostr(num1);
if Label1.Caption = '50' then
ShowMessage('no ur No 50');
end;

end.

هو الكود مفهوش مشكلة بس عايز أخلى Label1.Caption من نوع انتيجر يعنى لاحظ رقم '50' نوع نصى
وانا عايز لما Label1.Caption يساوى رقم 50 وليس نص 50 يحقق الشرط

[cosinuszero]

السلام عليكم و رحمة الله و بركاته
مستحيل يا أخي
و لكن ما الهدف من كلامك.
السلام عليكم و رحمة الله و بركاته

[hamou1982]

procedure TForm1.Button1Click(Sender: TObject);
var
num1:Integer;
begin
num1 := StrToInt(Edit1.Text);
num1 := num1 +10 ;
Label1.Caption :=intTostr(num1);
if Label1.Caption = '50' then
ShowMessage('no ur No 50');
end;

end.

هو الكود مفهوش مشكلة بس عايز أخلى Label1.Caption من نوع انتيجر يعنى لاحظ رقم '50' نوع نصى
وانا عايز لما Label1.Caption يساوى رقم 50 وليس نص 50 يحقق الشرط

اذا كنت قد فهمت قصدك فيمكن ان تغير الكود بهذا الشكل

كود :

var num1:Integer; begin num1 := StrToInt(Edit1.Text); num1 := num1 +10 ; Label1.Caption :=intTostr(num1); if num1 = 50 then ShowMessage('no ur No 50');

[Mr.DOS]

الخطأ ! في دالة الشرط ؟
مرر الشرط للمتغير Num1

ليصبح الكود كاتالي

كود :

var num1:Integer; begin num1 := StrToInt(Edit1.Text); num1 := num1 +10 ; Label1.Caption :=intTostr(num1); if num1 = 50 then ShowMessage('no ur No 50');