Como has escrito el código, cada método tiene su propia variable local (el nombre o el hecho de que ambas variables se llamen igual es irrelevante). El ámbito de cada una de estas variables es solamente dicho método, por lo que al llegar al end;
dejan de existir (con los valores que pudieran tener).
Las variables de tipo objeto residen en el Stack
, cuya memoria no es inicializada, de manera que al entrar a una rutina y declarar sus variables, estas residen en direcciones de memoria que tienen información aleatoria (también llamada basura).
Tomando en cuenta esto, en el manejador de evento del segundo botón, no has inicializado el objeto racional
, y llamas a su método sumar();
, que opera con la basura que está almacenada en sus miembros primerNro
y segundoNro
. El valor que te devuelve es la suma de los valores que están en dichos miembros. Este valor puede cambiar entre una ejecución del programa y otra. Al operar sobre basura, el resultado es indefinido.
Lo primero, entonces, es que inicialices el objeto, tal como lo haces en el manejador del primer botón, por ejemplo:
procedure TForm1.Button2Click(Sender: TObject);
var
Racional: nroRacional;
begin
Racional.cargarDatos(strtofloat(Edit1.Text), strtofloat(Edit2.Text));
Memo1.Lines.Add(racional.sumar().ToString());
end;
Por otro lado, si quieres compartir el objeto entre los distintos métodos del formulario, puedes declararlo como miembro de la clase TForm1
, de manera que ahora reside dentro de la clase, se crea y se destruye junto a cada instancia del formulario, por ejemplo:
type
TForm1 = class(TForm)
private
FRacional: nroRacional;
public
//bla, bla, bla
end;
implementation
//bla,bla,bla
procedure TForm1.Button1Click(Sender: TObject);
begin
FRacional.cargarDatos(strtofloat(Edit1.Text), strtofloat(Edit2.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add(racional.sumar().ToString());
end;
Ahora, si presionas los botones en secuencia, en el Botón 1 le asignas los valores de los edits, y el el botón 2 realizas la invocación del método sumar()
, sobre el mismo objeto.
Dicho esto, quiero finalizar comentando que:
Los tipos object
se consideran obsoletos y se mantienen en el lenguaje solo por compatibilidad con código muy viejo.
La recomendación es utilizar directamente clases que, junto a TObject
, son la base del modelo de POO de Object Pascal, o utilizar estructuras tipo registros que, a estas alturas, pueden tener métodos asociados, muy a lo objeto.
Por convención, los identificadores de tipos de dato, particularmente en el ámbito de POO en Delphi, suelen comenzar con la letra T
, tal como TObject
, TComponent
, TClass
, TForm
, etc.
Nada te obliga a seguir la convención, pero hacerlo tiene el beneficio de que se te hará más natural leer código escrito por otros, así como mas fácil para otros entender el código escrito por ti, si todos siguen las convenciones.