//first all to Kingron: 真高兴又见到你var vDateTime: TDateTime; begin DateSeparator := '-'; if TryStrToDate('2001-11-15', vDateTime) then ShowMessage('DateSeparator=- 2001-11-15ok'); DateSeparator := '-'; if TryStrToDate('2001.11.15', vDateTime) then ShowMessage('DateSeparator=- 2001.11.15ok'); DateSeparator := '.'; if TryStrToDate('2001-11-15', vDateTime) then ShowMessage('DateSeparator=. 2001-11-15ok'); DateSeparator := '.'; if TryStrToDate('2001.11.15', vDateTime) then ShowMessage('DateSeparator=. 2001.11.15ok'); end;
to Kingron:
真高兴又见到你var
vDateTime: TDateTime;
begin
DateSeparator := '-';
if TryStrToDate('2001-11-15', vDateTime) then
ShowMessage('DateSeparator=- 2001-11-15ok');
DateSeparator := '-';
if TryStrToDate('2001.11.15', vDateTime) then
ShowMessage('DateSeparator=- 2001.11.15ok');
DateSeparator := '.';
if TryStrToDate('2001-11-15', vDateTime) then
ShowMessage('DateSeparator=. 2001-11-15ok');
DateSeparator := '.';
if TryStrToDate('2001.11.15', vDateTime) then
ShowMessage('DateSeparator=. 2001.11.15ok');
end;
自己发挥一下就搞定了
不要偷懒呀,这样可学不好东西