Question

delphi的简单代码

一个delphi的简单代码，调用出错，请问如何修正？function Test(const cPData; const cSize: DWORD): PChar;begin MoveMemory(Result, cPData, cSize)end;

Answer 1

以下提示供参考：

1、在 delphi 语法中，参数的定义格式如： 变量名：变量类型；可以添加 const 或是 var 指示。

因此，上面的代码中，函数的定义修改示例如：

  function Test(const cPData: PChar; const cSize: DWORD): PChar;

2、在 Test 函数中，主要是调用 MoveMemory 函数，该函数定义于  Winapi.Windows 单元文件，其函数原型定义如下：

procedure MoveMemory(Destination: Pointer; Source: Pointer; Length: NativeUInt);
begin
  Move(Source^, Destination^, Length);
end;

此函数与 CopyMemory 函数完全一致：

procedure CopyMemory(Destination: Pointer; Source: Pointer; Length: NativeUInt);
begin
  Move(Source^, Destination^, Length);
end;

Answer 2

cPData数据类型指定一下试试看。

追问

运行不起来，怎么指定

追答

提示什么错误咯