Delphi循环

Delphi循环

字段定义

var
  numbers: array[1..5] of Integer = (2, 4, 6, 8, 10);
  total, i, threshold: Integer;
  number: Integer;
  reversedNumbers: TList<Integer>;
  strValue: String; // 要转换的字符串变量

1、for循环

writeLn('for循环');
  for i := Low(numbers) to High(numbers) do
    Writeln('numbers[', i, ']：', numbers[i]);

2、while循环

  threshold := 5;
  i := 1;
  Writeln('while循环，找到第一个大于', threshold, '的数字');
  //     i <= 5                     numbers[i] <= 5
  while (i <= Length(numbers)) and (numbers[i] <= threshold) do
  begin
   // Writeln('i：', i);
   // Writeln(numbers[i]);

    if i <= Length(numbers) then
      Writeln('找到数字：', numbers[i]);

    Inc(i);
  end;

3、repeat-until循环

 i := 1;
  total := 0;
  repeat
    total := total + numbers[i];
    Inc(i);//inc 自增 ++1
  until (i > Length(numbers));
  Writeln('repeat-until循环，数组总和：', total);

4、for-in循环

 Writeln('for-in 循环，翻倍数组元素：');
  for number in numbers do
  begin
     Writeln(number);
  end;