delphi XE : encapsuler TObjectDictionnary

Version imprimable

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.

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;

Delphi XE : encapsulation TDictionary

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;