30-07-2009, 09:59 PM
السلام عليكم
بما أن درس الحلقات لم يتطرق لهدا الاجرائين اغتنمت الفرصة لأضع شرحا مبسطا حول استعمالهما في
الحلقات التكرارية
[FONT="Arial Black"]الاجراء Break
يستخدم هدا الاجراء للخروج الفوري من الحلقة التكرارية وغالبا عند حدوت شرط معين
[FONT="Arial Black"]الاجراء Continue
يستخدم هدا الاجراء للعودة الى بداية الحلقة و مواصلتها وليس جعل الحلقة تبدأ من أول عنصر
وهده أمثلة للتوضيح
وهدا مثال ل Break
بما أن درس الحلقات لم يتطرق لهدا الاجرائين اغتنمت الفرصة لأضع شرحا مبسطا حول استعمالهما في
الحلقات التكرارية
[FONT="Arial Black"]الاجراء Break
يستخدم هدا الاجراء للخروج الفوري من الحلقة التكرارية وغالبا عند حدوت شرط معين
[FONT="Arial Black"]الاجراء Continue
يستخدم هدا الاجراء للعودة الى بداية الحلقة و مواصلتها وليس جعل الحلقة تبدأ من أول عنصر
وهده أمثلة للتوضيح
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:= 1 to 5 do
begin
if i = 3 then
Continue;
ShowMessage('Le Nombre est'+ IntToStr(i));
end;
end;
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
i:=0;
while i<10 do
begin
Inc(i);
if i = 1 then
Continue;
ShowMessage('Le Nombre est'+ IntToStr(i));
end;
end;
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
i:=0;
repeat
Inc(i);
if i = 1 then
Continue;
ShowMessage('Le Nombre est'+ IntToStr(i));
until i=10;
end;
وهدا مثال ل Break
PHP كود :
procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
for i:= 1 to 5 do
begin
if i = 3 then
Break;
ShowMessage('Le Nombre est'+ IntToStr(i));
end;
end;
