1. #1
    Invité de passage
    Inscrit en
    octobre 2005
    Messages
    69
    Détails du profil
    Informations forums :
    Inscription : octobre 2005
    Messages : 69
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    10 160
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France

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

    Informations forums :
    Inscription : juillet 2006
    Messages : 10 160
    Points : 14 557
    Points
    14 557

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

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

    Par défaut Delphi XE : encapsulation TDictionary

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

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

Discussions similaires

  1. Delphi et encapsulation de open_gl
    Par Marc_3 dans le forum Débutant
    Réponses: 3
    Dernier message: 31/07/2014, 10h09
  2. Différences entre Delphi et Visual Basic ?
    Par Anonymous dans le forum Débats sur le développement - Le Best Of
    Réponses: 75
    Dernier message: 30/03/2009, 20h09
  3. [Kylix] Migration delphi -> kylix
    Par Christian dans le forum Kylix
    Réponses: 1
    Dernier message: 03/04/2002, 22h50
  4. Réponses: 4
    Dernier message: 27/03/2002, 11h03
  5. Réponses: 2
    Dernier message: 20/03/2002, 23h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo