Assim como na linguagem Delphi nativa o scripter também trabalha com os objetos seguindo seu ciclo de vida. Ou seja, fica a cargo do desenvolvedor do script tanto a criação como uso como “destruição” do objeto envolvido, para que o mesmo não fique constando em memória.
Após a criação dos objetos a boa prática é implementar a estrutura de TRY e o FINALLY. Desta forma o compilador irá tentar resolver o que está dentro da cláusula TRY e caso ocorra algum erro, então irá pular diretamente para a cláusula FINALLY e realizar a limpeza da memória para o objeto criado. Caso não ocorram erros durante a execução, a limpeza da memória será executada da mesma forma pela cláusula FINALLY.
Abaixo um exemplo de código propondo a criação de um objeto do tipo TStringList e na sequência a eliminação através do método FREE.
uses
Classes; // unit que tem a definição da classe TStringList
var
str : TStringList; //declaração da variável
begin
str := TStringList.Create; // criação do objeto
try
str.add('Testando'); //utilização do objeto
str.add(' ciclo de vida');
str.add(' de objetos no script.');
ShowMessage(str.Text);
finally
str.free; //destruição/eliminação do objeto
end;
end;
A falta da chamada ao método FREE resulta no objeto ainda em memória depois da utilização do script e isso pode gerar problemas quanto ao uso de memória pelo software e vazamentos de memória, que podem atrapalhar o uso do software como um todo.
Para facilitar ainda mais o entendimento, foi produzido um vídeo sobre este conteúdo. Para acessá-lo, utilize o link abaixo: