delphi inifile 支持 utf8
2017-03-24 14:59
260 查看
Uses IniFiles; const SZ_APP_NAME = 'demo_test'; Procedure TForm1.GetSettings; var _MemIniU: TMemIniFile; _SettingsPath: string; begin try _SettingsPath := GetHomePath + PathDelim + SZ_APP_NAME + PathDelim; if ForceDirectories(_SettingsPath) then begin _MemIniU := TMemIniFile.Create(ChangeFileExt(_SettingsPath, 'Settings.ini'), TEncoding.UTF8); try if _MemIniU.ReadInteger(SZ_APP_NAME, 'WindowLeft', -1) = -1 then Form1.Position := poScreenCenter else begin Form1.Left := _MemIniU.ReadInteger(SZ_APP_NAME, 'WindowLeft', 10); Form1.Top := _MemIniU.ReadInteger(SZ_APP_NAME, 'WindowTop', 10); Form1.Width := _MemIniU.ReadInteger(SZ_APP_NAME, 'WindowWidth', 594); Form1.Height := _MemIniU.ReadInteger(SZ_APP_NAME, 'WindowHeight', 342); end; Edit1.Text := _MemIniU.ReadString(SZ_APP_NAME, 'UnicodeText', 'ąčę'); finally _MemIniU.Free; end; end; except on E: Exception do MessageDlg(PWideChar(E.Message), TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0); end; end; Procedure TForm1.SaveSettings; var _MemIniU: TMemIniFile; _SettingsPath: string; begin try _SettingsPath := GetHomePath + PathDelim + SZ_APP_NAME + PathDelim; _MemIniU := TMemIniFile.Create(ChangeFileExt(_SettingsPath, 'Settings.ini'), TEncoding.UTF8); try if Form1.WindowState <> TWindowState.wsMaximized then begin _MemIniU.WriteInteger(SZ_APP_NAME, 'WindowLeft', Form1.Left); _MemIniU.WriteInteger(SZ_APP_NAME, 'WindowTop', Form1.Top); _MemIniU.WriteInteger(SZ_APP_NAME, 'WindowWidth', Form1.Width); _MemIniU.WriteInteger(SZ_APP_NAME, 'WindowHeight', Form1.Height); _MemIniU.WriteString(SZ_APP_NAME, 'UnicodeText', Edit1.Text); end; _MemIniU.UpdateFile; finally _MemIniU.Free; end; except on E: Exception do MessageDlg(PWideChar(E.Message), TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0); end; end;
相关文章推荐
- Delphi TIniFile 类 操作ini配置文件
- Delphi TIniFile 类 操作ini配置文件
- Delphi TIniFile 类 操作ini配置文件
- Delphi TIniFile 类 操作ini配置文件
- make the inifile support unicode in delphi
- Delphi IniFile 应用详解
- Delphi TIniFile 类 操作ini配置文件
- 发布 web虎(2011-Windows加密狗版)-软件加密保护模块i111208版-修订1!增加支持功能:静默安装过程中,利用setup.ini预置安装参数,不需手工输 新建answer file做
- sqlite for delphi支持UTF8
- Delphi TIniFile 类 操作ini配置文件
- php验证手机号码(支持归属地查询及编码为UTF8)
- android Webview支持input type=file
- delphi 颜色,字体保存到INI文件
- php.ini 全站,和htaccess web目录 默认头部和尾部 auto_prepend_file
- 将DELPHI数据库连接写进INI配置文件中
- 一个Delphi的资源编辑器(支持SDK菜单资源编辑)
- 实战parse_ini_file()及扩展函数解析ini文件完整版
- [问题] - Delphi关于UTF8String的介绍
- Android:让WebView支持<input type=”file”…>元素
- Delete Delphi temporary file