Do While 繰り返し Do While 繰り返し
Do While ... Loopは条件がTrueであるあいだ繰り返す命令です。
Delphiでも While を使用しますが記述方法が少し違います。
| ■ While の例 |
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do begin
Prepare;
Open;
while not Eof do begin
Memo1.Lines.Add(FieldByName('NAME').AsString);
Next;
end;
Close;
Unprepare;
end;
end;
|