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