Delphi 使用FormatSettings避免日期格式化错误

最新推荐文章于 2023-03-22 17:19:47 发布
最新推荐文章于 2023-03-22 17:19:47 发布
阅读量931 收藏
点赞数
分类专栏： Delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/u011706768/article/details/119758561
版权
这段代码展示了如何使用TFormatSettings创建并设置日期格式，将字符串'2021/10/10 15:11:25'转换为TDateTime类型，设置短日期格式为'YYYY/MM/dd'，日期分隔符为'/'.

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

var
  tmpDateTime: TDateTime;
  FSetting: TFormatSettings;
begin
  FSetting := TFormatSettings.Create(LOCALE_USER_DEFAULT);
  FSetting.ShortDateFormat := 'YYYY/MM/dd';
  FSetting.DateSeparator := '/';
  tmpDateTime := StrToDateTime('2021/10/10 15:11:25',FSetting);

Delphi中StrToDateTime函数TFormatSettings参数的使用
03-31 3万+
var FSetting : TFormatSettings; DateTime1: tDateTime; begin FSetting := TFormatSettings.Create(LOCALE_USER_DEFAULT); FSetting.ShortDateFormat:='yyyy-MM-dd'; FSetting.DateSeparator:='-'; //
delphi7 FormatFloat 四舍五入
05-25
delphi7 FormatFloat 四舍五入时,某些情况下不进一,测试代码如下 procedure TForm1.FormShow(Sender: TObject); var a:double; begin a:=16.685; showmessage(formatfloat('0.00',a)); application.Terminate; end; 解决方法:把下载到的文件覆盖到**\Borland\Delphi7\Lib下
delphi中日期格式的设定
qq_18932003的博客
10-28 940
XP和Win7的日期格式在系统默认中并不一致，也许会对编程造成困扰，不是吗？ 　　设定系统日期的默认格式可以改变这一问题，可是这听起来并不完美。 　　通过Forms.TApplication.UpdateFormatSettings设定可以很好的解决问题。这是Help里的描述： Specifies whether format settings are updated automatical...
问题-[Delphi7]程序在WIN7电脑上的日期错误处理
weixin_33774883的博客
07-17 263
问题现象：我想大家都遇到过在XP上没有问题的日期格式，到了WIN7之后就不行了。 问题原因：因为在WIN7中增加了新的日期格式，但是老的DELPHI未处理（如果我说错了，希望高人指点）。 问题处理： function StrToDateWin7(DateStr: string): TDateTime;var  T: TDateTime;  Fs: TFormatSettings;begin ...
delphi FormatDateTime
rznice的专栏
03-07 6122
FormatDateTime Function Rich formatting of a TDateTime variable into a string SysUtils unit 1  function FormatDateTime(const Formatting : string; DateTime : TDateTime) : stri
Delphi6和Delphi7代码格式化工具
05-09
总的来说，"Delphi 6和Delphi 7代码格式化工具"是提升Delphi开发体验的必备辅助工具，它弥补了原生IDE的不足，使代码管理更加便捷，有助于团队合作和项目维护。熟练掌握并利用这类工具，可以大大提高开发者的生产力...
Delphi格式化数字金额
05-11
摘要:Delphi源码,字符处理,字符格式化 ...Delphi格式化数字金额的源码，把金额统一化显示，使用format来实现，例子简单，源码完整，可用Delphi7直接编译的，有需要使用的可参考下。 运行环境：Windows/Delphi7
格式化各种日期小工具.rar
07-07
在这个名为"格式化各种日期小工具.rar"的压缩包中，我们可以找到一个用Delphi编写的日期格式化工具。这个工具允许用户将日期按照不同的格式进行转换，这对于数据处理和展示来说非常实用。 Delphi中的日期处理主要...
Delphi设置系统日期格式
12-19
### Delphi 设置系统日期格式 在开发过程中，经常会遇到需要处理日期格式的情况。Delphi 提供了一套完整的 API 来帮助开发者实现对日期格式的定制与更改。本文将详细介绍如何在 Delphi 中设置系统的日期格式，并...
delphi设置系统时间格式
12-06
获取当前系统时间格式，及设置系统时间格式。在delphi中好多控件都是不支持系统时间格式辨认的，所以有时候需要强制设置系统时间格式。
利用Delphi格式化磁盘
05-18
摘要:Delphi源码,系统相关,格式化　利用Delphi实现格式化磁盘，包括软盘和硬盘驱动器的各个分区，测试时候要小心，不要误操作。本例主要是介绍Delphi与系统底层的一些简单的操作，学习Delphi编程就要全面一点哦，...
delphi Format用法
学习积累
01-26 1399
Format是一个很常用，却又似乎很烦的方法 首先看它的声明： function Format(const Format: string; const Args: array of const): string;overload; 事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的， 但并不多用，所以这里只对第一个介绍： function For
Delphi 中Format的字符串格式化使用说明
疯流人物
03-22 988
和上面一样Format参数为格式化指令字符，Value为Extended类型为什么是这个类型，因为它是所有浮点值中表示范围最大的，如果传入该方法的参数比如Double或者其他，则可以保存不会超出范围。对于字符型，刚好和整型值相反，如果prec比字符串型的长度大则没有效果，反之比字符串型的长度小，则会截断尾部的字符。u 和d一样是整型值，但它是无符号的，而如果它对应的值是负的，则返回时是一个2的32次方减去这个绝对值的数。注意一点，如果整数部分的0的个数小于Value参数中整数的位数，则没有效果。
Delphi7设置程序日期格式，减少WINDOWS系统默认的短日期格式的影响
一万个兵的专栏
03-16 409
Delphi7设置程序日期格式，减少WINDOWS系统默认的短日期格式的影响 具体代码如下： public { Public declarations } procedure SetSysDateFormat(); end; procedure TFrmMain.SetSysDateFormat; begin //设置Windows系统的短日期格式; SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,'yyyy-M
Delphi Xe 中如何把日期格式统一处理，玩转 TDatetime
11-09 543
日期格式的处理总是会很复杂，因为不同的环境日 期格式也不一样。为了程序统一处理， 最好把格式给统一了： 可以在程序的初始化段： FormatSettings.ShortDateFormat := 'dd/mm/yyyy'; FormatSettings.DateSeparator := '/'; for I := 1 to 12 do System.S...
delphi StrToDateTime在win7或者控制面板中改过短日期格式出错
fang16388的专栏
12-25 2329
在XP系统中 将区域语言选项中的短日期格式改成 再使用StrToDateTime转换时间 则处理会异常 示例： procedure TForm1.btn2Click(Sender: TObject); var   dateTimeStr,str1:String;   ADateTime:TDateTime; begin   dateTimeStr := '2013-
格式化日期字符串 FormatSettings使用
weixin_30343157的博客
03-25 754
如果 你想要得到 YYYY-MM/DD 这样的字符串 你肯定说这太简单了 直接 ShowMessage(FormatDateTime('YYYY-MM/DD',now)); 运行结果 YYYY-MM-DD (我本地系统日期分隔符是-) 并没有出来预期结果。 解决方法 ： FormatSettings.DateSeparator :='/'; Forma...
delphi mysql字符函数参数_Delphi中StrToDateTime函数TFormatSettings参数的使用
weixin_42471893的博客
01-26 496
varFSetting:TFormatSettings;DateTime1:tDateTime;beginFSetting:=TFormatSettings.Create(LOCALE_USER_DEFAULT);FSetting.ShortDateFormat:='yyyy-MM-dd';FSetting.DateSeparator:='-';//FSetting.TimeSepara...
delphi 系统日期格式
最新发布
03-13
<think>好的，我现在需要帮助用户解决在Delphi中设置系统日期格式的问题。首先，我应该先理清用户的具体需求。用户提到想了解如何设置或处理系统日期格式，并且已经参考了站内的四个引用内容。我需要结合这些引用信息，给出一个结构清晰的回答。 首先，回顾引用[1]，里面提到使用TDateTime和TFormatSettings类来处理日期和时间，特别是格式化选项。这可能涉及到如何正确地将日期字符串转换为TDateTime类型，而不会出现格式错误，比如引用[2]中的问题，用户遇到了strtodatetime的错误，尽管字符串看起来没问题。这可能与系统日期格式设置有关，导致转换失败。 然后，引用[3]和[4]提到了在程序中使用GetDateTimeFormat和SetDateTimeFormat来保存和恢复系统时间格式。这似乎是一个关键点，因为直接修改系统设置可能会影响其他程序，所以正确的做法是在程序初始化时保存当前设置，然后改为所需的格式，退出时再恢复。不过，引用[4]还提到如果其他程序也修改了格式，可能会有冲突，这时候可能需要处理WM_SETTINGCHANGE消息，但可能会显得比较“强盗”。 所以，用户的疑问可能集中在如何安全地设置系统日期格式而不导致冲突或错误，特别是如何处理像strtodatetime转换失败的情况。 接下来，我需要组织回答的结构。首先，应该分步骤说明设置系统日期格式的方法，可能包括使用API函数、使用Delphi内置类，以及处理转换错误。然后，要提到注意事项，比如保存和恢复原始设置，避免影响其他程序。同时，可能还要提到如何处理WM_SETTINGCHANGE消息来保持格式。 还要注意用户提到的引用内容，比如引用[3]和[4]中的方法，可能需要详细说明如何调用GetDateTimeFormat和SetDateTimeFormat，以及如何保存设置。此外，引用[2]中的问题，如何避免strtodatetime错误，可能需要使用TFormatSettings来指定特定的格式，而不是依赖系统设置。 另外，用户可能需要示例代码，比如如何正确使用TFormatSettings来解析日期字符串，或者如何调用SetDateTimeFormat函数。需要确保代码示例符合Delphi的语法，并正确使用相关单元和函数。 最后，需要生成相关问题，帮助用户进一步了解相关内容，比如如何处理日期转换错误，或者如何动态调整格式而不影响其他程序。 在整理这些思路时，要确保回答符合系统级指令的要求，比如使用正确的LaTeX格式，但根据用户的问题，可能数学公式较少，不过如果有涉及计算的例子，可能需要用$...$格式。但在这个问题中，可能更多是代码示例和步骤说明，所以主要关注正确使用代码块和引用标识。 需要验证引用中的信息是否准确，比如SetDateTimeFormat是否是Delphi的内置函数，或者是否是用户自定义的方法。根据引用[3]和[4]，看起来这些可能是用户自定义的方法，或者来自第三方资料，可能需要指出正确的API函数名称，比如使用Windows API中的SetLocaleInfo函数来更改系统设置。 例如，正确的做法可能是调用Win32 API的SetLocaleInfo函数，并处理LCID（Locale Identifier）。同时，修改注册表可能也是一种方法，但需要管理员权限，并且风险较高。 因此，在回答中需要明确说明使用Windows API的方法，以及使用Delphi的TFormatSettings来处理格式，避免依赖系统设置。同时，强调在修改系统设置前保存原始值，并在程序退出时恢复，以减少对其他程序的影响。 可能的结构如下： 1. 使用Windows API设置系统日期格式 - 使用SetLocaleInfo函数 - 需要处理权限和广播消息 - 示例代码 2. 使用Delphi内置方法处理日期格式（TFormatSettings） - 如何创建自定义格式设置 - 在转换时使用TFormatSettings避免错误 - 示例代码，如使用StrToDate函数并传入格式设置 3. 临时修改系统格式并恢复 - 在程序启动时保存当前设置 - 修改为所需格式 - 退出时恢复原设置 - 如何处理WM_SETTINGCHANGE消息 4. 注意事项 - 修改系统格式的影响 - 多程序同时修改的问题 - 推荐使用TFormatSettings而非修改系统设置 这样分步骤可以帮助用户逐步解决问题。同时，需要引用站内的引用内容，比如引用[3]和[4]提到的方法，在回答中适当标注引用标识。 现在需要确认具体的函数和步骤是否正确。例如，SetLocaleInfo可能需要特定的参数，比如LOCALE_SSHORTDATE或LOCALE_SLONGDATE，以及正确的区域设置。同时，修改后可能需要发送WM_SETTINGCHANGE消息通知其他程序设置已更改。 在Delphi中，可能需要声明这些API函数，例如： uses Winapi.Windows; procedure SetSystemDateFormat(const FormatStr: string); var LCID: LCID; begin LCID := GetThreadLocale; SetLocaleInfo(LCID, LOCALE_SSHORTDATE, PChar(FormatStr)); SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM(PChar('intl'))); end; 但需要注意权限问题，因为修改系统设置可能需要管理员权限。 此外，使用TFormatSettings的方法，例如： var FormatSettings: TFormatSettings; begin FormatSettings := TFormatSettings.Create; FormatSettings.ShortDateFormat := 'yyyy-mm-dd'; DateTime := StrToDate('2000-01-01', FormatSettings); 这样可以避免依赖系统设置，直接指定格式。 在回答中需要区分这两种方法：一种是修改系统全局设置（影响其他程序），另一种是在程序内部处理格式转换（不影响系统设置）。推荐使用第二种方法，因为更安全。 最后，生成相关问题，如如何避免日期转换错误，如何动态调整格式，如何处理多语言环境等。</think>在Delphi中设置系统日期格式需谨慎操作，以下是分步说明： ### 一、使用Windows API修改系统设置 1. 调用`SetLocaleInfo`函数修改注册表： ```delphi uses Winapi.Windows; procedure SetSystemDateFormat; var LCID: LCID; begin LCID := GetUserDefaultLCID; // 获取当前用户区域ID // 修改短日期格式为"yyyy-MM-dd" SetLocaleInfo(LCID, LOCALE_SSHORTDATE, 'yyyy-MM-dd'); // 通知系统设置已变更 SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM('intl')); end; ``` 注意：需以管理员权限运行程序[^3]。 ### 二、临时修改并恢复格式（推荐） ```delphi var OriginalShortDateFormat: string; // 初始化时保存原始格式 initialization OriginalShortDateFormat := GetLocaleStr(GetUserDefaultLCID, LOCALE_SSHORTDATE, ''); // 退出时恢复格式 finalization SetLocaleInfo(GetUserDefaultLCID, LOCALE_SSHORTDATE, PChar(OriginalShortDateFormat)); SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LPARAM('intl')); ``` ### 三、使用TFormatSettings避免依赖系统设置 处理日期转换错误时，应指定明确格式： ```delphi uses System.SysUtils; function SafeStrToDate(const DateStr: string): TDateTime; var Fmt: TFormatSettings; begin Fmt := TFormatSettings.Create; Fmt.ShortDateFormat := 'yyyy-mm-dd'; // 强制指定格式 Result := StrToDate(DateStr, Fmt); // 不再依赖系统设置[^2] end; ``` ### 四、注意事项 1. 修改系统格式会影响所有应用程序，建议仅在必要时使用 2. 多程序同时修改会导致格式冲突，推荐使用`TFormatSettings`[^4] 3. 需处理`WM_SETTINGCHANGE`消息保持格式稳定（可选）
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值