Delphi repeat Until 運用

本文轉載自查看原文 2013-05-28 10:05 4437 Delphi語法/ Delphi學習

procedure TForm3.SpeedButton1Click(Sender: TObject);
Var
  I:integer;
begin
  I:=0;
  repeat
    I:=I+1;
  until I=10;
  ShowMessage(INTTOSTR(i));
end;

很少用到 repeat until，但有時候，她真的很實用

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 mysql 存儲過程 REPEAT ... UNTIL ... END REPEAT Delphi 語法基礎[1] 循環語句：While、Repeat、For delphi ----日期控件運用,日期問題，日期時間比較 Scala的to和until repeat()函數 shell的while和until 的用法（十）while和until循環循環語句until和while Shell until循環 torch.repeat 和 torch.repeat_interleave