Delphi 字符串转日期,强大到窒息,困扰了很久

2018-08-14 09:53:00来源:博客园 阅读 ()

新老客户大回馈,云服务器低至5折

procedure THRForm.Button1Click(Sender: TObject);
var
  D:TDateTime;
  s:string;
begin
  D:=VarToDateTime('05-10-14 04:35PM');
  S:=FormatDatetime('YYYY-MM-DD HH:MM:SS',D);
  showmessage(s);
end;

 

尤其是在进行数据库语句操作时,对于字符串的来源不确定因素太多,有了该函数用起来真的很方便。举例如下:

FQuery.Parameters.ParamValues['Brithday']  := IfThen(edit1.Text= '', VarToStr(Null), VarToDateTime(edit1.Text));

 

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ClientDataSet应用

下一篇:XE5 搭建DataSnap服务