Delphi中複製帶有String的記錄結構時不能使用Move之類的內存操作函數

請看下面的代碼： 

program TestRecord;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

type
  TRecordA = record
    Name: string;
  end;

procedure RunTestRecord;
var
  R1, R2: TRecordA;
begin
  R1.Name := StringOfChar('A', RandomRange(64, 256) * 1024);
  Move(R1, R2, SizeOf(R1));
end;

var
  I: Integer;
begin
  try
    for I := 0 to 100000 - 1 do
      RunTestRecord;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

由於結構中有String類型，紅色部分進行了複製操作，結果複製後R2和R1中的Name指向同一塊內存，導致釋放出現錯誤，最後堆棧溢出。

因此在遇到結構複製時一定要使用=進行復制，千萬不要使用內存操作函數。

最容易犯錯誤的時候就是複製結構數組，爲了方便可能就直接內存拷貝，結果就會引發錯誤！