Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Recuperar datos de un form (https://www.clubdelphi.com/foros/showthread.php?t=83616)

joseprad 07-07-2013 19:39:34

Recuperar datos de un form
 
Hola. Necesito recuperar los datos generados en un formulario hijo desde el formulario padre.
No se si me explico, pongo un ejemplo:
Código Delphi [-]
procedure Tfrom1.CrearForm
var
  Nombre:string;
  Cantidad:integer;
begin
  with TFormulario.Create(@Nombre,@Cantidad,self)
  try
    showmodal;
  finally
    free;
  end
end;

En este caso no tengo problema pasando las variables como punteros los pueden recuperar.
Lo que ocurre es que tengo que pasar y recuperar un conjunto de 20 variables y quisiera pasarlos como un registro o una calase, pero no se como hacerlo.

Agradeceré cualquier tipo de ayuda

ElKurgan 08-07-2013 08:11:41

Pues suponiendo que tienes un tipo, por ejemplo, record asi:
Código Delphi [-]
Type  
  TRegistro=Record  
  <<< Lista de campos>>>  
  end;
Y en el formulario una variable llamada Registro, del tipo TRegistro, la recuperación la harías como sigue:

Código Delphi [-]
procedure Tfrom1.CrearForm
var
  Nombre:string;
  Cantidad:integer;
  MiRegTemporal: TRegistro;
begin
  with TFormulario.Create(@Nombre,@Cantidad,self)  
  try
    showmodal;
    MiRegTemporal := Registro; //  La variable Registro es del formulario creado dinámicamente
    // Uso aqui MiRegTemporal como necesite.
  finally
    free;
  end
end;

Espero que te sirva.Saludos

joseprad 10-07-2013 20:29:28

Perfecto.
Muchas gracias. Ha sido de gran ayuda.


La franja horaria es GMT +2. Ahora son las 13:09:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi