بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
الحلقة while
الحلقة while تنفذ مادام الشرط في حالة تحقق
اذا كان الشرط i <= 10 وكان i = 1 تنفذ الحلقة الى أن يساوي المتغير i عشرة أو اكبر
while i <= 10 do
كود:
procedure TForm1.BitBtn1Click(Sender: TObject); // https://www.djelfa.info/vb
var i: Integer; // https://www.djelfa.info/vb
j: Integer; // https://www.djelfa.info/vb
begin // https://www.djelfa.info/vb
i := 1; // https://www.djelfa.info/vb
j := StrToInt(Edit1.Text); // https://www.djelfa.info/vb
ListBox1.Items.Clear; // https://www.djelfa.info/vb
while i <= j do // https://www.djelfa.info/vb
begin // https://www.djelfa.info/vb
ListBox1.Items.Add('القيمة هى : '+IntToStr(i)); // https://www.djelfa.info/vb
i := i + 1; // https://www.djelfa.info/vb
end; // https://www.djelfa.info/vb
end; // https://www.djelfa.info/vb