delphi 2010 下的 for xxx in XXX 语法如何转换成DELPHI7 下的语法
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;