كيف يتم نسخ كلاس إلى آخر ؟ - نسخة قابلة للطباعة

PHP كود :

type
  TMyClass = Class
    Name: string;                             // in your way .. this value will be copied fine because it's value 
    Age: integer;                             // same here
    Address: string;    

    PhoneNumbers: TStringList; // this will be the problem .. when you copy it you just copy the pointer for it 
                                                         // so if the obj1 Freed the obj2 will lose its PhoneNumbers pointer because it
                                                         // belong to obj1 
  end;

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyClass = class
    private
    public
      Name: String;
      Age: Integer;
      PhoneNumbers: TStringList;    
      constructor Create; virtual;
      destructor Destroy; override;
  end;

var
  Form1: TForm1;
  obj1, obj2: TMyClass;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  obj1 := TMyClass.Create;
  obj1.Name := 'Ali';
  obj1.Age := 15;
  obj1.PhoneNumbers.Add('XXXXXXXXXXXXXXXXX');
  ShowMessage( Format('Pointer for obj1.PhoneNumbers is : %p', [Pointer(obj1.PhoneNumbers)])
    + '                  fist number value is : ' + obj1.PhoneNumbers.Strings[0]);

  obj2 := TMyClass.Create;

  ShowMessage(IntToStr(obj1.InstanceSize));
  CopyMemory(Pointer(obj2), Pointer(obj1), obj1.InstanceSize);

  obj1.Free;

// here you will get the error.. Because there is no pointer anymore
  ShowMessage('fist number value is : ' + obj2.PhoneNumbers.Strings[0]); 
  obj2.Free;
end;

{ TMyClass }

constructor TMyClass.Create;
begin
  PhoneNumbers := TStringList.Create;
end;

destructor TMyClass.Destroy;
begin
  FreeAndNil(PhoneNumbers);
  inherited;
end;

end.

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;

PHP كود :

obj1 := TMyClass.Create;
  obj1.PhoneNumbers.strings[0] := '000000';

  obj2 := TMyClass.Create;
   copymemory(pointer(obj2), pointer(obj1), obj1.instancesize); 
  
  showMessage(obj1.PhoneNumbers.strings[0]);   { Result will be : 000000 }
  showMessage(obj2.PhoneNumbers.strings[0]);   { Result will be : 000000 }

  obj1.PhoneNumbers.strings[0] := '555555';

  showMessage(obj1.PhoneNumbers.strings[0]);   { Result will be : 555555}
  showMessage(obj2.PhoneNumbers.strings[0]);   { Result will be : 555555}
  // so obj2 use same TStringList that belong to obj1 .. if you change PhoneNumbers
  // in obj1 it will change in obj2.. same if you change obj2.PhoneNumbers it will change
  // in obj1