+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : أين الخطأ 2 (/showthread.php?tid=9317)
أين الخطأ 2 - chamsderreche - 11-04-2018
السلام عليكم،
أين الخطأ في هذا الكود
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
var
c:integer;
begin
c:=0;
for c:=1 to 80000
c:=c+1;
showmessage(inttostr(c));
end;
RE: أين الخطأ 2 - مبرمج حر - 11-04-2018
كود :
procedure TForm1.FormCreate(Sender: TObject);
var
c:integer;
begin
for c:=1 to 80000 do
showmessage(inttostr(c));
end;RE: أين الخطأ 2 - chamsderreche - 11-04-2018
(11-04-2018, 07:32 PM)مبرمج حر كتب :كود :procedure TForm1.FormCreate(Sender: TObject); var c:integer; begin for c:=1 to 80000 do showmessage(inttostr(c)); end;
ذلك ليس خطآ لأني قمت بارجاع قيمة c إلى الصفر و لكن الآخر صحيح 100% فنسيان do خطأ لا يغتفر