procedure TForm1.Button1Click(Sender: TObject);
var
D: TDateTime;
S: string;
FA: TFormatSettings;
begin
//Delphi 默认的日期格式是 yy/mm/dd 也就是斜杠。如果是 - 号分隔,就需要设置一下 TFormatSettings
S := '2021-03-10';
FA := TFormatSettings.Create;
FA.DateSeparator := '-';
D := StrToDateTime(S, FA);
Label1.Caption := DateTimeTostr(D);
end;
代码说明:
字符串 S := '2012/08/23' 可以直接用 StrToDateTime(S) 来转换。但如果不是斜杠,是【-】号,还是这个 StrToDateTime 函数,可以增加一个格式定义,指定分隔符为 【-】 来解决。