TString = record</pre>
   len : Integer; //这个不会被自动初始化
   data : pchar; //这个不会被自动初始化
   class operator Add(a, b: TString ): TString; 
end; 

TTest = record
    _ : AutoRecord;
    procedure Operator_Initialize(); //初始化
    procedure Operaor_Finalize(); //反初始化
    procedure Operator_Assign(const source: TTest); overload;//拷贝 :=
    procedure Operator_Assign(const source: TTest; defaultAssign :         
   TDefaultAssign(*调用默认赋值的函数*)); overload;//拷贝 :=
end;

var
  Test : TTest;
  TestArray : array[0..1] of TTest;
begin //Test.Operator_Initialize();TestArray[0].Operator_Initialize();TestArray[1].Operator_Initialize();
........
  Test := TestArray[0]; //test.Operator_Assign(TestArray[0]);
end;//Test.Operator_Finalize();TestArray[0].Operator_Finalize();TestArray[1].Operator_Finalize();

uses
  AutoRecords;
type
  TTest = record
    _: AutoRecord;
    i, j, k: Integer;
    len: Integer;
    P: PByte;
    procedure Operator_Initialize(); // 初始化
    procedure Operaor_Finalize(); // 反初始化
    procedure Operator_Assign(const source: TTest); overload; // 拷贝 :=
  end;
 
  { TTest }
 
procedure TTest.Operaor_Finalize;
begin
  FreeMem(P);
end;
 
procedure TTest.Operator_Assign(const source: TTest);
begin
  Move(source.P^, P^, len);
  i := source.i + 100;
  j := source.j * 5;
  k := source.k;
end;
 
procedure TTest.Operator_Initialize;
begin
  i := 0;
  j := 1;
  k := 2;
  len := 100;
  GetMem(P, len);
end;
 
procedure TForm5.Button1Click(Sender: TObject);
var
  a: array [0 .. 1] of TTest;
begin // 会调用TTest.Operator_Initialize两次
  a[0] := a[1]; // 会调用Operator_Assign
end; // 会调用TTest.Operaor_Finalize两次