[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.