IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

override sur une procedure avec overload


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Avatar de Jcpan
    Inscrit en
    Août 2008
    Messages
    542
    Détails du profil
    Informations forums :
    Inscription : Août 2008
    Messages : 542
    Par défaut override sur une procedure avec overload
    Bonjour

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
      C1 = class
      procedure non();overload; virtual;
      function oui():integer;
      constructor create;
      destructor destroy;
      end;
      C2 = class(C1)
      procedure non(test :string);overload;override;
      function oui():integer;
      constructor create;
      destructor destroy;
      end;
    Résultat

    [Error] Unit1.pas(25): Method 'non' not found in base class
    [Error] Unit1.pas(73): Declaration of 'non' differs from previous declaration
    [Error] Unit1.pas(75): This form of method call only allowed in methods of derived types
    Qu'est ce qui ne va pas ?

    Merci d'avance

  2. #2
    Membre Expert
    Avatar de Dr.Who
    Inscrit en
    Septembre 2009
    Messages
    980
    Détails du profil
    Informations personnelles :
    Âge : 46

    Informations forums :
    Inscription : Septembre 2009
    Messages : 980
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
     
    type
      TC1 = class
      public
        procedure non; overload; virtual;
        function oui: integer;
        procedure PeutEtre; virtual;
        constructor create;
        destructor destroy;
      end;
      { visibilité :
        Non             duplicable/surchargeable
        Oui
        PeutEtre        surchargeable
        Create
        Destroy
      }
     
      TC2 = class(TC1)
      public
        procedure non(test :string); overload; virtual;
        function oui: integer;
        procedure PeutEtre(test: integer); reintroduce; virtual;
        constructor create;
        destructor destroy;
      end;
      { visibilité :
        Non                    héritée/duplicable
        Non(Test: string)      nouvelle/duplicable/surchargeable
        Oui                    nouvelle
        PeutEtre(Test: string) reintroduite/surchargeable
        Create                 nouvelle
        Destroy                nouvelle
      }
     
      TC3 = class(TC2)
      public
        procedure Non; override;
        procedure Non(test: string); override;
        procedure Non(test: integer); overload; virtual;
        function oui: integer;
        procedure PeutEtre(test: integer); override;
        constructor create;
        destructor destroy;
      end;
      { visibilité :
        Non                    héritée/surchargée
        Non(Test: string)      héritée/surchargée
        Non(Test: integer)     nouvelle/duplicable/surchargeable
        Oui                    nouvelle
        PeutEtre(Test: string) héritée/surchargée
        Create                 nouvelle
        Destroy                nouvelle
      }
     
     
    { TC1 }
     
    constructor TC1.create;
    begin
      //
    end;
     
    destructor TC1.destroy;
    begin
      //
    end;
     
    procedure TC1.non;
    begin
      MessageDlg('Ha', mtInformation, [mbOk], 0);
    end;
     
    function TC1.oui: integer;
    begin
      result := 0;
    end;
     
    procedure TC1.PeutEtre;
    begin
      //
    end;
     
    { TC2 }
     
    constructor TC2.create;
    begin
      //
    end;
     
    destructor TC2.destroy;
    begin
      //
    end;
     
    procedure TC2.non(test: string);
    begin
      non;
      MessageDlg(Test, mtWarning, [mbOk], 0);
    end;
     
    function TC2.oui: integer;
    begin
      result := 1;
    end;
     
    procedure TC2.PeutEtre(Test: integer);
    begin
      inherited PeutEtre;
    end;
     
    { TC3 }
     
    constructor TC3.create;
    begin
     
    end;
     
    destructor TC3.destroy;
    begin
     
    end;
     
    procedure TC3.Non(test: integer);
    begin
     
    end;
     
    procedure TC3.Non;
    begin
      inherited Non;
     
    end;
     
    procedure TC3.Non(test: string);
    begin
      inherited Non(Test);
     
    end;
     
    function TC3.oui: integer;
    begin
     
    end;
     
    procedure TC3.PeutEtre(test: integer);
    begin
      inherited PeutEtre(test);
     
    end;
    [ Sources et programmes de Dr.Who | FAQ Delphi | FAQ Pascal | Règlement | Contactez l'équipe ]
    Ma messagerie n'est pas la succursale du forum... merci!

  3. #3
    Membre Expert

    Profil pro
    Leader Technique
    Inscrit en
    Juin 2005
    Messages
    1 756
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Leader Technique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2005
    Messages : 1 756
    Par défaut
    Qu'est ce qui ne va pas ?
    Lorsque tu définis une méthode avec overload, tu indiques au compilateur que tu autorises la définition d'une autre méthode, qui portera le même nom, mais avec des paramètres d'appels différents.

    Lorsque tu fais un override sur une méthode virtuelle de la classe de base, tu indiques au compilateur que tu souhaites remplacer l'implémentation de la méthode de la classe de base.

    Dans ton cas de figure, tu as une méthode non sans paramètres dans la classe de base.
    La méthode non de la classe dérivée possède des paramètres. Bien qu'elle porte le même nom que la méthode de base, il s'agit d'une autre méthode qui n'a rien avoir avec la méthode héritée. Tu as dailleurs du les définir en overload pour que le compilateur accepte.
    La méthode non avec ces paramètres n'existe pas dans la classe de base. Tu ne peux donc pas remplacer son implémentation, tu ne peux pas faire un override !

Discussions similaires

  1. Réponses: 16
    Dernier message: 10/11/2005, 22h51
  2. Appel d'une procedure avec deux Database...
    Par smasterfr dans le forum Langage SQL
    Réponses: 6
    Dernier message: 28/06/2005, 09h53
  3. Problème sur une cmd avec AWK
    Par OrangeBud dans le forum Linux
    Réponses: 3
    Dernier message: 02/06/2004, 10h51
  4. Erreur sur une fonction avec des paramètres
    Par Elois dans le forum PostgreSQL
    Réponses: 2
    Dernier message: 05/05/2004, 21h00
  5. Execution d'une procedure avec TNotifyEvent;
    Par Chupakabra dans le forum Langage
    Réponses: 2
    Dernier message: 30/01/2003, 14h50

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