delphi4arab منتديات دلفي للعرب

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 يحقق الشرط

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

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 يحقق الشرط

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

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

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