SoundUtil.pas 修复声音 内存暴涨3KM2引擎

admin

procedure PlaySound (idx: integer);
begin
  try
    if (g_Sound <> nil) and g_boSound and(g_sound.effectCount<100) then  begin//修改音乐同时播放数量 卡顿100-200
      if (idx >= 0) and (idx < g_SoundList.Count) then begin
        if g_SoundList[idx] <> '' then
          if FileExists (g_ParamDir+g_SoundList[idx]) then
            try
              g_Sound.EffectFile(g_ParamDir+g_SoundList[idx], FALSE, FALSE);
            except
            end;
      end;
    end;
  except