DelphiX中的DXSprite单元中涉及到修改

最新推荐文章于 2017-10-14 23:15:03 发布

转载最新推荐文章于 2017-10-14 23:15:03 发布 · 82 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/kfarvid/archive/2009/10/26/1590273.html

本文修复了TSprite.SetGroupNumber方法中FGroupNumber未被正确更新的问题，并修正了TSpriteEngine.GetGroup方法中的逻辑错误。通过将判断条件从or更改为and，确保了方法的正确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1：FGroupNumber没有任何地方赋值的，因此，对FGroupNumber进行赋值，最佳位置是：TSprite.SetGroupNumber过程，因此，下面代码是修改后的代码：

procedure TSprite.SetGroupNumber(AGroupNumber: Integer);
begin
  if (AGroupNumber <> GroupNumber) and
    (Engine <> nil) then
  begin
    if Groupnumber >= 0 then
      Engine.Groups[GroupNumber].Remove(self);
    if AGroupNumber >= 0 then
    begin
      Engine.Groups[AGroupNumber].Add(self);
      //add by zhaogw :Update FGroupNumber is no way
      FGroupNumber:=AGroupNumber;
    end;
  end;
end; {SetGroupNumber}

2：有Bug的地方：TSpriteEngine.GetGroup过程，错误原因是判断条件有误，修改后的代码如下：

function TSpriteEngine.GetGroup(Index: Integer): Tlist;
begin
  //if (index >= 0) or (index < fGroupCount) then edit by zhaogw ,This is old
  if (index >= 0) and (index < fGroupCount) then
    result := fGroups[index]
  else
    result := nil;
end; {GetGroup}

这里原来是or的判断条件，用了or后，很明显是无限值来的。因此，这里很明显应该把or改为and。

转载于:https://www.cnblogs.com/kfarvid/archive/2009/10/26/1590273.html