Delphi中复制带有String的记录结构时不能使用Move之类的内存操作函数

来源：互联网发布：夭寿啦网络上什么意思编辑：程序博客网时间：2024/04/28 22:29

请看下面的代码：

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指向同一块内存，导致释放出现错误，最后堆栈溢出。

因此在遇到结构复制时一定要使用=进行复制，千万不要使用内存操作函数。

最容易犯错误的时候就是复制结构数组，为了方便可能就直接内存拷贝，结果就会引发错误！