hgeutils.pas

来自「此為國外大名鼎鼎的2D遊戲引擎HGE的Delphi版本 原官方是C++的,現在」· PAS 代码 · 共 16 行

unit HGEUtils;

interface

procedure CopyInstanceData(Src, Dst: TObject);

implementation

procedure CopyInstanceData(Src, Dst: TObject);
begin
  if Assigned(Src) and Assigned(Dst) and (Src.ClassType = Dst.ClassType) then
    Move((PChar(Src) + 4)^,(PChar(Dst) + 4)^,Src.InstanceSize - 4);
end;

end.