كيف يتم نسخ كلاس إلى آخر ؟

[SMP3]

السلام عليكم

عندما تقوم بانشاء اوبجكت من كلاس فان هدا الأبجكت يشغل مساحة من الداكرة ولنسخ الأوبجكت يكفي معرفة المساحة التي يشغلها انظر المثال كتبته بشكل سريع

يا ريت الطريقة كانت بتلك البساطة ..

جرب هذا الكود :

PHP كود :

var
  obj1, obj2: Tmycls;
begin
  obj1 := Tmycls.Create();
  obj2 := Tmycls.Create();
  obj1.clonCedsit('jamalcoder');
  obj1.FName := 'test';
  CopyMemory(Pointer(obj2), Pointer(obj1), obj1.InstanceSize);
  obj1.FName :='nil';
  Self.Caption := obj2.FName;  // failed !
  obj1.Free;
  obj2.Free;
end;