Como saber se um componente está criado

Delphi

20/08/2007

Se o componente não estiver criado, então criar, quase parecido com o código abaixo:

if not(DataBase.Create(nil)) then
    DataBase := TDatabase.Create(nil);


Sei que o código não funciona mas só para ter uma base.

Obrigado!


Luiz_aquino

Luiz_aquino

Curtidas 0

Respostas

Massuda

Massuda

20/08/2007

Em ObjectPascal/Delphi, todas as variáveis iniciam com zero ou nil.

No seu caso, basta testar se (a variável que recebe) o objeto é nil...
if DataBase = nil then 
  DataBase := TDatabase.Create(nil);
...entretanto isso só vai funcionar se você lembrar de ´nilzar´ a variável depois de destruir o objeto.


GOSTEI 0
Rodc

Rodc

20/08/2007

if Assigned(DataBase) then 
  DataBase := TDatabase.Create(nil);



GOSTEI 0
POSTAR