Delphi - Paso parámetros en un procedimiento

 
Vista:

Paso parámetros en un procedimiento

Publicado por Angel (4 intervenciones) el 27/11/2005 20:08:07
Buenas... a ver si alguien me puede resolver un problemita que me ha surgido...
Necesito hacer un procedimiento con un parámetro tipo registro 'desconocido', pues el procedimiento que voy a implementar no necesita conocer el contenido del registro. El caso concreto es el siguiente: necesito un procedimiento que me guarde en un fichero el contenido de un registro pasado como parámetro, pero sin indicar el tipo de registro que es. Lo de guardar el contenido es facil, pero ¿como puedo pasarlo como parametro sin indicar el tipo de registro que es?.

Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Paso parámetros en un procedimiento

Publicado por M@rceloL (214 intervenciones) el 27/11/2005 23:26:31
En principio, una variable de tipo Variant. Algo como:

procedure pepe(var Param:variant);

Lo que no sé es si podrás pasar un registro, es decir, el variant se convierte en cualquier tipo de dato simple (integer, real, word, char...) no sé qué pasará con un registro.

Quizás tengas que hacer un casting.

Lo otro que se me ocurre es que reciba un arreglo de bytes. Algo como

type TArrByte=array of byte;

procedure pepe(var Param: TArrByte; Long:integer);

Entonces uno podría hacer algo así:

pepe(TArrByte(MiRegistro),sizeof(MiRegistro));

Y adentro de pepe escribir el arreglo, recorriendo desde 0 hasta Long.

Espero te sirva, saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar