| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
tchadrack
Novato
Registrado: Terça-Feira, 22 de Novembro de 2016
Mensagens: 32
|
 Enviada: Qui Jan 18, 2018 4:59 pm Assunto: Free And Nil - |
 |
|
Digamos que eu tenha por exemplo, a seguinte situação:
| Código: |
TTeste = class
end;
Texemplo = class
public
teste : TTeste;
end;
|
Então eu crio o objeto:
| Código: | | exemplo := TExemplo.create; |
-->aqui a propriedade exemplo.teste é igual a 'nil'
Chamo o método create:
| Código: | | exemplo.teste := TTeste.create; |
Agora eu quero libera-lo da memoria, para que exemplo.teste volte a ser nil,
Como devo proceder?
Se chamo exemplo.teste.free, ele não fica como nil.
E se tento chamar o método freeandnil(exemplo.teste) recebo uma mensagem de erro:
E2197 Constant object cannot be passed as var parameter
Alguém sabe a maneira correta de fazer isto? |
|
| Voltar ao Topo |
|
 |
tchadrack
Novato
Registrado: Terça-Feira, 22 de Novembro de 2016
Mensagens: 32
|
| Enviada: Sex Jan 19, 2018 7:54 am Assunto: |
|
|
Colocar um método na própria classe TExemplo, que faça:
| Código: | | FreeAndNil(FTeste); |
|
|
| Voltar ao Topo |
|
|
viox
Colaborador
Registrado: Sábado, 22 de Outubro de 2011
Mensagens: 1090
Localização: SINOP - MT
|
| Enviada: Qui Jan 25, 2018 12:59 pm Assunto: |
|
|
Olá amigo as boas práticas diz que deve ser algo mais ou menos assim...
| Código: |
TTeste = class(TObject);
TExemplo = class(TObject)
strict private
FTeste: TTeste;
public
constructor Create();
destructor Destroy(); override;
property Teste: TTeste read FTeste write FTeste;
end;
//implementacao
constructor TExemplo.Create;
begin
inherited;
FTeste := TTeste.Create();
end;
destructor TExemplo.Destroy;
begin
FTeste.Free();
inherited;
end; |
A não ser que seu caso seja outro bem especifico
_________________
Just another Delphi guy.
http://www.soft42.com
http://www.nortaonegocios.com.br |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
