Pascal Objet

Pascal Objet

Description de cette image, également commentée ci-après
A screenshot of the Delphi 7 environment.
Informations
Développé par Larry Tesler et Niklaus WirthVoir et modifier les données sur Wikidata
Première version Voir et modifier les données sur Wikidata
Type Langage de programmation orienté objet (en)
Langage de programmation multi-paradigme (en)
Langage impératif (d)
Langage de programmation structuré (d)
Langage de programmationVoir et modifier les données sur Wikidata

Pascal Objet (ou Object Pascal en anglais) est un langage orienté objet dérivé du Pascal. Il a été créé en 1990 par la société Borland comme une amélioration de son logiciel phare de l'époque, Turbo Pascal. Il s'agissait alors de la version 5.5. Même si l'ajout de l'objet au Turbo Pascal s'est opéré en douceur et a été vendu par Borland comme une simple et logique amélioration de Turbo Pascal, cela n'en a pas moins révolutionné ce langage et la communauté de développeurs qui lui était associée.

Le Pascal Objet prend un nouvel essor en 1995 avec la sortie de Delphi 1, toujours à l'initiative de Borland.

Déclaration d'un type objet

[modifier | modifier le code]
 type
   TMonObjet = object
     chaine: string;
     constructor NouvelObjet;
     destructor DetruitObjet;
     procedure ObjetExec;
   end;

end;

procedure TMonObjet.ObjetExec;
begin
  WriteLn(chaine);
end;

Remarque : le mot-clé object a été accompagné du mot-clé class avec Delphi. Les deux sont des types objets mais avec quelques légères différences. Par exemple, une classe est implicitement un pointeur, c'est-à-dire que le pointeur est créé et géré de manière implicite et transparente sans que le programmeur doive s'en occuper, tandis qu'un objet n'est pas automatiquement pointé, le programmeur devant le pointer manuellement et quasi systématiquement.

Utilisation d'un objet

[modifier | modifier le code]

En utilisant la définition ci-dessus :

var
   Obj: TMonObjet;
begin
   Obj := TMonObjet.NouvelObjet;    
   Obj.Chaine := 'Abracadabra';
   Obj.ObjetExec;  { Affiche 'Abracadabra' }
   Obj.DetruitObjet;
end;

Références

[modifier | modifier le code]

Articles connexes

[modifier | modifier le code]

Liens externes

[modifier | modifier le code]