日期字符串转换为日期类型的格式问题

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 函数，可以增加一个格式定义，指定分隔符为 【-】 来解决。