ActiveDelphi

informacaoweed

Esta é a assinatura da procedure:

claudio.ferreira · Enviada: Ter Jul 22, 2014 11:56 am Assunto:

Retire o var da assinatura.

procedure LiberarObj(Obj: TObject);

e teste veja se funciona.

Objetos já são ponteiros, se voce coloca var está passando ponteiro de ponteiro. O Delphi não aceita, já que não há necessidade.
_________________
Sistema SNGPC para farmácias
http://www.cmasistemas.com.br
Rastreabilidade de Medicamentos
https://www.sncm.com.br
Soluções em Delphi
https://delphisolutions.wordpress.com/
.
"E não sabendo que era impossível, foi lá e fez"
Mark Twain

claudio.ferreira · Enviada: Ter Jul 22, 2014 12:04 pm Assunto:

Funcionou aqui :

informacaoweed · Enviada: Ter Jul 22, 2014 1:49 pm Assunto:

Oi Claudio blz,
Funcionou sim cara, obrigado por dar atenção.

Só que o que acontece é o seguinte: quando colocamos somente o parâmetro, sem nenhuma diretiva (acho que é isso) este parâmetro é, por default, um parâmetro de entrada. O que isto significa? que a procedure recebe o valor da variável passada pra dentro da procedure, mas não devolve o valor a variável, isto é, o valor da variável passada e recebido no parâmetro da procedure, e lá dentro vc pode trabalhar com este parâmetro mas tudo que vc fizer não surgirá efeito na variável quando a procedure terminar de ser executada.

Quando declaramos o parâmetro antecedido pela palavra reservada VAR o parâmetro recebe então a variável em sim, um ponteiro para ela (sei lá se é). Em resumo, só sei que ao declarar um parâmetro com var este torna-se um parâmetro de entrada e saída, e as modificações que foram feitas dentro da procedure terão efeito na variável depois que se encerrar execução da procedure.

Curiosidade:
Também há a palavra reservada out, o efeito dela é o contrário do default: vc coloca uma variável no parâmetro, e não importa o valor que ela tenha, não será recebido dentro da procedure, porém o valor que a lá dentro da procedure foi atribuído a variável, é este valor que a variável terá ao terminar a execução da procedure. Ou seja, é um parâmetro só de saída, pois não entra valor, somente sai.

Teste neste mesmo exemplo, perceba que se você der um LogRel.Free; LogRel := nil; Dentro da procedure, o objeto LogRel em si continuará com valor depois da execução da mesma.

informacaoweed · Enviada: Ter Jul 22, 2014 1:56 pm Assunto:

Eu cirei este método como alternativa ao FreeAndNil que me retorna o mesmo erro. E pelo mesmo motivo. Porque não posso passar uma propriedade como parâmetro declarado com "var".
Mas a propriedade LogRel efetua leitura e escrita da variável FLogRel e esta sim eu posso enviar ao FreeAndNil.

Por isso, consigo libera-lo da memória assim