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