شرح كيفية استعمال الحلقات في دلفي

بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين

شرح كيفية استعمال الحلقات في دلفي

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
 Memo1.Lines.Clear;
 for i := 0 to 10 do
 Memo1.Lines.Add('هذه القيمة = '+IntToStr(i));
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
 Memo1.Lines.Clear;
 i := 0;
 While i <= 10 do
 begin
 Memo1.Lines.Add('هذه القيمة = '+IntToStr(i));
 i := i + 1;
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i: Integer;
begin
 Memo1.Lines.Clear;
 i := 0;
 repeat
 Memo1.Lines.Add('هذه القيمة = '+IntToStr(i));
 i := i + 1;
 until i >= 10;
end;

-

http://www.truevision3d.com/....محرك العاب يدعم للدلفي