Delphi 很方便的String转DateTime函数

System.Variants

VarToDateTime();

 

测试

s:='2019-05-13';
a:=VarToDateTime(s);
ShowMessage(DateTimeToStr(a));

支持多种格式