Delphi,在for循环中随时更改循环次数

时间：2017-08-19 16:16:43 收藏：0 阅读：773

Delphi在默认情况下for循环的次数是确定的、不能更改的，有时我们又有在循环中更改循环次数的需求，让我们对代码可以更灵活地控制，实现代码如下：

uses
  System.Math;

var
  I: Integer;
begin
  for I := 0 to 9 do
  begin
    ShowMessage(IntToStr(I));  //只显示0，8，9
    PInteger(@I)^ := Max(I, 7);
  end;
end;

原文：http://www.cnblogs.com/upfiles/p/7396716.html