526互联

lazarus for linux使用CopyMemory和ZeroMemory编译出错

发布时间 2023-03-29 10:54:38作者: 秋·风
从delphi转lazarus for linux，如果原来代码用CopyMemory和ZeroMemory编译时会出错。移植代码时可以用move替换CopyMemory，FillChar替换ZeroMemory，最简单的方法是自己按以下方法写CopyMemory和ZeroMemory。
{$ifdef linux}
procedure CopyMemory(Destination, Source:pointer; Length:DWORD);
begin
  Move(Source^, Destination^, Length);
end;

procedure ZeroMemory(Destination:pointer; Length:DWORD);
begin
  FillChar(Destination^,Length,#0);
end;
{$endif}