+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ممكن حل لهذا الكود (/showthread.php?tid=5887)
ممكن حل لهذا الكود - karika2 - 25-01-2014
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 - 25-01-2014
السلام عليكم و رحمة الله و بركاته
مستحيل يا أخي
و لكن ما الهدف من كلامك.
السلام عليكم و رحمة الله و بركاته
ممكن حل لهذا الكود - hamou1982 - 25-01-2014
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 يحقق الشرط
كود :
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 - 25-01-2014
الخطأ ! في دالة الشرط ؟
مرر الشرط للمتغير 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');