Fórum Pontos Flutuantes.......REAL #224276

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TCalcular = Class
  Valor: Currency;
    Divisor: Double;
    Multiplicador: Double;
    Resultado: Currency;
    procedure Clear;
    procedure Execute;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
With TCalcular.Create do
  begin
  Clear;
  Valor:= 100;
  Divisor:= 21.421111;
  Multiplicador:= 31.432591;
  Execute;
ShowMessage(FloatToStrF(Resultado, ffNumber, 15, 2)); // 146,74
  Free;
  end;
end;

{ TCalcular
  Valor: Currency;
    Divisor: Double;
    Multiplicador: Double;
    Resultado: Currency;
}

procedure TCalcular.Clear;
begin
Valor := 0;
  Divisor := 0;
  Multiplicador := 0;
  Resultado := 0;
end;

procedure TCalcular.Execute;
begin
if Divisor>0 then
Resultado := (Valor / Divisor)*Multiplicador;
end;

end.