OOP - Como fazer?

Question

N�o consigo fazer funcionar a minha calculadora abaixo, no caos somente o m�todo soma. Preciso num outro Form, chamar a minha classe Calculadora e fazer funcionar. Consigo instanciar a classe e chamar...

Brunodsr · Answer

N sei se entendi mto bem, mas da uma olhada no sharemem do dephi, via help.J� passei por um problema parecido, mas eu estava usando Strings.Espero ter ajudado....

Emerson Nascimento · Answer

nos seus m�todos SetXXX o correto seria atribuir o valor ao campo FXXX e n�o � propriedade....

Cicero-padim · Answer

Bem n�o � pra existir erro se vc colocar dois m�todos indispensaveis para uma classe em Delphi
s�o eles

constructor Create;
destructor Destroy;

Os m�todos para inicializa��o e finaliza��o da classe tente eles
H� e n�o esque�a de inicializar as varieveis private;

C�cero;

Emerson Nascimento · Answer

os m�todos Create e Destroy s�o dispens�veis neste caso, pois voc� n�o tem a necessidade de criar outras inst�ncias de classe dentro da sua classe. a �nica coisa que eu observei realmente foi a atribui��o � propriedade nos m�todos SetXXX e deveria ser feita atribui��o aos campos.
veja o exemplo:

unit Unit2;

interface

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

type
  TCalculadora = class
  private
    FOp1, FOp2: integer;
    procedure SetOp1(Value: integer);
    procedure SetOp2(Value: integer);
    function GetOp1: integer;
    function GetOp2: integer;
  public
    property Op1: integer read GetOp1 write SetOp1;
    property Op2: integer read GetOp2 write SetOp2;
    function Soma: integer; overload;
    function Soma(Valor1, Valor2: integer): integer; overload;
    function Resta: integer;
  end;

implementation

{ TCalculadora }

function TCalculadora.GetOp1: integer;
begin
  Result := FOp1;
end;

function TCalculadora.GetOp2: integer;
begin
  Result := FOp2;
end;

function TCalculadora.Resta: integer;
begin

end;

procedure TCalculadora.SetOp1(Value: integer);
begin
  if Value <> FOp1 then
    FOp1 := Value; // era: Op1 := Value;
end;

procedure TCalculadora.SetOp2(Value: integer);
begin
  if Value <> FOp2 then
    FOp2 := Value; // era: Op2 := Value;
end;

function TCalculadora.Soma: integer;
begin
  result := FOp1 + FOp2;
end;

function TCalculadora.Soma(Valor1, Valor2: integer): integer;
begin
  result := Valor1 + Valor2;
end;