传世调试之-国家模式

procedure TGuildManager.LoadGuildInfo;      
g_GuildManager.LoadGuildInfo();
HAM_Country{7}
        HAM_Country: begin
          if cretplay = selfplay then
            Result:=True;
          //if m_MyGuild <> nil then
          begin
            if g_Country.IsMember(cretplay.m_sCharName) then  Result:=True;
            if g_Country.IsMember2(cretplay.m_sCharName) then  Result:=True;
          end;
        end;

procedure TCountry.LoadCountryInfo(Fdir:string);
var
  LoadList:TStringList;
  Guild:TGuild;
  sGuildName:String;
  i:integer;
begin
  g_Config.sCountrydir:=Fdir;
  //MainOutMessage(g_Config.sCountrydir+'秦国人士.txt'