修复编辑人物 虾米引擎

admin

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[i];
    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[i];//修复编辑人物bug ByToCoo
    //ListItem.SubItems.Strings[0] := IntToStr(m_ChrRcd.Data.MakeMagic[i]);//修复编辑人物bug ByToCoo
            ListViewMakeMagic.Items[0].SubItems.Strings[0] := IntToStr(m_ChrRcd.Data.MakeMagic[j]); //修复编辑人物bug ByToCoo
  end;
end;
DBServer\EditRcd.pas的内容