Cita:
Empezado por roman
Bueno, pero entonces el error no estaba donde nos habías dicho. Ahora tiene más lógica porque supongo que los campos calculados no entran en el arreglo FieldDefs (no lo he verificado). Quizá en la función GetTipoCampo podrías usar el arreglo Fields en lugar de FieldDefs.
// Saludos
|
SOLUCIONADO
En primera instancia el error estaba ahi. Luego de modificar la función acorde a tu idea, se me generó un error en la función.
Efectivamente los calculados no deben entrar en el arreglo FieldDefs, puesto a que probando no he podido acceder a esos campos. Lo que hice es utilizar el arreglo Fields como sugeriste y sanear asi la excepción, utilizando la propiedad Calculated.
Todo me ha vuelto a funcionar de maravillas permitiendome agregar cuanto campo calculado necesite.
Muchas gracias a todos.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;