Do Until 繰り返し Do Until 繰り返し
Do Until ... Loopは条件がTrueになるまで繰り返す命令です。
Delphiでは Repeat . . Until を使用します。
| ■ repeat .. until の例 |
procedure TForm1.Button1Click(Sender: TObject);
var
ix : integer;
begin
ix := 0;
repeat
inc(ix);
until (ix > 10);
end;
|