loki a écrit :
> bien parceque le hic c'est que justement le truc que je veux changer c'est dans les 3 lignes de code dans le procedure SetValue ! pas de bol je sais ...
>
> en fait je veux que l'instruction
>
> myStringList['aname'] := ''
>
> ne me supprime pas la ligne "aname=" du TstringsList et ca c'est uniquement dans le setvalue que ca se passe !

ou alors surcharges delete comme ca:

procedure TMyStringList.Delete(Index: Integer);
var
name: string;
begin
if Index >= 0 then
begin
Name := ExtractName(Get(Index));
if name <> '' then
Put(Index, Name + '=') else
inherited;
end;
end;