Clase para hacer ABM
 

Hice una clase para hacer ABM a traves de BDE todo funciona ok.
Pero ahora quise cambiarla por un componente de acceso directo a la base de datos en este caso firebird use zeoslib.
Me encuentro que en la tabla no existe la propiedad indexfieldcount yo la uso para posicionarme en el siguiente campo que no sea parte de la clave para poder modificar, etc.
Ahora bien para suplir esto hice lo siguiente:

Código Delphi [-]
 var
   i,cantidad:integer;
 begin
   cantidad := 0;
   for i := 0 to tabla.FieldCount -1 do
   begin
     if tabla.Fields[i].IsIndexField then inc(cantidad);
   end;

Pero siempre en cantidad me retorna 0, la instrucción

Código Delphi [-]
   if tabla.Fields[i].IsIndexField then inc(cantidad);

siempre me retorna false, que puedo estar haciendo mal ?
Desde ya muchas gracias por vuestro tiempo.
Saludos a todos

Quizás te convenga usar los Mercury en lugar de Zeos, estan más avanzados y tambien son Open Source.

saludos

Componentes MDO
 

Hola,
Gracias por tu respuesta.
Ya los baje y los probe con el código que puse en hilo y no me funcionó tampoco
use la propiedad indexfieldcount y me devuelve 0.

Componentes MDO
 

Hola,
También use el código con el que empezo el hilo y tampoco funciono, como que no reconoce que el campo es parte de la clave de la tabla.
Gracias a todos
Saludos