Delphi/pascal: le fait de surcharger un constructeur à un autre prototype

Je suis en train de créer une classe enfant de TForm avec

spéciale constructeur pour certains cas, et
un constructeur par défaut qui permettra de maintenir la compatibilité avec le code actuel.

C'est le code que j'ai maintenant:

interface
  TfrmEndoscopistSearch = class(TForm)
  public
    /// original constructor kept for compatibility
    constructor Create(AOwner : TComponent); overload; override;
    /// additional constructor allows for a caller-defined base data set
    constructor Create(AOwner : TComponent; ADataSet : TDataSet; ACaption : string = ''); overload;
  end;

Il semble fonctionner, mais je reçois toujours le message d'avertissement du compilateur:

[Avertissement] test.pas(44): la Méthode de "Créer" des peaux de méthode virtuelle de la base type 'TCustomForm'

L'ajout de "surcharge;" après le deuxième constructeur ne compile pas. "[Erreur] test.pas(44): la Déclaration de "Créer" se distingue de la précédente déclaration".
en faisant le deuxième constructeur d'une classe de la fonction compile sans erreurs ou des avertissements, mais meurt avec une violation d'accès lors de l'exécution (tous les membres de vars est nul).

OriginalL'auteur David Dombrowsky | 2009-11-18

18

Essayez d'ajouter reintroduce avant la seconde overload, comme ceci:
```
  TfrmEndoscopistSearch = class(TForm)
  public
    /// original constructor kept for compatibility
    constructor Create(AOwner : TComponent); overload; override;
    /// additional constructor allows for a caller-defined base data set
    constructor Create(AOwner : TComponent; ADataSet : TDataSet; ACaption : string = ''); reintroduce; overload;
  end;
```
Cette compile de Turbo Delphi. J'avais besoin de la public à faire compiler, car la surcharge de published méthodes est limitée.

bango! Le "réintroduire" mot-clé est exactement ce qui est nécessaire. L'original constructeur est également nécessaire, car elle définit l'ensemble de données à la bonne valeur par défaut.

OriginalL'auteur Uli Gerhardt
27

Il y a vraiment un moyen facile d'éviter cela. Donner à votre nouveau constructeur un nom différent. Contrairement à certains autres langues populaires, Delphi a nommé constructeurs; vous n'avez pas à appeler à Créer. Vous pouvez appeler votre nouveau CreateWithDataset et ne pas interférer avec le virtuel Créer constructeur.
```
TfrmEndoscopistSearch = class(TForm)
  /// original constructor kept for compatibility
  constructor Create(AOwner: TComponent); override;
  /// additional constructor allows for a caller-defined base data set
  constructor CreateWithDataset(AOwner: TComponent; ADataSet: TDataSet; ACaption: string = '');
end;
```
En fait, sauf si vous êtes l'instanciation de cette classe polymorphically, vous n'avez même pas besoin de l'original de constructeur. Vous pouvez déclarer votre nouveau comme ceci:
```
TfrmEndoscopistSearch = class(TForm)
  /// additional constructor allows for a caller-defined base data set
  constructor Create(AOwner: TComponent; ADataSet: TDataSet; ACaption: string = ''); reintroduce;
end;
```
Tente d'appeler l'un argument constructeur directement sur TfrmEndoscopistSearch produirait une erreur de compilation.

(Création polymorphically entraînerait généralement à l'aide de l'Application.CreateForm:
```
Application.CreateForm(TfrmEndoscopistSearch, frmEndoscopistSearch);
```
Qui appelle toujours un argument virtuel constructeur introduit dans TComponent. Sauf si c'est votre formulaire principal, vous n'avez pas besoin de le faire. J'ai écrit au sujet de mes sentiments sur Demande.CreateForm avant.)

C'est probablement la solution la plus appropriée, mais ce n'est pas la réponse à la question. La partie de l'exercice est de résoudre le problème et ne pas avoir à changer tout les 10 ou si les fichiers qui utilisent déjà l'une ou l'autre forme de create(). Je suis à la fusion de cette forme à partir de deux projets différents et ne voulait pas la fourche à la fourchette.

OriginalL'auteur Rob Kennedy

constructor Create(AOwner:Tcomponent;str:string);overload;
... 
constructor TfrmEndoscopistSearch.Create(AOwner: Tcomponent; str: string);
    begin
    inherited Create(AOwner);
    showmessage(str);
    end;

Cela devrait faire l'affaire

OriginalL'auteur Radacina

Vous devez vous connecter pour publier un commentaire.