Discussion :

[All Jinx]

Bonjour,

Je suis issu du C++ et je me demandait, est-il possible de faire des classes autoinstanciées en Delphi ?
C'est à dire que si je crée une classe ARF, lorsque je fait la déclaration avec le mot clé 'VAR', je ne crée qu'une référence. Il faut donc que j'appelle la méthode .Create().
Y a-t-il un moyen pour que la classe soit directement créé sur la pile ?

MErci pour votre aide

[ShaiLeTroll]

tu peux instancier la variable dans la partie initialization genre

quelque part dans l'unité (je pense juste après implementation)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
var
  _Singleton: TBidule = nil; // voir si le Create est possible ici avec les nouvelles versions, en D7 faut constante

------ METHODE VIA INITIALIZATION/FINALIZATION ------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
initialization
  _Singleton := TBidule.Create();
 
finalization
  if Assigned(_Singleton) then
  begin
    _Singleton.Free();
    _Singleton := nil;
  end;

------ METHODE VIA METHODE DE CLASSE ------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
type
  TBidule = class(TMachin)
    class function Singleton: TBidule;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
class function TBidule .Singleton: TBidule;
begin
  if not Assigned(_Singleton) then
    _Singleton := TBidule.Create();
 
  Result := _Singleton;
end;

[Clorish]

En fait je pense qu'il veux parler d'un instentiation automatique a la declaration.

J'ai en effet lut dernierement sur un bouquin de C++, que les variables de types objet instenticent l'objet lors de sa declaration.

Pour eviter cela, on utilisertais des pointeurs sur des classes instancié via ne mot clef "new".

Dans ce cas non.
Il n'existe pas de methode similaire.
C'est un des principe du Delphi : On suppose que tu ne sais pas ce que tu fais. Donc si tu veux instancier un objet, Explicite le

Par contre, on peut en effet initialiser dans la partie Initialization/Finalization des instances globales lors du chargement/Dechargement des unitees.

[All Jinx]

En fait je pense qu'il veux parler d'un instentiation automatique a la declaration.

Oui c'est tout à fait ça.

Donc tant pis, je vais me taper les Create().

Merci à vous pour vos réponses rapides !

[ShaiLeTroll]

Effectivement, n'ayant fait que du C et du Java, tout a toujours été explicite pour le Malloc en C ou le New en Java, ... et je viens donc de comprend le fameux "Obj->Property" qui remplace le "(*Obj).Property" dans le cas d'une instanciation dynamique (via new et *) qui comme en delphi c'est un pointeur mais il est explicite alors qu'en statique (Instanciation automatique), le point suffit ...

en fait, en C++ les objets sont créés et libérés comme les chaines longues en delphi, cela se fait tout seul ! trop fort une début de garbage

d'aileurs, en C++, pour les string c'est toujours Char * Malloc/FreeMem ? ou il y a aussi un mécanisme automatique ?

[droggo]

Kia,

d'aileurs, en C++, pour les string c'est toujours Char * Malloc/FreeMem ? ou il y a aussi un mécanisme automatique ?

En C++ "propre", on n'utilise pas de "char *" etc., mais des "string".

[helmis]

Bonjour

c'est juste pour ne pas taper les Create() ? on Gagne rien au niveau de la RAM ?

[Paul TOTH]

Bonjour

c'est juste pour ne pas taper les Create() ? on Gagne rien au niveau de la RAM ?

ben non, on gagne rien

sous Turbo Pascal (et encore sous Delphi) on a la mot clé OBJECT qui permet de déclarer un objet dont l'allocation n'est pas dynamique...Cependant son constructeur n'est pas invoqué non plus.

à partir de Delphi "je sais pas combien mais plus que 7" on peut aussi déclarer une méthode dans un RECORD...mais là non plus pas d'invocation automatique de constructeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
type
 TMonObjet=object
  i:integer;
  constructor init;
 end;
 
constructor TMonObject.Create;
begin
 i:=1;
end;
 
var
 o:TMonObject;
 po:^TMonObject;
begin
 o.i:=1; // valide car "o" n'est pas un pointeur !
 
 new(po,Init); // allocation dynamique en précisant le constructor 
end;