是否有可用的一致的全局格式设置变量?

2024-01-02

我知道有一个全球性的FormatSettings变量 available,在启动时使用当前区域操作系统设置进行初始化。这意味着,当您将字符串转换为数字时,例如保存在 xml 文件中,然后您可以与其他 PC 交换该文件。可能会发生无法加载此类文件的情况,因为字符串无法再转换回数字。它依赖于DecimaleSeparator.

所以我的问题是:是否还有另一个全球性的FormatSettings变量可用,我可以用它来将持久数据存储到文本文件中?

Example:

FloatToStr(Value, PersistentFormatSettings);

在现代 Delphi 版本中,全局FormatSettings变量已被弃用(主要是因为它们不是线程安全的)。每个使用格式化变量的 RTL 函数都已重载以采用可选的TFormatSettings记录为输入。这使您不仅可以使用特定于线程的格式设置,还可以在每次使用的基础上使用自定义格式设置,而不会影响任何其他格式使用。例如:

var
  Fmt: TFormatSettings;
  S: String;
begin
  Fmt := TFormatSettings.Create; // get default settings
  //
  // or:
  // Fmt := TFormatSettings.Create(SomeLocaleID); // get locale-specific settings
  //
  // or:
  // Fmt := TFormatSettings.Create(SomeLocaleName); // get locale-specific settings
  //

  // customize its fields to use whatever you want...
  Fmt.DecimalSeparator := ...;
  Fmt.ThousandSeparator := ...;

  // now format it...
  S := FloatToStr(Value, Fmt);
end;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

