delphi 2010 下的 for xxx in XXX 语法如何转换成DELPHI7 下的语法

Question

delphi 2010 下的 for xxx in XXX then 语法如何转换成DELPHI7 下的语法，for SubJson in [ColsJson] then
   begin
       ft := TFieldType(GetEnumValue(TypeInfo(TFieldType),'ft'+SubJson.S[cstFieldType]));
      if ft= ftAutoInc then //自增字段不能录入，必须更改
        ft := ftInteger;
      Fields.Add(SubJson.S[cstFieldName],ft,SubJson.I[cstFieldSize],SubJson.B[cstRequired]);
  end;

Answer 1

定义枚举
  TColsJsonEnum = (...);
定义集合
  TColsJsonSet = Set of TColsJsonEnumvar
  J:TColsJsonEnum;for J:=Low(TColsJsonEnum) to High(TColsJsonEnum) do
begin
........
end;

Answer 2

for in 在delphi 2006开始就加入了，d2005没用过不知道。
直接for low to high