unit Unit1;interface
uses
  Windows,  SysUtils, Dialogs;
implementation
var
  i : integer;
  DateTime1 : TDateTime;
begin
  DateTime1 := now;
  showmessage(datetimetostr(DateTime1));end.

解决方案 »

  1.   

    对了,windows也不用!
    实际上datetime是sysutils的冬冬,showmessage是dialogs的东西。
      

  2.   

    单纯的使用日期和时间函数,用SysUtils这个单元就可以。
    SysUtils中包含了很多常用的函数和过程,详细的可以参考《DELPHI 技术手册》一书
      

  3.   

      先谢谢前面几位。
     我要执行 DateTimePicker1.Color:=clBtnFace;  改变日期控件的颜色,
               DateTimePicker1.Enabled:=False;    不让修改日期;
      这些在Form1中是没问题的。
     但我把自已做的函数在一个纯Unit中,要用时,引用Unit调用其中的函数。在Unit的函数中要用到 DateTimePicker1.Enabled:=False; 之类的属性.但是用不了。
     我的是DateTimePicker1控件的属性,不是DateTime1的属性。(是我的标题写错了)