formulario que devuelve record

[[oscarac]]

buenas noches... tengo una inquietud...

como devolver un record desde un formulario

si fuera una funcion, seria facil, solo invoco a la funcion y listo

_rx esta declarado como record

Código Delphi [-]
_rx := vc(_Cuenta);
dato1 := _rx.variable1;
dato2 := _rx.variable2;
..
..


function vc(_cuenta : string);
result.variable1 := 'valor';
result.variable2 := 'otro valor';

tengo un formulario donde necesito devolver un registro, pero no esta en ninguna funcion... no se si me he dejado entender


pienso que podria pasarlo como parametro al formulario y devolverlo (como ??)

alguna otra idea?

[Neftali [Germán.Estévez]]

Tal vez no he entendido bien la pregunta, pero puedes usar una propiedad del Tipo del "record".
Como si fuera de cualquier otro tipo.

Código Delphi [-]
type
  TRegistro = record
    Valor1:string;
    Valor2:string;
  end;

  TForm5 = class(TForm)
     ...
  private
    FRegistro: TRegistro;
  public
    property Registro:TRegistro read FRegistro write FRegistro;
  end;

Y trabajar con ella como con cualquier otra.

[[oscarac]]

si, lo sé, la pregunta es como devuelvo ese récord desde ub formulario... sin usar funciones

[[movorack]]

Hola oscarac. Lamantablemente, tampoco he logrado comprender la solución que buscas o el problema en sí.

En la respuesta de Neftalí se muestra como puedes exponer un record en un objeto de formulario.

Empezado por Neftali [Germán.Estévez]

Código Delphi [-]
type
  TRegistro = record
    Valor1:string;
    Valor2:string;
  end;

  TForm5 = class(TForm)
     ...
  private
    FRegistro: TRegistro;
  public
    property Registro:TRegistro read FRegistro write FRegistro;
  end;

Una vez expuesta esta propiedad puedes usarla en otro formulario.

Código Delphi [-]
procedure FrmMain.AbrirRegistro(Sender: TObject);
begin
  Form5.Registro.Valor1 := 1;

  if Form5.ShowModal = mrOk then
    ShowMessage(IntToStr(Form5.Registro.Valor2));  
end;

[[oscarac]]

Empezado por movorack

Hola oscarac. Lamantablemente, tampoco he logrado comprender la solución que buscas o el problema en sí.

En la respuesta de Neftalí se muestra como puedes exponer un record en un objeto de formulario.



Una vez expuesta esta propiedad puedes usarla en otro formulario.

Código Delphi [-]
procedure FrmMain.AbrirRegistro(Sender: TObject);
begin
  Form5.Registro.Valor1 := 1;

  if Form5.ShowModal = mrOk then
    ShowMessage(IntToStr(Form5.Registro.Valor2));  
end;

me funciona bien.... muchas gracias