delphi XE : encapsuler TObjectDictionnary [Résolu]

[aharel]

Bonjour,

Je suis en train de coder une classe qui encapsulerait un dictionnaire.
Mais je ne parviens pas a créer une propriété qui me permettrait de'obtenir les clés de mon dictionnaire.

Ma classe a cette tête :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 TMaClasseCapsule = class
    private
      FMapIsotopes : TObjectDictionary<String, TMonObjet>;
 
    public
     property Cles[Index : Integer] : String read GetCles;
  end;
 
function TMaClasseCapsule.GetCles(Index: Integer): String;
begin
  Result := self.FMapIsotopes.Keys[Index]; //ne compile pas
end;

la fonction GetCles ne compile pas et me renvoie l'erreur suivante :

Erreur E2149 : la classe n'a pas de propriété par défaut.

Je ne pige pas trop.

[ShaiLeTroll]

A la limité, utilise une TStringList, les bonnes vielles méthodes sont parfois aussi bien que les nouvelles surtout si l'on spécialise un générique comme tu le fait

Keys est TKeyCollection, semble plutôt conçu pour le for in

la TStringList est idéalement pour <String, Objects>, j'ai même fait une version avancée : THashStringList

Code :

1
2
3
4
5
6
7
8
9
10
11
  TMaClasseCapsule = class
  private
    FMapIsotopes : TStringList;
   public
     property Cles[Index : Integer] : String read GetCles;
  end;
 
function TMaClasseCapsule.GetCles(Index: Integer): String;
begin
  Result := FMapIsotopes.Strings[Index]; 
end;

[aharel]

En fait c'était bête comme choux ...
Désolé !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
TMaClasseCapsule = class
  private
    FMapIsotopes : TStringList;
   public
    property Cles : TEnumerable<String> read GetCles;
  end;
 
function TMaClasseCapsule.GetCles : TEnumerable<String>;
begin
  //Result := String(FMapIsotopes.GetKey(Index));
  Result := FMapIsotopes.Keys;
end;