ReplicateObject (CM)

function ReplicateObject(const profilename:string; const source,target:TitObject; iDatabase:TDataBaseInfo):TitObject;

Cette fonction duplique un objet.

Result	L'objet dupliqué.
profileName	Le profil de sérialisation à appliquer pour dupliquer l'objet
source	L'objet source à dupliquer
target	L'objet destination si il existe; nil sinon.
iDatabaseInfo	Le contexte de base de données dans lequel dupliquer l'objet. nil peut être utilisé pour indiquer la base de données par défaut.

Exemple

Procedure CloneThisProduct(const aCodeProduit:String);
var vProduit:TProduit;
begin
  vProduit := ClassManager.FindObject('TProduit','(code=%1)','',True,[aCodeProduit]);
  if Assigned(vProduit) then ClassManager.ReplicateObject('duplication_TProduit',vProduit,self,nil);
end;

Voir aussi

— Gestion des instances (CM) — Développement DSM —