Tdictionary için class helper nasıl tanımlanır?

[PROGRAMADOR]

Merhaba arkadaşlar,
Delphi XE4 kullanıyorum. Tdictionary haricindeki class helplerlarda sorun yok. TDictionary'de hata veriyor. Yardım edebilir misiniz?

Kod: Tümünü seç

unit uHDGenerics;

interface

{$IF CompilerVersion >= 21.0}
  {$WEAKLINKRTTI ON}
  {$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
{$IFEND}

uses
Generics.Collections;



Type
  TMyDic<TKey,TValue> = class helper for TDictionary<TKey,TValue>
    private
    public
      procedure Delete(index:integer); //i added this function ..removing by index
end;

implementation

{ TMyDic<TKey, TValue> }

procedure TMyDic<TKey, TValue>.Delete(index: integer);
var
key:Tkey;
begin
   if index < 0 then exit;
    //raise EListError.CreateRes(@SGenericItemNotFound);

   key:=FItems[index].Key;
   DoRemove(Key, Hash(Key), cnRemoved);
end;

end.