TIBDataBaase
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?
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?
Anonymous
Curtidas 0
Respostas
Dbezerra
25/02/2003
fale, meu caro.
isso estah acontecendo pq, provavelmente vc esta executando esta rotina num Data Module. na declaracao de units na interface de um data module naum se encontra a unit q tem a classe TAPPLICATION, da qual vc faz referencia qdo faz Application.ExeName
a solucao q eu te dou eh colocar esta rotina num form ou pegar o nome do database atraves de um outro lugar... pq naum coloca o caminho do database numa sequencia dentro de uma chave do registro do windows??
espero ter ajudado
Daniel Bezerra
isso estah acontecendo pq, provavelmente vc esta executando esta rotina num Data Module. na declaracao de units na interface de um data module naum se encontra a unit q tem a classe TAPPLICATION, da qual vc faz referencia qdo faz Application.ExeName
a solucao q eu te dou eh colocar esta rotina num form ou pegar o nome do database atraves de um outro lugar... pq naum coloca o caminho do database numa sequencia dentro de uma chave do registro do windows??
espero ter ajudado
Daniel Bezerra
GOSTEI 0
As-mad
25/02/2003
Mas caso queira tentar, vc pode declarar a unit Forms no uses que possui a declaração do TApplication, mas não sei se internamente ele conseguiria obter o objeto Application corretamente, só estou dizendo isso mais pra teste.
GOSTEI 0