بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
شرح كيفية استعمال الحلقات في دلفي
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;
-