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

Posted 朝闻道

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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指向同一块内存,导致释放出现错误,最后堆栈溢出。

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

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

http://blog.csdn.net/missmecn/article/details/7099316

以上是关于Delphi中复制带有String的记录结构时不能使用Move之类的内存操作函数的主要内容,如果未能解决你的问题,请参考以下文章

Marshall结构通过sendmessage将其传递给delphi记录

delphi 结构体和内存流

delphi 数组复制利用CopyMemory 最为完美

Delphi ClientDataSet复制记录

Delphi ClientDataSet复制记录

结构与类 - Delphi