Fórum Alterar procedures dinamicamente #599941

procedure TForm.calculo1(sender: TObject);
begin
   //rotina do calculo 1
end;

procedure TForm.calculo2(sender: TObject);
begin
   //rotina do calculo 2
end;

procedure TForm.calculo3(sender: TObject);
begin
   //rotina do calculo 3
end;

if qtdobjetos<10 then
    btn1.onClick:=calculo1
else
   if qtdObjetos>10 then
      btn1.OnClick:=caluclo3
   else
      btn1.OnClick:=calculo2

type
   TCalculador = class
   public
      procedure calcular; dynamic; abstract;
   end;

   TCalculador1 = class(TCalculador)
   public
      procedure calcular; override; // aí em baixo você escreve o código desse método para o obojeto Calculador1;
   end;

   TCalculador2 = class(TCalculador)
   public
      procedure calcular; override;  // aí em baixo você escreve o código desse método para o obojeto Calculador2;
   end;

   TCalculador2 = class(TCalculador)
   public
      procedure calcular; override;  // aí em baixo você escreve o código desse método para o obojeto Calculador3;
   end;

var
   c: TCalculador;
begin
   if qtdobjetos<10 then
       c:=TCalculador1.create;
else
   if qtdObjetos>10 then
      c:=TCalculador3.create;
   else
      c:=TCalculador2.create;

c.calcular;

end;