Parce que Turbo Pascal dans sa version Objet est inspiré indirectement de SmallTlak 80.
Pour revenir à la notion s'apparentant à un singleton le TDirectory ou le TTask dans Delphi XE+ me conviennent...
Type: Messages; Utilisateur: ALWEBER
Parce que Turbo Pascal dans sa version Objet est inspiré indirectement de SmallTlak 80.
Pour revenir à la notion s'apparentant à un singleton le TDirectory ou le TTask dans Delphi XE+ me conviennent...
Parlons de ces langages : Smalltalk, Objective C, Pascal Objet
- Smalltalk est un langage de programmation orienté objet, réflexif et dynamiquement typé
(réflexif : capacité d'un programme à...
Bonjour il est dit dans UML que les objets communiquent par message. Comment cela se passe t'il en Delphi VCL ?
Je connais ces manuels puisque je pratique turbo pascal depuis ses origines (1983). Je travaillais à l'époque sur un PC Dual boot : MS-DOS/CPM 86. Quand on parle de POO on pense Smalltalk et...
Bonjour à tous, pour continuer la discussion sur le sujet
J'ai regardé Wikipédia sur le thème "Programmation Orientée Objet" pas de trace de Delphi ni de Pascal Objet
De même pas de POO dans les...
Je parlais de l'exemple que tu cites en début de ton tutoriel :
596116
Ceci dit cette histoire de singleton me pose problème en Delphi dont les paradigmes sur la POO sont fondamentalement...
Je te promet je n'avais pas fumé ;)
voir le pdf associé
. . .
type
TDemo = class
private
class var fV2 : integer ;
public
V1 : integer ;
Bonjour,
Le tutoriel de Jeremy comporte au moins une erreur sur l'implémentation sur une version récente de Delphi.
TMyObject = class
class var Instance: TMyObject;
class function...
Après quelques essais sur les anciennes versions de Delphi et quelques impasses :) j'ai trouvé cet article "Creating a real singleton class in Delphi 5"
http://edn.embarcadero.com/article/22576
Ci joint un petit test en Delphi 7
program P1 ;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Windows, SysUtils, Classes;
Le générateur de Pattern dans Delphi XE pour le Singleton conduit maintenant à ce code :
TSingleton = class
strict private
class var FInstance: TSingleton;
constructor Create;
...
Remarque sur la notion d'instance : J'ai choisi d'utiliser la notion d'instance plutôt que 'déclaration de la classe' car dans le cas qui est présenté la variable fV2 est bien localisée dans cet...
Lorsque l'on définit un objet par une description de type Class ou équivalent, celui-ci peut être utilisé au travers d'une variable de ce type d'objet. L'objet est alors instancié avec le constructor...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.