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 ...

Salut,

il faut ajouter le mot clé "virtual" après la procedure SetValue pour
autoriser les surcharges dans la classe parente, le mot "override" doit
être utilisé sur cette même fonction dans les déclarations des classes
descendant de TStrings.