Repeat/Until的語法是用來定義一段迴圈的執行邏輯。,語法如下:
Repeat
執行的指令;
Until 判斷式;
程式會不斷的執行Repeat之後的指令,一直到Until後續的判斷式變成True值時才會離開迴圈。
如果迴圈內需要執行的指令超過一個的話,則可以使用Begin/End來包圍:
Repeat
Begin
執行的指令1;
執行的指令2;
End;
Until 判斷式;
以下是一個範例:
SumValue = 0;
Repeat
Begin
SumValue = SumValue + Close[i];
i = i + 1;
End;
Until i = 4;
AvgValue = SumValue / 5;
上述範例內Repeat的迴圈會一直執行,每次執行時SumValue會累加前幾期的Close數值,同時變數 i 會每次加1。這個迴圈會一直跑到 i = 4 的時候才會離開。以這個範例而言,SumValue的數值會變成是最近5期收盤價的加總,最後算出AvgValue為最近5期的平均收盤價。