關於日期與字串轉換時出錯的分隔符,小記一下容易忘記

雲水浮萍發表於2015-03-28

procedure TForm2.Button1Click(Sender: TObject);
var
  pDateTime:TDateTime;
begin
  FormatSettings.DateSeparator:='-';  //System.SysUtils;
  //System.SysUtils.FormatSettings.TimeSeparator:=':';
  ShowMessage(System.SysUtils.FormatSettings.ShortDateFormat);
  pDateTime:=StrToDateTime('2015-3-28 12:32:1');

  ShowMessage(FormatDateTime('yyyy-mm-dd',pDateTime));

  ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',pDateTime));

  ShowMessage(FormatFloat('#.000',111113.1415926));
end;

相關文章