Bueno, sería lo mismo que poner
Código:
for i := 0 to ADOQuery1.Fields.Count - 1 do
begin
case ADOQuery1.Fields[i].DataType of
ftInteger:
......
end;
end;
O sea, atacar a la propiedad Fields en lugar de la FieldDefList
No es que esté ni mejor ni peor, es una alternativa