获取0至100中的0至29,42至100， 刚开始我想的太多,要小于29，大于42，这么多条件什么的。。。。 不多说了，我自己脑子没转过来
var
i,j: integer;
begin
j := 0;
for i := 0 to 99 - 13 do begin
memo1.Lines.add(j.ToString());
if i = 29 then
j := j + 13 else
Inc(j);
end;
end;
原文：http://www.cnblogs.com/studypanp/p/4930957.html