Delphi 解决StrToDateTime()不是有效日期类型的问题

相关资料:

http://www.delphitop.com/html/shijian/4924.html

方法1:
function GetDateFormat():string;
var
  SysFrset: TFormatSettings;
begin
  Result:='';
  GetLocaleFormatSettings(GetUserDefaultLCID, SysFrset);
  Result:=SysFrset.DateSeparator;  //DateSeparator当前系统日期分隔符
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var   
  Dat:TDateTime;
  Fr, Fm:string;//保存日期格式的字符串变量
  str: string;
begin  
  Fr:=GetDateFormat;//获取当前系统日期分隔符
  Fm:= Format('yyyy%sMM%sdd hh:mm:ss',[Fr,Fr]);
  str:= FormatDateTime(Fm,Now);
  ShowMessage(str);
  Dat:=StrToDateTime(str);  //这样始终都会跟当前系统日期分隔符同步,这样不管你把当前系统日期分隔符设置为什么样都不会报错
end;
 
方法2:
procedure TForm1.btn2Click(Sender: TObject);
var
  D:TDateTime;
  s:string;
begin
//  D:=VarToDateTime('05-10-14 04:35PM');
  D:=VarToDateTime('2018-03-13 12:12:12');
  S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D);
  showmessage(s);
end;
 
----------------------------------
在 DELPHI IDE 下 按下 CTRL+SHIFT+F 。搜索 Application.Initialize; 就能找到 代码的修改位置。
另外 也可以不要 Application.Initialize; ,然后代码放到 其他位置。
特别是你第一个建立的 对象的位置。
例如 DataMoudle 或者 主界面,或者 登录界面。
在他们的 OnCreate 里写就行了。
with FormatSettings do
  begin
    ShortDateFormat := 'yyyy-mm-dd';
    LongDateFormat :=  'yyyy-mm-dd';
    ShortTimeFormat := 'hh:nn:ss';
    LongTimeFormat := 'hh:nn:ss';
    DateSeparator := '-';
    TimeSeparator := ':';
  end;

posted on 2020-03-07 14:52  疯狂delphi  阅读(1654)  评论(0编辑  收藏  举报

导航