delphi - 从指针复制数据？

Question

...
  PAnalyzeInfo = ^TAnalyzeInfo;
  TAnalyzeInfo = record
    pPitch: array of Single;
    pEnergy: array of Single;
    pPitchAccent: array of Single;
    pEnergyAccent: array of Single;
    pDicAccent: array of Single;
    pScore: array of Single;
    pBoundary: Integer;
    szRecWord: array of array of AnsiChar;
    nRecWordNum: Integer;
    nFrameNum: Integer;
  end;
...

我有 pDataSource: PAnalyzeInfo 其中包含数据，我想将其复制到新的自变量。 我的数据:TAnalyzeInfo。

是否可以复制整个结构或逐个添加它？

Answer 1

在 Delphi 中，借助编译器的魔力，您只需通过赋值即可复制记录。

MyData := DataSource^;

动态数组是引用计数的，因此只要您不需要真正的深层复制，赋值也会处理动态数组。通过简单的分配，它们就共享相同的内存。

如果您不想，可以单独复制它们:

MyData.pPitch = Copy(pDataSource^.pPitch, Low(pDataSource^.pPitch), 
                                          High(pDataSource^.pPitch);