[Delphi] Copier Objet (Assign) ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Copier Objet (Assign) ?

flam182

Bonjour j'ai un objet Utilisateur contenant une 50aine de champs,

j'aimerais pouvoir copier cette objet, a priori c la méthode 'assign'
qui s'en occupe, mais lorsque je l'utilise

Code :

monUtil := TUtilisateur.Create;
monUtil.Assign(dmMain.monUtilisateur);

j'ai l'erreur : 'impossible d'affecter TUtilisateur à TUtilisateur'

quelqun peut m'aider ?

Publicité

Olyv

il faut que dans ton objet TUtilisateur tu surcharges la procédure AssignTo (de Tpersistent).

flam182

donc je suis obligé de faire manuellement la copie des champs ?

Olyv

en quelque sorte oui.
perso j'utilise énormément cette méthode.
Pour chaque objet que je créé, je dérive la procédure AssignTo dans 90% des cas.

flam182

ok merci pour l'aide

flam182

Bon j'y arrive pas (oui je débute ) :

ds ma classe Utilisateur j'ai déclaré en public :

Code :

procedure AssignTo(Source: TPersistent);override;

et implémenter

Code :

procedure TUtilisateur.AssignTo(Source: TPersistent);
begin
inherited AssignTo(Source);
self.Fnom := (Source as TUtilisateur).nom;
end;

et ca plante sur le inherited, et sans, ca plante également sur l'affectation

Olyv

si tu as delphi pro, regarde le code de TPersistent.AssignTo, tu verras qu'en fait il lance la fameuse exception.

Code :

procedure TPersistent.AssignTo(Dest: TPersistent);
begin
Dest.AssignError(Self);
end;
procedure TPersistent.AssignError(Source: TPersistent);
var
SourceName: string;
begin
if Source <> nil then
SourceName := Source.ClassName else
SourceName := 'nil';
raise EConvertError.CreateResFmt(@SAssignError, [SourceName, ClassName]);
end;
procedure TPersistent.Assign(Source: TPersistent);
begin
if Source <> nil then Source.AssignTo(Self) else AssignError(nil);
end;

Dans l'utilisation du AssignTo, il ne faut donc pas faire de inherited sauf si tu t'apercois que ton objet n'est pas copiable ex: tu copies un TUtilisateur dans un TOrdinateur

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] Copier Objet (Assign) ?

Sujets relatifs
script php ôur copier contenu	Conception orienté objet autour d'une BD
problème d'objet	Méthode click(); sur un objet input : IE OK, mais MOZ NOK ?
insere un objet dans un Fichier RFT	Delphi - Heritage et TForm
Drag impossible sur un objet créé dynamiquement ?	Transformer mon code PHP en PHP Objet
Exécuter une méthode d'un objet dans un Thread	[Delphi] Instruction à la fermeture d'un Active X
Plus de sujets relatifs à : [Delphi] Copier Objet (Assign) ?

Page générée en 0.058 secondes