Copier les proprietes d'un objet vers un autre objetRésolu

Question

Bonjour,

Je cherche comment copier les valeurs des proprietes d'un objet vers un autre objet

  TInfo =class(TObject)
  public
    sValeur:string;
    sValeur1:string;
    sValeur2:string;
    ....
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Info1,Info2:TInfo;
begin
  Info1:=TInfo.create();
  Info1.sValeur:='Toto';
  ComboBox1.Items.Objects[0]:=Info1;


  Info2:=TInfo.create();
  StringGrid1.Objects[0,0]:=Info2;

// Je voudrais copier toutes les valeurs des proprietes de 
// ComboBox1.Items.Objects[0] vers StringGrid1.Objects[0,0]  
// Mais le nombre de propriete de la class TInfo peut changer

StringGrid1.Objects[0,0].sValeur:=ComboBox1.Items.Objects[0].sValeur;
...

//J'aimerais faire une sorte de 
//StringGrid1.Objects[0,0]:=ComboBox1.Items.Objects[0];
// Mais on copie "le pointeur"

end;

J'esp&#232;re que ma question est suffisamment clair.

Si quelqu'un a une id&#233;e.

Merci d'avance.


Dimdidi

cs_Delphiprog · Accepted Answer

En r&#232;gle g&#233;n&#233;rale, la m&#233;thode Assign (d&#233;clar&#233;e &#224; partir de TPersistent) est surcharg&#233;e et sert &#224; cela.

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

dimdidi · Answer

Merci pour la r&#233;ponse
Mais pour mon cas c'est  un TObject donc au dessus de TPersistent donc je ne vois pas comment faire (je suis un peu d&#233;butant)

J'ai rechercher Assign (&#224; partir de TPersistent) 
J'ai regard&#233; les codes et j'ai pens&#233; faire tout simplement

  TInfo =class(TObject)
  private
  public
    sValeur:string;
    constructor create;
    procedure Assign(Source:TInfo);
  end;

procedure TInfo.Assign(Source: TInfo);
begin
  if Source<>nil then
    self.sValeur:=Source.sValeur;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Info1,Info2:TInfo;
begin
  Info1:=TInfo.create();
  Info1.sValeur:='Toto';
  ComboBox1.Items.Objects[0]:=Info1; 
  Info2:=TInfo.create();
  StringGrid1.Objects[0,0]:=Info2;

  TInfo(StringGrid1.Objects[0,0]).assign(ComboBox1.Items.Objects[0]);
end;


Dimdidi

cs_Delphiprog · Answer

Tu as eu le bon r&#233;flexe !
Le code est correct. F&#233;licitations.
NB : si tu envisages de sous-classer TInfo, il serait bon de d&#233;clarer la m&#233;thode Assign en m&#233;thode virtuelle.
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

dimdidi · Answer

Merci 

Quand tu parles de sous classer
c'est bien

  TInfo =class(TObject)
  private
  public
    sValeur:string;
    procedure Assign(Source:TInfo);
  end;
  TInfo2 =class(TInfo)
  private
  public
    sValeur2:string;
  end;


Dimdidi

cs_Delphiprog · Answer

Oui, c'est exactement &#231;a. On parle aussi de classes d&#233;riv&#233;es.
Vois-tu l'int&#233;r&#234;t ou pas de d&#233;clarer "Virtual" la m&#233;thode Assign ?
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

dimdidi · Answer

Vois-tu l'int&#233;r&#234;t ou pas de d&#233;clarer "Virtual" la m&#233;thode Assign ?

D&#233;sol&#233; je ne vois pas car je suis un peu d&#233;butant.
Mais je veux bien que tu m'expliques.

cs_Delphiprog · Answer

Plut&#244;t que de me lancer dans de grandes explications pas forc&#233;ment claires, je te recommande de consulter l'aide en ligne sur "M&#233;thodes virtuelles et dynamiques". Je pense que ce sera beaucoup mieux ...


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

dimdidi · Answer

Merci pour les infos


Dimdidi

Copier les proprietes d'un objet vers un autre objet

8 réponses

Votre réponse

Discussions similaires