论坛 › 源码漏洞修复共享 › 修复编辑人物 虾米引擎

admin 发表于 2018-4-23 07:10:37

修复编辑人物 虾米引擎

procedure TfrmEditRcd.RefShowMagic;
var
//i: Integer;//修复编辑人物bug ByToCoo
i,j: Integer; //修复编辑人物bug ByToCoo
ListItem: TListItem;
MagicInfo: THumMagic;
begin
ListViewMagic.Clear;
for i := Low(m_ChrRcd.Data.HumMagics) to High(m_ChrRcd.Data.HumMagics) do begin
    MagicInfo := m_ChrRcd.Data.HumMagics;
    if MagicInfo.wMagIdx = 0 then break;
    ListItem := ListViewMagic.Items.Add;
    ListItem.Caption := IntToStr(MagicInfo.wMagIdx);
    ListItem.SubItems.Add(GetMagicName(MagicInfo.wMagIdx));
    ListItem.SubItems.Add(IntToStr(MagicInfo.btLevel));
    ListItem.SubItems.Add(IntToStr(MagicInfo.nTranPoint));
end;
EditMakeMagic.Value := m_ChrRcd.Data.MakeMagicPoint;
//for i := Low(m_ChrRcd.Data.MakeMagic) to High(m_ChrRcd.Data.MakeMagic) do begin //修复编辑人物bug ByToCoo
for j := Low(m_ChrRcd.Data.MakeMagic) to High(m_ChrRcd.Data.MakeMagic) do begin//修复编辑人物bug ByToCoo
    //ListItem := ListViewMakeMagic.Items;//修复编辑人物bug ByToCoo
    //ListItem.SubItems.Strings := IntToStr(m_ChrRcd.Data.MakeMagic);//修复编辑人物bug ByToCoo
            ListViewMakeMagic.Items.SubItems.Strings := IntToStr(m_ChrRcd.Data.MakeMagic); //修复编辑人物bug ByToCoo
end;
end;
DBServer\EditRcd.pas的内容

查看完整版本: 修复编辑人物 虾米引擎