Cita:
Posteado originalmente por Jose Manuel
He incluido esta instrucción en el Datamodulo de mi aplicación,
procedure TfDataModulo.fDataModuloCreate(Sender: TObject);
begin
IsBDEExist := (dbiInit(nil) = 0)
.....
.....
End;
y me da el siguiente error al compilarlo, tal vez me falte algún USES, no sé:
[Error] Database.pas(531): Undeclared identifier: 'IsBDEExist'
|
No te falta ningún uses sino leer con un poco más de cuidado antes de copiar y pegar. El truco esencialmente dice (mejor dicho la línea de código por que el truco en sí no lo he visto) que si la funcion dbiInit devuelve 0 es porque sí está instalado y si devuelve distinto de cero es porque no está instalado.
Entonces, la expresión (dbiInit(nil) = 0),
que es una expresión booleana, la puedes asignar a una variable de tu elección, declarada por tí.
// Saludos