+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : لماذا يعمل هذا الكود علي اللون الاحمر فقط (/showthread.php?tid=2188)
لماذا يعمل هذا الكود علي اللون الاحمر فقط - m_m_saad - 15-07-2010
لماذا يعمل هذا الكود علي اللون الاحمر فقط
كود :
procedure TForm1.Combo01Change(Sender: TObject);
label sss1;
label sss2;
begin
if combo01.ItemIndex=1 then goto sss2;
if combo01.itemindex=0 then goto sss1;
sss1:
begin
form1.color:=clyellow;
end;
sss2:
begin
form1.color:=clred;
end;
end;لماذا يعمل هذا الكود علي اللون الاحمر فقط - محمد عبد العزيز - 15-07-2010
السلام عليكم ورحمة الله
بالطريقة التي كتبت بها الاوامر دائما يتم تغيير اللون الى الاحمر
كحل سريع، غير
كود :
begin
form1.color:=clyellow;
end;كود :
begin
form1.color:=clyellow;
exit;
end;من الاحسن الا تستعمل Goto (حاول التفكير دونها)
يمكن ان تكتب الكود بشيئ مثل
كود :
procedure TForm1.Combo01Change(Sender: TObject);
begin
if combo01.ItemIndex=1 then form1.color:=clyellow;
if combo01.itemindex=0 then form1.color:=clred;
end;لماذا يعمل هذا الكود علي اللون الاحمر فقط - m_m_saad - 15-07-2010
للاسف لابد لي من استخدام goto
وذلك لاني اقوم بعمل عدة خطوات بعد goto وليس خطوة واحدة
ولكن المثال الذي ضربته مثال مبسط
فأنا **** حلا ضروريا باستخدام goto
لماذا يعمل هذا الكود علي اللون الاحمر فقط - محمد عبد العزيز - 15-07-2010
يمكن العيش دون GOTO
كحل سريع يكفي كتابة exit عند نهاية كل خطوة مثل المثال السابق
لماذا يعمل هذا الكود علي اللون الاحمر فقط - m_m_saad - 15-07-2010
الحل رائع جدا
اسأل الله لك الجنه
انا بقي لي يوم كامل مش عارف احل الموضوع ده
لماذا يعمل هذا الكود علي اللون الاحمر فقط - محمد عبد العزيز - 15-07-2010
مرحبا بك بالمنتدى
بالمناسبة هناك مقالات رائعة عن goto
اكتب بgoole هذا
Why Using A Goto Is Bad Programming Practice