用VCL内置的ShortDateFormat和ShortTimeFormat: procedure TForm1.Button1Click(Sender: TObject); var dt: TDateTime; begin dt := StrToDateTime(FormatDateTime( ShortDateFormat + ' ' + ShortTimeFormat, Now)); Memo1.Lines.Add(DateTimeToStr(dt)); end;