Variables Apuntando A Otra Variable

[usuario1000]

Hola a todos.
¡¡¡Espero que estéis todos bien!!!
Tengo una duda y después de buscar por ahí y en el foro no he encontrado mucho que me sirva.
Es algo tan sencillo como guardar "el nombre de una variable" en UNA "variable" y luego utilizar esa "variable" para asignarle un valor, pero que realmente se lo estás asignando a la variable que está guardada en esa segunda variable.
En otros lenguajes sería algo así como(no recuerdo exactamente la sintaxis)

b = &c; // guardo en b el nombre de la variable que contiene C.
&c = 15; // Estaría guardando 15, no en C, sino en el nombre de la variable que contiene C.

Saludos.

[Casimiro Notevi]

Creo que te refieres a punteros, no a "nombre de la variable".

Código Delphi [-]
var
  i: integer; 
  a: integer;     
  Pi: PInteger;
begin
  i:= 100;
  Pi:= @i;  <<--- Fill pointer to i with the address of i
  a:= Pi^;  <<--- Complicated way of writing (a:= i)
            <<--- Read: Let A be what the pointer_to_i points to
  Pi^:= 200;<<--- Complicated way of writing (i:= 200)
  writeln('i = '+IntToStr(i)+' and a = '+IntToStr(a));

[usuario1000]

Muchas gracias por tu pronta respuesta.

Lo pondré en práctica.

Gracias.

[usuario1000]

Siento decir que no me ha funcionado.


El problema es que tengo 5 variables globales declarada de la siguiente forma:





aux_reg1_remesas: array[0..299] of char;
aux_reg2_remesas: array[0..299] of char;
aux_reg3_remesas: array[0..299] of char;
aux_reg5_remesas: array[0..299] of char;



Las posiciones de cada una de las variables las voy rellenando mediante una "función en comun" que utilizo con la siguiente estructura:

Código Delphi [-]
function encomun(variable:PInteger; cadena:string; longitud:integer); // no sé como declarar el parámetro de la funcion "variable", pero así no funciona.

var 

  i:integer;

begin
     // aquí asigno el valor a la posición que me interesa de la variable que quiera de las 5 anteriores.
   ...

     variable[i] := cadena; // no es exactamente así pero la idea es esta. No se como ponerlo aquí para que el compilador lo acepte.

   ...

end




procedure registro;
begin
     ....

     encomun(aux_reg1_remesas, cadena, 3); // La idea es que le mando a la funcion "encomun" la variable que quiero rellenar con la cadena que quiero y con las posiciones que quiero.
     encomun(aux_reg2_remesas, cadena, 5); // La idea es que le mando a la  funcion "encomun" la variable que quiero rellenar con la cadena que  quiero y con las posiciones que quiero.
     ....
     ....

end;

Espero haberme explicado.


Gracias.

[Casimiro Notevi]

Si declaras esto:

Código Delphi [-]
aux_reg1_remesas: array[0..299] of char;

Y a la función envías ese array de char:

Código Delphi [-]
encomun(aux_reg1_remesas, cadena, 3);

No puedes esperar allí un puntero a entero (pinteger)

Código Delphi [-]
function encomun(variable:PInteger; cadena:string; longitud:integer);

O no lo he entendido.

[mamcx]

Existe razones para usar punteros.

MUY raramente.

---

Una de las lecciones para mantener un código sin líos es EVITAR MUTACIONES (osea: reducir al máximo el alterar los datos desde multiples puntos). Un ejemplo concreto es todo lo que se parezca a una variable global (que es lo que esto parece).

Es mejor pasar los datos, y crear nuevos en base a estos. Algo asi:

Código Delphi [-]
function generar(entrada):array[0..299] 
begin
  nuevo := array[0..299];
  //copias o generas los datos desde entrada y retornas
  result:= nuevo;
end