Ver Mensaje Individual
  #1  
Antiguo 18-09-2020
jdelsol jdelsol is offline
Registrado
 
Registrado: dic 2014
Posts: 5
Reputación: 0
jdelsol Va por buen camino
Smile Necesito resolver este problema

Hola a todos y gracias de antemano

Tengo este problema que no se si es posible hacer de esta manera.

Digamos que he definido una estructura de datos de la siguiente forma:

Código Delphi [-]
type
 TAsentamiento = record
 Valor1: Real;
 Valor2: Real;
 Valor3: Real;
end;

type
 TDeslizamiento= record
 Valor1: Real;
 Valor2: Real;
 Valor3: Real;
end;

type
 TResultados = record
  Asentamiento: TAsentamiento;
  Deslizamiento: TDeslizamiento;
end;

Y luego digamos que tengo que asignar los valores Valor1, Valor2 y Valor3 del Tipo TAsentamiento o TDeslizamiento, y lo quiero hacer de esta manera:

Código Delphi [-]
Var 
 Resultados: TResultados;
 A: TipoDeVariable;

begin
 
 if (condicion) then
  A:= Resultados.Asentamiento 
   else
  A:= Resultados.Deslizamiento;

 With A do
  begin
   A.Valor1:= 3;
   A.Volar2:= 5;
   A.Valor3:= 9;
  end;

end;

Mi duda: Esto se puede hacer? Como tendría que estar definido A para que esto funcione, Cual sería la forma correcta de hacerlo?

Espero me puedan ayudar
Saludos
Responder Con Cita