Há alguns casos em específico que precisaríamos alterar
um valor de uma contante.
Há possibilidades, mesmo se a constante não for típada
veja o código a seguir:
1 2 3 4 | procedure ChangeConst(const Constant; var Value; Size: Integer); begin move((@Value)^, (@Constant)^, Size); end; |
1 2 3 4 5 6 7 | const Constante A = 'Valor da constante'; procedure Teste; begin ChangeConst('xxx', A, sizeOf( Value )) end; |
Enviada por Ivan Cesar.
