请教一个简单的DateTimePicker问题：

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
32　DateTimePicker1.Date:=Now;
33　DateTimePicker2.Time:=Now;
  Edit1.Text:= DateTimeToStr(Now);
  Edit2.Text:= DateTimeToStr(Now);
end;end.Build
  [Error] Unit1.pas(32): Illegal character in input file: '　' ($A1A1)
  [Error] Unit1.pas(33): Illegal character in input file: '　' ($A1A1)
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 1

Now这个函数取的是这样的数据" 年 月 日 时 分 秒"

Answer 2

请教如果我要DateTimePicker1取系统日期，DateTimePicker2取系统时间，该怎么改程序。

Answer 3

这样该：只用一个DateTimePicker1好了，一次取日期和时间DateTimePicker1.datatime:=now();edit1.text:=formatdatetime('yyyy-mm-dd',DateTimePicker1.datetime);edit1.text:=formatdatetime('hh-mm-ss',DateTimePicker1.datetime);

Answer 4

[Error] Unit1.pas(32): Illegal character in input file: '　' ($A1A1)
[Error] Unit1.pas(33): Illegal character in input file: '　' ($A1A1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
是因为代码中有不能编译的字符32　DateTimePicker1.Date:=Now;
33　DateTimePicker2.Time:=Now;
  Edit1.Text:= DateTimeToStr(Now);
  Edit2.Text:= DateTimeToStr(Now);将代码重新输入...