转自前辈的博客,反复搜索了一下,可能是这里原创.
在写到INI文件读写的时候,发现好多重复的语句,原代码类似这样的好多:
IniGameConf := Tinifile.Create(sIniFile + M2SERVERCONFIGFILE); IniGameConf.WriteString(M2SERVERSECTIONNAME1, 'ServerName', g_sGameName); IniGameConf.WriteString(M2SERVERSECTIONNAME1, 'DBName', g_sHeroDBName); IniGameConf.WriteString(M2SERVERSECTIONNAME1, 'GateAddr', sAllIPaddr); IniGameConf.WriteInteger(M2SERVERSECTIONNAME1, 'GatePort', g_Config.M2Server.GatePort); IniGameConf.WriteString(M2SERVERSECTIONNAME1, 'DBAddr', sLocalIPaddr); IniGameConf.WriteInteger(M2SERVERSECTIONNAME1, 'DBPort', g_Config.DBServer.ServerPort); IniGameConf.WriteString(M2SERVERSECTIONNAME1, 'IDSAddr', sLocalIPaddr); IniGameConf.WriteInteger(M2SERVERSECTIONNAME1, 'IDSPort', g_Config.LoginSrv.ServerPort); IniGameConf.WriteString(M2SERVERSECTIONNAME1, 'MsgSrvAddr', sAllIPaddr); IniGameConf.WriteInteger(M2SERVERSECTIONNAME1, 'MsgSrvPort', g_Config.M2Server.MsgSrvPort); IniGameConf.WriteString(M2SERVERSECTIONNAME1, 'LogServerAddr', sLocalIPaddr); IniGameConf.WriteInteger(M2SERVERSECTIONNAME1, 'LogServerPort', g_Config.LogServer.Port); IniGameConf.WriteBool(M2SERVERSECTIONNAME1, 'CloseWuXin', g_boCloseWuXin); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'GuildDir', '.\GuildBase\Guilds\'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'GuildFile', '.\GuildBase\GuildList.txt'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'ConLogDir', '.\ConLog\'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'CastleDir', '.\Castle\'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'CastleFile', '.\Castle\List.txt'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'GameDataDir', '.\Envir\'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'EnvirDir', '.\Envir\'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'MapDir', '.\Map\'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'NoticeDir', '.\Notice\'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'LogDir', '.\Log\'); IniGameConf.WriteString(M2SERVERSECTIONNAME2, 'EMailDir', '.\EMail\'); IniGameConf.Free; sIniFile := g_sGameDirectory + 'Mir200\' + 'GuildBase\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end; sIniFile := g_sGameDirectory + 'Mir200\' + 'GuildBase\Guilds\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end; sIniFile := g_sGameDirectory + 'Mir200\' + 'ConLog\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end; sIniFile := g_sGameDirectory + 'Mir200\' + 'Castle\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end; sIniFile := g_sGameDirectory + 'Mir200\' + 'Envir\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end; sIniFile := g_sGameDirectory + 'Mir200\' + 'Map\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end; sIniFile := g_sGameDirectory + 'Mir200\' + 'Notice\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end; sIniFile := g_sGameDirectory + 'Mir200\' + 'Log\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end; sIniFile := g_sGameDirectory + 'Mir200\' + 'EMail\'; if not DirectoryExists(sIniFile) then begin CreateDir(sIniFile); end;
很明显,重复的比较多,INI文件读写的时候数据类型不同,写代码时也太慢了,找了一个通用读写INI文件的函数,只取了自己需要的部分,并稍作修改,根据传入的参数类型自动判断数据类型,听说用variant变量会占资源,先用用看:
//读取INIfunction ReadIniValue(const FileName, Section, Name: string; DefaultValue: Variant): Variant;begin with TIniFile.Create(FileName) do try if VarType(DefaultValue)=varStrArg then Result := ReadString(Section, Name, DefaultValue) else if VarType(DefaultValue)=varInteger then Result := ReadInteger(Section, Name, DefaultValue) else if VarType(DefaultValue)=varDouble then Result := ReadFloat(Section, Name, DefaultValue) else if VarType(DefaultValue)=varBoolean then Result := ReadBool(Section, Name, DefaultValue); finally Free; end;end;//写入INIprocedure WriteIniValue(const FileName, Section, Name: string;Value: Variant);begin with TIniFile.Create(FileName) do try if VarType(Value)=varStrArg then WriteString(Section, Name, VarToStr(Value)) else if VarType(Value)=varInteger then WriteInteger(Section, Name, Value) else if VarType(Value)=varDouble then WriteFloat(Section, Name, Value) else if VarType(Value)=varBoolean then WriteBool(Section, Name, Value); finally Free; end;end;//检测目录不存在就创建procedure IfNoDirThenCreate(const DirPath:string);begin if not DirectoryExists(DirPath) then CreateDir(DirPath);end;