shini

Vi um exemplo mais n entendi bem, é o seguinte: TRefreshMethod = procedure(aLista : TList; aLado : Byte) of Object; declarar a classe com uma variavel do tipo criado acima TClasse = class private Refresh : TRefreshMethod; ... public constructor newClass(aRefreshMethod : TRefreshMethod); ... end; atribuir a essa variavel Refresh (pode ser no construtor da classe) o método externo, criando a ligação entre os métodos constructor TClasse.newClass(aRefreshMethod : TRefreshMethod); begin Refresh := aRefreshMethod; end;

alguém poderia me mostra um exemplo de código de ponteiro de metodo? se possivel explicar.

Opa , valeu, deu certo

Tenho um savedialog, quando o usuario digita o nome do arquivo e escolhe a extensão e clica em "salvar" o arquivo é salvo normalmente. Porem quando ele clica em "cancelar" é criado um arquivo sem extensão. Tem alguma forma de saber se o usuario clico no botão "cancelar/cancel" do savedialog?

Acredito que o erro esta aqui, " Vencimento >=:pInicial and Vencimento <=:pFinal", o q é esse dois pontos ':' ?, faltou fechar aspas no final, esse '+' o q ta fazendo? Dm.QImpressao.SQL.Text := ('select * from Cad_Cheque where Vencimento >=:pInicial and Vencimento <=:pFinal order by +titulocheque);