[Oep]

دستور for :
Syntax این دستور بصورت زیر است:

کد:

for loopIndex := initialValueExpression to finalValueExpression do
begin
  statements
end;

بجای to می توانید از downto استفاده که مقدار شمارشگر حلقه را کاهش میدهد.تکه کد زیر جمع اعداد از 1 تا 10 را محاسبه می کند :

کد:

for i:= 1 to 10 do
  begin
    sum := sum + i;
  end;

دستور while نیز یک نوع دیگر ازحلقه ها محسوب میشود و syntax آن نیز بصورت زیر است:

کد:

while condition do
begin
  statements
end;

برای منتظرماندن ورودی کاربر می توان این چنین بنویسیم:

کد:

while (getKeyClicked = KE_NONE) do
  begin
    delay(100);
  end;

دستور repeat/until نیزبدین صورت است:

کد:

repeat
  statements;
until endingCondition;

مثال قبلی را با این دستور میتوان بدین صورت پیاده سازی کرد:

کد:

repeat
    delay(100);
    until (getKeyClicked <> KE_NONE)

دستور Break برای خروج از حلقه استفاده می شود که در تمامی انواع حلقه های ذکرشده بالا می توان استفاده نمود.به این مثال توجه کنید:

کد:

repeat
    for i := 1 to 10 do
    begin
      if doSomething(i) = -1 then break; // break from for-loop
    end;

  until getClickedCommand <> emptyCommand;

دستورات If-then-else نیز براحتی می توان استفاده نمود.شکل کلی دستور بصورت زیر است:

کد:

if condition then
begin
  statements; { condition true branch }

end
[
else
begin
  statements; { condition false branch }

end;
]

توجه:هرگاه دستورات بیش از یک خط بشود احتیاج begin/end خواهیم داشت.اگر دستور یک خط باشد می توان از begin/end استفاده نکرد.

عملگر انتساب نیز به شکل زیر است که از := استفاده میشود:

کد:

variable := value;

فراخوانی یک روتین تنها نام آن را ذکرکرد:

کد:

routine;