Delphi 时间转换异常处理(各Win系统时间显示格式不同)

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;

procedure TForm1.btn2Click(Sender: TObject);
var
  dDateTime:TDateTime;
  sTemp:string;
begin
//  dDateTime:=VarToDateTime(‘06-11-03 02:33AM‘);
  dDateTime:=VarToDateTime(‘2018-04-16 11:40:12‘);
  sTemp:=FormatDatetime(‘YYYY/MM/DD HH:MM:SS‘,D);
  showmessage(sTemp);
end;