Cloner un objet : comment créer l'instance ?

**phplive** · 27/05/2005, 17h53

Bjr,

Si j'ai les objets suivants :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
TMain = class(TObject)
public
  constructor Create(AOwner : TMain);
  function Assign(Source : TMain); virtual;
  function Clone : TMain;
end;
 
 
TDerive = class(TMain)
public
  function Assign(Source : TMain); override;
end;

Comment implémenter la méthode Clone suivante

Code :

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

1
2
3
4
5
6
function TMain.Clone : TMain;
begin
  Result := .......Create(nil);  <== Pb ici
  Result.Assign(Self);
 
end;

Je veux bien sûr pouvoir cloner n'importe quel instance dérivée de TMain.

Comment faire ?
De plus le constructeur Create de TMain doit-il être virtuel ?

Merci

@+
Php

**tourlourou** · 27/05/2005, 21h23

pê

Code :

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

Result := (self.ClassType).Create(nil);

**Bloon** · 27/05/2005, 21h28

Il faut passer par une référence de classe :

Code :

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

  TMainClass = class of TMain;

Puis :

Code :

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

1
2
3
4
function TMain.Clone: TMain;
begin
  result := TMainClass(self.ClassType).Create(self.owner);
end;

Le constructeur doit être virtuel

Bloon

**Clorish** · 27/05/2005, 23h37

?!?

J'ai zappé qque chose ? ou un simple

Code :

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

1
2
 
Result := TDeriveDeTMain.Create;

Ne suffit pas ?

J'ai pourtant deja creer des objets d'un type et affecté a un type parent ...

Ou encore :

Code :

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

1
2
3
4
5
 
Var MainTemp : TMain;
Begin
MaintTemp := TDevive.create;
Result := MaintTemp;

Ca aussi devrais marcher .....

**phplive** · 27/05/2005, 23h46

Bsr,

Oui TDerive.Create fonctionne qd tu sais à l'avance que tu clones un TDerive, dans mon cas il peut s'agir d'un objet quelconque pouvu que
l'objet vérifie MonObjet.InheritsFrom(TMain)

ok en passant par une référence de classe c'est bon. Cool 8)

Merci

@+
Php

**Bloon** · 28/05/2005, 08h29

Envoyé par Clorish

?!?

J'ai zappé qque chose ? ou un simple

Code :

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

1
2
 
Result := TDeriveDeTMain.Create;

Ne suffit pas ?

Si tu fais ça, il faudra redéfinir la méthode Clone dans toutes les classes dérivées, alors qu'avec la référence de classe (et le constructeur virtuel), la méthode Clone ne doit être définie que dans la classe de base, elle marchera pour toutes les sous-classes (sauf si une sous-classe a un constructeur différent, dans ce cas il faudra redéfinir clone à son niveau).

Bloon