Repeat 循環

Repeats := s+1;i := i+1; Until (i > j) ;var s,i:Integer; begini:=0;s:=0;repeatbegini := i+1;s := s+i;end;until(i=100);lbl1.Caption := IntToStr(s); end;

?while 循環

while (i > j) do begin//業務代碼 end;var s,i:Integer; begini:=0;s:=0;while (i<100) dobegini := i+1;s := s+i;end;lbl1.Caption := IntToStr(s); end;

?for循環

for i:=0 to 100 do beginend;var s,i:Integer; begins := 0;for i:=0 to 100 dobegins := s+i;end;lbl1.Caption := IntToStr(s); end;

?

總結

以上是生活随笔為你收集整理的delphi 循环语句的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。