Artigos Delphi Errata ClubeDelphi 106 - Métodos da Teoria à prática.
Olá Pessoal,

Estive recebendo alguns e-mails sobre o meu artigo de métodos relatando que o código da Listagem 2 não foi impresso na revista. Verificando, constatei que realmente o código não consta no artigo. Segue então uma errata da Listagem 2 com o código que faltou. Peço desculpas, e estou inteiramente a disposição para o que precisarem!

Listagem 2.  Evento OnClick do botão btnCalcular

01  procedure TfrmPrincipal.btnCalcularClick(Sender: TObject);

02  var Operacao : TOperacao;

03  begin

04    case rgOperacao.ItemIndex of

05    0 : Operacao := toSoma;

06    1 : Operacao := toSubtracao;

07    2 : Operacao := toDivisao;

08    3 : Operacao := toMultiplicacao;

09    end;

10    edtOpResultado.Text :=

11      TMathClass.ExecutaOperacao(

12        edtOp1.Text,

13        edtOp2.Text,

14        Operacao);

15  end;


Um grande abraço,
Daniel.