Gracias Cadetill por tus aportaciones lo he solucionado del
siguiente modo:
var
F : String;
I : Integer;
Begin
for i := 0 to AdoQuery1.FieldDeflist.count -1 do
begin
F:= AdoQuery1.FieldDefList.FieldDefs[i]
case F.DataType of
ftString: .....
ftInteger: ....
else
String
end;
end;
end;
end;
end.
|