DELPHI 获取当前时间

你可以使用 Delphi 中的内置函数 Now 获取当前时间。Now 函数返回一个 TDateTime 类型的值，它表示当前日期和时间。例如，以下代码演示如何获取当前时间并将其显示在 MessageDlg 函数中：

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('当前时间：' + DateTimeToStr(Now), mtInformation, [mbOK], 0);
end;

在上面的代码中，使用了 Delphi 中另一个内置函数 DateTimeToStr 将 TDateTime 类型的值转换为字符串，以便能够在 MessageDlg 函数中显示。