delphi – 为什么TFormatSettings的行为不如预期的那样？

发布时间：2020-12-15 10:05:26 所属栏目：大数据来源：网络整理

导读：我期望以下代码可以正常工作： program Project3;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils;var FS: TFormatSettings;const DF = 'yyyymmdd';begin try WriteLn(FormatDateTime(DF,Now)); FS := TFormatSettings.Create; FS.ShortDateFormat := DF;

我期望以下代码可以正常工作：

program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  FS: TFormatSettings;

const
  DF = 'yyyymmdd';

begin
  try
   WriteLn(FormatDateTime(DF,Now));

   FS := TFormatSettings.Create;
   FS.ShortDateFormat := DF;
   WriteLn(StrToDate('20121219',FS));

   ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName,': ',E.Message);
  end;
end.

为什么会抛出异常,说“20121219”不是有效的日期？ TFormatSettings应该怎么做？

解决方法

StrToDate()需要在FS.DateSeparator中定义的分隔符：Char;所以不能是空的.

参考：
http://docwiki.embarcadero.com/Libraries/XE3/en/System.SysUtils.StrToDate

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!