Algoritmos y Programación en Pascal

16.2. Aplicaciones no recursivas de los punteros 345
16.2.1 Asignación de objetos no simples
Esta aplicación adquiere mayor relevancia cuando se consideran registros de
gran tamaño en los que el problema es el elevado coste al ser necesaria la copia
de todas sus componentes. Por ejemplo, en la situación
type
tFicha = record
nombre: ...
direccion: ...
...
end; {tFicha}
var
pers1, pers2: tFicha;
la asignación pers1:= pers2 es altamente costosa si el tipo tFicha tiene grandes
dimensiones.
Una forma de economizar ese gasto consiste en usar sólo su posición, haciendo
uso de punteros:
var
p1, p2: ^tFicha;
en vez de las variables pers1 y pers2. Entonces, la instrucción
p1:= p2
es casi instantánea, por consistir tan sólo en la copia de una dirección.
El artificio anterior resulta útil, por ejemplo, cuando hace falta intercambiar
variables de gran tamaño. Si se define el tipo
type
tApFicha = ^tFicha;
el procedimiento siguiente efectúa el intercambio rápidamente, con independencia
del tamaño del tipo de datos fichas:
procedure Intercambiar(var p1, p2: tApFicha);
var
aux: tApFicha;
begin
aux:= p1;
p1:= p2;
p2:= aux
end; {Intercambiar}