//将目标日期字符换转换为本地日期类型
var D1:TDateTime;
dtFormat: TFormatSettings;
begin
dtFormat.ShortDateFormat:= 'yyyy-MM-dd';
dtFormat.DateSeparator := '-';
D1:= StrToDate(Edit1.Text, dtFormat));
..........
end;
//将目标日期字符换转换为本地日期类型
var D1:TDateTime;
dtFormat: TFormatSettings;
begin
dtFormat.ShortDateFormat:= 'yyyy-MM-dd';
dtFormat.DateSeparator := '-';
D1:= StrToDate(Edit1.Text, dtFormat));
..........
end;