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