Manque directive abstract

Version imprimable

01/04/2013, 18h30
Archimède

Manque directive abstract

En faisant dériver le TLabel pour faire un Tedit en ajoutant type:='input';
J'ai ajouté une procedure virtuelle overridée dans une classe descendante pour gérer un onchange.
On est obligé de faire une implémentation avec rien dedans. La directive abstract serait la bienvenue.

Est-ce possible ?

merci :lol:
02/04/2013, 08h04
Paul TOTH

je n'ai pas compris ton exemple.

abstract est intéressant mais attention, il n'est pas normal qu'une classe qu'on peut instancier contienne une méthode abstraite.

Citation:

Envoyé par Paul TOTH

je n'ai pas compris ton exemple.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
type
 Masuperclasse=class
  procedure faire;virtual;abstract;   //je la déclare sans l'implémenter
 end;
 
 maclassedescendante=class(Masuperclass)
  procedure faire;override;
 end;
 
 
procedure maclassedescendente.faire;
begin
 blabla.....
end;

capito mon capitaine :lol:

02/04/2013, 12h16
Paul TOTH

oui :) mais j'ai cru comprendre que tu mettais un onChange abstract dans TEdit, ce qui ne me semble pas être une bonne idée vu qu'on ne devrait alors jamais instancier un TEdit

Citation:

Envoyé par Paul TOTH

oui :) mais j'ai cru comprendre que tu mettais un onChange abstract dans TEdit, ce qui ne me semble pas être une bonne idée vu qu'on ne devrait alors jamais instancier un TEdit

Ok, je percute... Mon idée était de faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 type Tedit=class(TLabel) procedure onChange;virtual;abstract; ........ end; //et puis dans mon programme de faire : type TEdit1=class(TEdit) procedure onChange;override, end; var Edit1:TEdit1; ....... procedure TEdit1.onChange; begin blabla... end;
c'était ça mais ce n'est peut-être pas judicieux...:lol: