Et pourquoi ne pas plutot surcharger les fonctions get, put et IndexOfName ?

loki a écrit :
> Soit la classe Tstrings :
>
> TStrings = class(TPersistent)
> private
> function GetValue(const Name: string): string;
> procedure SetValue(const Name, Value: string);
> protected
> public
> property Values[const Name: string]: string read GetValue write SetValue;
> end;
>
> Je voudrais dans une classe enfant modifier la procedure SetValue .. comment je peux faire cela ? bon je sais c'est pas possible mais bon ...
>
> a++
> stéphane