{
Subprograma que inicialice a 0 toda la memoria ocupada por la variable, que puede ser de cualquier tipo
No me compila el TAnyType, porque no sé cómo se pondría)
}
PROCEDURE Inicializar (VAR X:TAnyType{en la doc del FreePascal aparece, pero el compilador no lo identifica T.T});
//El VAR es para que tome como dirección la original de la variable, y no una copia en el stack
VAR i:QWORD;
pivote:^BYTE;
BEGIN
pivote:=@X;
FOR i:=1 TO SizeOf X DO
BEGIN
pivote^:=pivote^XOR pivote^;//forma más eficiente que :=0
INC(pivote);
END;
END;