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