Ini文件操作

//ini也可以实现多级菜单操作，需要递归搜索ini文件

TiniOptiType=(IniOpDelete,IniOpWrite,IniOpRead) //声明了一个删除、写、读的枚举类型

function iniOptiOnce(Fpath:string;IniOptiType:TiniOptiType;sec:string;key:string;value:string='';strDef:string=''):string;
var configIni:TIniFile;
begin
  Result:='';
  if not FileExists(Fpath) then
    Exit;
  configIni:=TIniFile.Create(Fpath);
  try
    case IniOptiType of
      IniOpDelete:
      begin
        configIni.DeleteKey(sec,key);
      end;
      IniOpWrite:
      begin
        configIni.WriteString(sec,key,value);
      end;
      IniOpRead:
      begin
        Result:=configIni.ReadString(sec,key,strDef);
      end;
    end;
  finally
    configIni.Free;
  end;
end;