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

نسخة كاملة : أين الخطأ 2
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم،
أين الخطأ في هذا الكود
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
var
c:integer;
begin
c
:=0;
for 
c:=1 to 80000
c
:=c+1;
showmessage(inttostr(c));
end; 
مدة التمرين يوم واحد والله ولي التوفيق
كود :
procedure TForm1.FormCreate(Sender: TObject); var c:integer; begin for c:=1 to 80000 do showmessage(inttostr(c)); end;
(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 خطأ لا يغتفر