是否有可用的一致的全局格式设置变量? 的相关文章

  • FreeMM 与 ShareMem

    我们有很多用 delphi 和 c builder 编写的 dll 库 并使用 sharemem 和 borlndmm dll 3d party 库中的对齐问题迫使我们转向 delphi 2007 中的新内存管理器 有人可以帮我解释一下 共
  • 调用泛型类型的方法?

    为什么下面的代码在 Delphi XE 中会产生错误 unit UTest interface type TTest class public procedure Foo
  • 从单个应用程序中的多个线程调用 dll 函数是否安全?

    我正在 Delphi 2009 中编写一个服务器应用程序 它实现了多种类型的身份验证 每种身份验证方法都存储在单独的 dll 中 第一次使用身份验证方法时 会加载适当的 dll 仅当应用程序关闭时 DLL 才会被释放 在服务器线程 连接 之
  • 为应用程序启用主题

    我有一个旧的应用程序 在Win XP中的delphi 7中启动 现在我正在使用delphi 2009 win Vista 如果我开始一个新项目 所有按钮都有一个圆形边缘 但在我的旧应用程序中 所有按钮都有 方形 形状的外观 有什么设置我错过
  • 使用 StretchDIBits 使用 Delphi 6 处理条形码图像 - 输出中缺少条形线

    我的应用程序是在 Delphi 6 中开发的 由于后台处理和大量数据 它消耗大约 60MB 120MB 物理内存 这是一个资源密集型应用程序 该应用程序的功能之一是在进行某些处理后创建条形码图像 如果用户继续生成条形码 那么至少十分之一的条
  • Delphi XE 中的数据绑定向导 - 可以将其配置为映射到 MSXML 接口吗?

    Delphi XE 中的数据绑定向导生成继承自 Delphi 自己的 DOM ADOM XML v4 实现的类和接口 它似乎不支持针对模式进行验证 解析时验证 选项仅适用于 MSXML 供应商type 从 VCL 源代码以及 IDE 中 X
  • Delphi DataSnap REST 服务器从 TStream 返回 JSON 数组,而不是二进制

    我有一个与 Android 客户端通信的 REST 服务器 我将它从 XE3 ish 升级到 Berlin 其中一个服务器方法返回一个包含 jpeg 的 TStream 并且工作得很好 很高兴将图像作为二进制图像返回 升级到 Berlin
  • 使用 TStringList 的分隔符解析字符串,似乎也解析空格(Delphi)

    我有一个简单的字符串 由某个字符分隔 比如说逗号 我应该能够创建一个 TStringList 并将其分隔符设置为逗号 然后将 DelimitedText 设置为我想要解析的文本 并且应该自动解析它 问题是 当我查看输出时 它还包含空格作为分
  • Delphi - 如何获取 USB 可移动硬盘和记忆棒的列表?

    在我的应用程序 Delphi 中 我需要列出所有 USB 存储设备 这些可以是闪存棒or外部存储驱动器 有一个Jvcl成分JvDriveCombo 并且它有DriveType属性 问题是我是否选择DriveType Fixed那么除了外部驱
  • 调试器异常错误和内存超调

    我尝试运行以下代码 但它显示有关内存地址的错误 并显示一条消息 循环后 n 可能未定义 请看一看 var n max integer n integer r R1 f h0 Array of Real const h 0 00889 nip
  • TColorProperty德尔福柏林10.1.2?

    我正在尝试将组件从 Delphi 7 转换为 Delphi Berlin 平面组件 https sourceforge net projects flatstyle https sourceforge net projects flatst
  • 使用项目中的波形文件

    我目前只能通过将波形文件放在已编译的 exe 旁边来播放背景声音 但我实际上想要一个包含波形文件的静态可执行文件 这在Delphi XE2中可能吗 这是我的代码 SndPlaySound Raw wav SND ASYNC or SND L
  • Delphi 流畅的界面

    使用上有什么优点和缺点流畅的界面 http en wikipedia org wiki Fluent interface在德尔福 流畅的界面应该会增加可读性 但我对此有点怀疑one包含很多链式方法的长 LOC 是否存在编译器问题 是否存在任
  • Delphi:写入后代类中私有祖先的字段

    我需要修复第三方组件 该组件的类具有私有变量 该变量由其后代主动使用 TThirdPartyComponentBase class private FSomeVar Integer public end TThirdPartyCompone
  • 如何用不同的颜色绘制选定的列表框项目?

    是否可以更改 TListBox 中的项目选择焦点颜色和文本颜色 当项目中未启用主题或列表框样式设置为所有者绘制时 项目周围的选择将被涂成蓝色 我相信这是由系统的外观设置全局定义的 我想将所选项目的颜色更改为自定义颜色 举个例子 结果会是这样
  • 在 Delphi 或 C++ Builder 中使用 Chromium Edge WebView2 [重复]

    这个问题在这里已经有答案了 既然 Microsoft Chromium Edge 已经最终确定 是否可以在 Delphi 或 C Builder 中使用它 据我了解 它是基于WebView2成分 是否有一个组件 例如TWebView2或者E
  • Delphi - 如果没有创建类,为什么这个函数可以工作?

    考虑这个类 unit Unit2 interface type TTeste class private texto string public function soma a b integer string end implementa
  • 为什么 Delphi 中的 ADO Next 记录处理速度变慢?

    我有一个多年前开发的 Delphi 4 程序 它使用Opus 直接访问 http sourceforge net projects directaccess 按顺序搜索 Microsoft Access 数据库并检索所需的记录 Delphi
  • CharInSet 不适用于非英文字母?

    我已经将应用程序从 Delphi 2007 更新到 Delphi 2010 一切都很顺利 除了一条编译正常但不起作用的语句 If Edit1 Text 1 in S then ShowMessage Found else ShowMessa
  • Delphi - Indy - 保存 GMail 草稿

    我一直在 Delphi 下使用 Indy 通过 gmail 帐户发送消息 使用 TIdSMTP 和 TIdMessage 组件 这绝对没问题 但是 我的客户请求将消息保存到 DRAFTS 文件夹 以便他在实际发送消息之前对 以编程方式创建的

