Otra duda con OOP

[[maeyanes]]

Hola...

Si te entendí bien podrías hacer algo como:

Código Delphi [-]
type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    // demás componentes
  private
    function GetValor1: Double;
    function GetValor2: Double;
  public
    property Valor1: Double read GetValor1;
    property Valor2: Double read GetValor2;
  end;

implementation

functino TForm2.GetValor1: Double;
begin
  if Trim(Edit1.Text) <> '' then
    Result := StrToFloat(Edit1.Text)
  else
    Result := 0
end;

functino TForm2.GetValor2: Double;
begin
  if Trim(Edit2.Text) <> '' then
    Result := StrToFloat(Edit2.Text)
  else
    Result := 0
end;

procedure TForm2.btnSumaClick(Sender: TObject);
begin
  Edit3.Text := FloatToStr(Calc.Suma(Valor1, Valor2))
end;

Espero que el ejemplo te de una idea de como lo podrías hacer...


Saludos...