 Posté le: 03 12 2002 19:19 Sujet du message: 03-12-2002 POOexp1 + POOexp2 intégré dans un meme programme! |
|
|
| Code: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMonObjet=Class
a:BYTE;
Function Test:Byte; //Prédéclaration de la fonction
END;
TAncetre=Class
n:INTEGER
END;
TDescendant=Class(TAncetre) //Heritage!
END;
type TMaClasse=Class
Function TestMethode:STRING;
Class function LitNomClasse:STRING; //Méthode de classe
END;
var
Form1: TForm1;
MonObjet1, MonObjet2:TMonObjet; //Deux instances de la classe TmonObjet
MonObjet:TMaClasse;
implementation
{$R *.dfm}
function TMaClasse.TestMethode:STRING;
BEGIN
Result:='Methode d''une instance de classe!';
END;
Class function TMaClasse.LitNomClasse;
BEGIN
Result:='Méthode de CLASS!!';
END;
function TMonObjet.Test:BYTE; //Définition de la fonction TEST
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('Premier teste :'+ inttostr(b));
MonObjet2.a:=10;
c:=Monobjet2.test;
showmessage('Deuxieme teste :'+inttostr(c));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button3Click(Sender: TObject);
BEGIN
MonObjet:=TMaClasse.Create;
Label1.Caption:=TMaClasse.LitNomClasse;
Label2.Caption:=MonObjet.LitNomClasse;
Label3.Caption:=MonObjet.TestMethode;
MonObjet.Free
END;
END.
|
|
|
Vinchenzo
Nouveau posteur
Inscrit le: 28 Nov 2002
Messages: 1
Localisation: Montréal
|
S'enregistrer
Rechercher
FAQ
Connexion
