循环结构语句

for…do语句

//循环变量为整数类型
function GetIntLoopNumber:integer;
var
  iResult,iCount:integer;
begin
  iResult:=0:
  for iCount:=0 to 10 do
    Inc(iResult);
    result:=iResult;  //result=10,自加10次
end;

//循环变量为枚举类型
type
  TWeeks=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday):
 ....
function GetTypeLoopNumber:integer;
var
  iResult:integer;
  iCount:TWeeks;
begin
  iResult:=0:
  for iCount:=Monday to Friday do
    Inc(iResult);
    result:=iResult;  //result=7,自加7次
end;

//循环变量为字符类型
function GetCharLoopNumber:integer;
var
  iResult:integer;
  iCount:Char;
begin
  iResult:=0;
  for iCount:='A'to 'T'do
    Inc(iResult);
    result:=iResult;  //result=19,自加19次
end;

repeat…until语句

Repeat 语句或语句块 Until 条件表达式，当条件表达式的值为Tue时，结束循环

function GetValue:integer;
var
  i,j:integer;
begin
  i:=0;
  j:=0;
  repeat
    j:=j+i;
    inc(i);
  until
    i>10;      //当j>10时结束循环
  result:=i;   // result结果为5
end;

While…do语句

While 条件表达式 do 语句或语句块，当条件表达式的值为True时，开始循环

计算0到4的累加值：
function GetValue:integer;
var
  i,j:integer;
begin
  i:=0;
  j:=0;
  while i<4 do begin
    j:=j+i;
    inc(i);
  end;
  Result:=j;
end;

《Delphi应用开发完全手册》p54