随机推荐

  • Tabify 3 QDockWidget

    如何在 QMainWindow 中为 3 个小部件创建选项卡式停靠栏 我正在使用下面的代码 widget1 new QDockWidget this widget1 gt setObjectName name1 addDockWidget
  • 为什么 webgl 程序的着色器必须位于 html 文件中?

    我看到以下问题 有人询问如何从 html 中删除着色器 WebGL 是否有替代在 HTML 中嵌入着色器的方法 https stackoverflow com questions 5878703 webgl is there an alte
  • Django 与附加字段的多对多关系

    我想在自动创建的 ManyToMany 连接表中存储一些附加信息 我将如何在 Django 中做到这一点 就我而言 我有两个表 员工 和 项目 我想要存储的是每个项目中每个员工每小时的工作收入是多少 因为这些值并不相同 那么 我该怎么做呢
  • 如何使用 PHP + HTML 在超链接中传递数据库值

    我的数据库中有一个名为 Artists 的表 它包含两个乐队 我想做的是能够使用超链接单击乐队名称 将该乐队名称发送到另一个 php 页面进行处理 我的超链接语法抛出错误 query SELECT FROM artists result m
  • 在mongo shell中访问shell环境

    有没有办法在 mongo shell 中访问 shell 环境变量 在nodejs中 它可以访问脚本中的环境变量 如下所示 var uri process env MONGOLAB URI 我正在 mongo 脚本中寻找相同的方式 您可以使
  • 有断头台限制的相同矩形内矩形打包算法的提示吗?

    我的任务是为一位熟人构建一个程序 该程序计算出将书页适合打印和剪切的大纸张的最佳方式 在实践中 这意味着我需要找到在给定矩形 打印纸 内排列具有相同尺寸 页面 的矩形的最佳方法 以便可以使用断头台切割来分离所有页面而不破坏任何页面 如果你们
  • QTableView 格式化单独的行和列

    也许我要问的问题太基本了 以至于我在某个地方错过了它 但我用谷歌搜索了各种各样的东西 但我无法找到答案 我有以下表视图 来自 SQLite 表 body new QSqlTableModel parent data gt m db body
  • return 语句何时需要显式移动?

    In a 对另一个问题的评论 https stackoverflow com q 17473753 321013乔纳森 韦克利回应我的声明 您永远不需要显式移动局部变量函数返回 价值 这是隐式的移动 gt 永远不要说永远 如果局部变量 您需
  • Roboguice 全球活动经理

    我在 Android 应用程序中使用 RoboGuice 3 0 1 和 RoboBlender 我想要一个全局事件管理器 并注意到 RG3 0 已经有了它 如下所述 https github com roboguice roboguice
  • iPhone 操作系统是 64 位还是 32 位?

    有人知道 iPhone 操作系统是基于 32 位还是 64 位架构吗 ARM http en wikipedia org wiki ARM architecture是32位架构 我相信iPhone和iPhone 3G使用omap2 它使用A
  • 通过比较 4 个不同的行来提取数据

    表数据如下 需要提取满足以下条件的记录 这里值 值2 值1 Value of two days back data should be gt 2 Value of last day data is lt 0 Value of next da
  • groupby pandas:插入列的索引与框架索引不兼容

    我已经对 pandas 执行了 groupby 我想应用一个复杂的函数 该函数需要多个输入 并给出一个 pandas Series 作为输出 我想将其刻录在原始数据框中 这对我来说是一个已知的过程 并且效果很好 除了最后一个案例 我对无法完
  • Roslyn 启动时间慢

    我注意到 Roslyn 解析 编译的启动时间是相当大的一次性成本 编辑 我正在使用 Roslyn CTP MSI 程序集位于 GAC 中 这是预期的吗 有什么解决方法吗 运行下面的代码 执行 1 次迭代 约 3 秒 所需的时间与运行 300
  • 如何重写 python 对象中的 __type__ 方法?

    我创建了一个 Python 类来进行一些数学计算 在该对象中 我试图更改类型 type 方法结果 而我的尝试失败了 当我尝试为出现的对象使用 type 方法时
  • 如何向用户显示电子邮件地址但对机器人隐藏?有没有一种简单的方法可以使用 PHP、Javascript 或 Jquery 来做到这一点?

    有没有一种优雅且简单的方法可以使用 PHP Javascript 或 Jquery 来做到这一点 有很多方法可以做到这一点 我们很幸运地通过 python javascript 混淆了源代码 另一个更简单的最爱是 CSS unicode b
  • 为什么 ExtJS 在格式化日期时要减去一天?

    Using ExtJS 4 0 2 我可以在控制台中输入以下内容 Ext util Format date 2012 01 13 m d Y I get 01 12 2012 Why 我可以用以下方法纠正它 Ext util Format
  • 第一次 MKReverseGeocoder: didFailWithError:Error Domain=NSURLErrorDomain Code=-1011 {PBHTTPStatusCode=503}

    在我的应用程序中 第一次reverseGeocoder 结果如下错误块 didFailWithError 错误 Domain NSURLErrorDomain Code 1011 该操作无法 完全的 NSURLErrorDomain 错误
  • ViewPager 以编程方式滚动

    我有一个简单的ViewPager 是否有可能以编程方式使用通常的动画每五秒滚动一次 看一眼ViewPager setCurrentItem int 并将其与TimerTask or a Handler 例子 final ViewPager
  • 更改MFC中按钮的光标

    我正在尝试更改 MFC 对话框中按钮的光标 我用过 BOOL CStartDlg OnSetCursor CWnd pWnd UINT nHitTest UINT message if m changeCursor SetCursor Af
  • 是否有可用的一致的全局格式设置变量?

    我知道有一个全球性的FormatSettings变量 available 在启动时使用当前区域操作系统设置进行初始化 这意味着 当您将字符串转换为数字时 例如保存在 xml 文件中 然后您可以与其他 PC 交换该文件 可能会发生无法加载此类