Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Invité de passage
    Inscrit en
    octobre 2005
    Messages
    60
    Détails du profil
    Informations forums :
    Inscription : octobre 2005
    Messages : 60
    Points : 1
    Points
    1

    Par défaut delphi XE : encapsuler TObjectDictionnary

    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.

  2. #2
    Expert Confirmé Sénior Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    juillet 2006
    Messages
    9 930
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2006
    Messages : 9 930
    Points : 14 474
    Points
    14 474

    Par défaut

    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;
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

    Halte à la ségrégation des Cinémas, VO sur Paris, VF en Banlieue, Abonnement résilié !

  3. #3
    Invité de passage
    Inscrit en
    octobre 2005
    Messages
    60
    Détails du profil
    Informations forums :
    Inscription : octobre 2005
    Messages : 60
    Points : 1
    Points
    1

    Par défaut 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;

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •