Erro ao atribuir um metodo a um evento

[DanielR]

Bom dia todos

Bem tenho que um relatorio base e o mesmo cria um ClietDataSet em tempo de execução, preciso definir que apos a abertura do ClientDataSet (AfterOpen) um metodo seja carregado.

Fiz assim (mas ta dando o seguinte erro: left side cannot be assigned to'):

procedure TfrmBaseReport.doAbreDados;

begin

cdsDados.AfterOpen(cdsDados) := depoisDeAbrir; // o erro esta nesta linha

cdsDados.Close;

cdsDados.Data := dadosole;

cdsDados.Open;

cdsDados.RecordCount;

end;

procedure TfrmBaseReport.DepoisDeAbrirCds;

begin

// falta fazer o código

end;

Desde já agradeço.

Valeu!

[Jhonas]

Fiz assim (mas ta dando o seguinte erro: left side cannot be assigned to):

erro : lado esquerdo não pode ser nomeado

cdsDados.AfterOpen(cdsDados) := depoisDeAbrir; // o erro esta nesta linha

se isso for uma procedure ou function, voce deve procurar verificar as regras para a chamada das mesmas, veja no help do delphi, pois dessa maneira esta incorreto.

abraço

[Spyhat]

Olá DanielR, boa tarde!

A declaração abaixo está correta, então nem preciso comentar.

procedure TfrmBaseReport.doAbreDados;

begin

cdsDados.AfterOpen(cdsDados) := depoisDeAbrir; // o erro esta nesta linha

cdsDados.Close;

cdsDados.Data := dadosole;

cdsDados.Open;

cdsDados.RecordCount;

end;

A coisa está errada na declaração "procedure TfrmBaseReport.DepoisDeAbrirCds", pois quando você tem um método que será atribuído a um evento, este método recebe o Objeto por parâmetro, ou seja, você deverá declarar conforme segue:

procedure TfrmBaseReport.DepoisDeAbrirCds(Sender: TObject);

begin

// falta fazer o código

end;

Desta forma não irá ocorrer o erro que você menciona;

Quando for tratar o objeto na Procedure, procure usar TypeCast, ou seja, faça referência na seguinte forma:

- TClientDataSet(Sender).Open;

- TClientDataSet(Sender).Close;

- ...

Espero ter ajudado!