function TACBrInformacoes.Add(Obj: TACBrInformacao): Integer; begin inherited Add(Obj); end;

[Antonio Gomes]

@EMBarbosa

Precisa colocar um Result ?

function TACBrInformacoes.Add(Obj: TACBrInformacao): Integer;
begin
  inherited Add(Obj);
end;

Grato!

[EMBarbosa]

45 minutos atrás, Antonio Gomes disse:

@EMBarbosa

Precisa colocar um Result ?

function TACBrInformacoes.Add(Obj: TACBrInformacao): Integer;
begin
  inherited Add(Obj);
end;

Grato!

Me parece que sim.

Muito obrigado pela contribuição. Já corrigi.

Subi as alterações para o SVN na Revisão  18402.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[Daniel Simoes]

Obrigado a todos.. falha minha...