Versions Compared

Old Version 2

changes.mady.by.user Luciano César Ascari

Saved on

compared with

New Version 3

changes.mady.by.user Luciano César Ascari

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Abaixo um exemplo de código propondo a criação de um TClientDataSet TStringList, sua utilização usando a dmConexao3c para buscar dados no banco de dados, o ShowMessage para simplesmente exibir em tela e sua eliminação através do método free. 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.

Code Block
languagedelphi
uses
  Classes; // unit que tem  DB, DbClient;a definição da classe TStringList

var
  cdsstr : TClientDataSetTStringList; //declaração da variável
begin
  cdsstr := TClientDataSetTStringList.Create(nil); // criação do objeto
  try
       
    str.add('Testando'); //utilização do objeto
    cds.Data := dmConexao3c.QueryPegaData('SEL_PESQUISAFILTRO', 
                                          'RAZAOSOC, CNPJ',
                                         ['?', '1:s', 'FILIAL',
                                          '?', '2:s', 'ESTAB = :ESTAB',
                                          'P', 'ESTAB', oDadosSis.EstabSelecionado],   
                                         [ftString, ftString, ftInteger],
                                         [300, 50, 0]str.add(' ciclo de vida');
    showMessagestr.add('Razão social:de 'objetos +no cdsscript.fieldByName('RAZAOSOC').value;
+ #13#10+   
              'CNPJ = ' + cds.fieldByName('CNPJ').valueShowMessage(str.Text);
  finally
                                         
    cdsstr.free; //destruição/eliminação do objeto
da memória.
  end;    
end;