TIBDataBaase

25/02/2003

2

No evento BeforeConect do meu TIBDatabase eu tenho o seguinte comando:

var
Arq: String;
Str: TStringList;
begin
Str:= Nil;
Arq:= ExtractFilePath( Application.ExeName ) + ´Banco.hav´ ;

If FileExists( Arq ) then
begin
try
Str:= TStringList.Create;
Str.LoadFromFile( Arq );
DB.DatabaseName:= Trim( Str[0] );
finally
Str.Clear;
Str.Free;
end;
end;
end;


O que está errado?
O delphi está dizendo... Undeclared identifinder ´Application´
Por que? Como Faço?


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar