 |
|
 |
|
| |
 S'enregistrer
 Rechercher  FAQ
 Connexion
| Message |
Auteur |
 Posté le: 03 12 2002 18:35 Sujet du message: Delphi POO (03/12/02) |
|
|
Créer un bouton nomomé "Heritage"
| Code: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Heritage: TButton;
procedure HeritageClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMonObjet=class
a:byte;
function Test:byte;
end;
TAncetre=class
n:integer;
end;
TDescendant=class(TAncetre)
end;
var
Form1: TForm1;
MonObjet1,MonObjet2:TMonObjet;
implementation
{$R *.dfm}
function TMonObjet.test:byte;
begin
test:=a*3
end;
procedure TForm1.HeritageClick(Sender: TObject);
var a,b,c,n:integer;
MonObjet:TAncetre;
begin
MonObjet:=Tancetre.Create;
MonObjet.n:=7;
ShowMessage('Valeur heritée: '+IntToStr(MonObjet.n));
MonObjet:=TDescendant.Create;
MonObjet.n:=5;
ShowMessage('Valeur descendant: '+IntToStr(MonObjet.n));
end;
end. |
|
|
Kaizen
Webmaster
Inscrit le: 07 Mar 2002
Messages: 2253
Localisation: Québec, France et ailleurs...
|
|
Revenir en haut |
|
|
|
|
| Posté le: 03 12 2002 18:44 Sujet du message: |
|
|
| Code: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Quitter: TButton;
procedure Button1Click(Sender: TObject);
procedure QuitterClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMonObjet=class
a:byte;
function test:byte;
end;
TAncetre=Class
n:integer
end;
TDescendant=Class(TAncetre)
end;
var
Form1: TForm1;
MonObjet1,MonObjet2:TMonObjet; //deux instances de la classe TMonObjet
implementation
{$R *.dfm}
Function TMonObjet.test:byte;
Begin
test:=a*3
end;
procedure TForm1.Button1Click(Sender: TObject);
var b,c:integer;
MonObjet:TAncetre;
begin
MonObjet:=TAncetre.Create;//pour creer l'objet 'MonObjet'
MonObjet.n:=7;
showmessage ('Valeur Hériter:'+ inttostr(MonObjet.n));
MonObjet:=TDescendant.create;
MonObjet.n:=5;
showmessage ('Valeur Descendant:'+ inttostr(MonObjet.n));
MonObjet1:=TMonObjet.Create;
MonObjet2:=TMonObjet.create;
MonObjet1.a:=3;
b:=MonObjet1.test;
showmessage('teste1:'+ inttostr(b));
MonObjet2.a:=10;
c:=Monobjet2.test;
showmessage('teste2:'+inttostr(c));
end;
procedure TForm1.QuitterClick(Sender: TObject);
begin
close;
end;
end.
|
voici les dernière modification |
|
Ice_man33
Posteur habitué
Inscrit le: 19 Sep 2002
Messages: 126
Localisation: Montréal
|
|
Revenir en haut |
|
|
  |
|
Toutes les heures sont au format GMT
|
| Page 1 sur 1 |
|
|
| |
|
|
|
