Sepi

Dans l'implémentation d'une méthode avec un paramètre non typé, il n'est pas possible de transtyper ce paramètre pour lui donner un type.

procedure TestUntypedParam(var Param);
begin
  Integer(Param) := 1;
end;

Le problème peut être contourné en récupérant l'adresse de la variable, avec un pointeur typé :

procedure TestUntypedParam(var Param);
var
  ParamPtr: PInteger;
begin
  ParamPtr := @Param;
  ParamPtr^ := 1;
end;