Trabajar con OOP - Duda

[[Delphius]]

Siguiendo con la explicación, El tema de usar la clase en otra unit es relativamente sencillo.

Por empezar debes declarar la Unit en la parte uses de la Unit que hace uso de la otra. Supongamos que la clase está declarada en la Unit UCalculadora y que la Unit que hace uso de UCalculadora es Unit1, entonces te queda algo así:

Código Delphi [-]
Unit Unit1;

uses
Bla, Bla, bla, ...., UCalculadora;
....

Después necesitas tener una variable que sea del tipo TCalculadora. Si va a ser usada en cualquier parte de Unit1, entonces la declaramos en la parte de var. Si va a ser usada sólo en algún procedimiento, o función pues allí.

Supongamos (y es de esperar que sea este el caso) de que se lo usará a lo largo de la Unit1. Por tanto nos queda algo como esto:

Código Delphi [-]
...
var
  Form1: TForm1;
  Calculadora: TCalculadora;
...

Ahora sólo queda definir cuando se creará la instancia. Puede que sea lo más indicado en el evento onCreate del TForm. Por tanto lo hacemos allí:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Calculadora := TCalculadora.Create;
end;

Y luego, definir cuando le damos muerte, es decir liberarlo. Puede que sea al momento de cerrar o terminar la aplicación:

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Calculadora.Free;
  Action := caFree; // Garantizamos que se libere la memoria.
end;

Y listo, ya garantizamos el tiempo de vida de dicha instancia. Ahora sólo resta usar los métodos, funciones, eventos y/o propiedades cuando sea necesario.

Puede ser por ejemplo algo como esto:

Código Delphi [-]
procedure TForm1.ButtonSumarClick(Sender: TObject);
begin
  Calculadora.SetOperando(opSuma);
end;

¿Se entiende la idea?

Saludos,