No me gustaría que este tema se quedara así  .
¿Por qué no te sale? Si en el combo1 tenemos los nombres de campos:
Código Delphi [-]
var idx :integer;
begin
idx := query1.Fields.indexof(combo1.items[combo1.itemindex]);
case Query1.Fields[idx].Datatype of
.....
end;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|