Necesito resolver este problema

[jdelsol]

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

[[escafandra]]

Imagino que lo que quieres es modificar cosas en la variable Resultados, bien en Asentamiento o Deslizamiento según una condición.



Prueba de esta manera:

Código Delphi [-]
type 



TValores = record
 Valor1: Real;
 Valor2: Real;
 Valor3: Real;
end;
PValores = ^TValores;

TResultados = record
  Asentamiento:  TValores;
  Deslizamiento: TValores;
end;



//....................................





var
  Resultados: TResultados;
  A:          PValores;   // Un puntero de tipo TValores
begin
  // Asignamos el puntero según una condicion

  if condicion then
    A:= @Resultados.Asentamiento
  else
    A:= @Resultados.Deslizamiento;

  // Las siguientes asignaciones están cambiando valores en la variable Resultados
  A.Valor1:= 3;
  A.Valor2:= 5;
  A.Valor3:= 9;
end;

Saludos.

[jdelsol]

Muchísimas gracias amigo escafandra.

Su respuesta me fue muy útil, era lo que necesitaba...

Saludos

[Elcanxd]

Empezado por jdelsol

Muchísimas gracias amigo escafandra.

Su respuesta me fue muy útil, era lo que necesitaba...

Saludos

Que bueno que te pudieron ayudar con tu problema, este foro es para eso, para ayudarnos entre colegas