一对一视频源码，通过日期字符串转换日期类型格式

一对一视频源码，通过日期字符串转换日期类型格式实现的相关代码

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;

​以上就是一对一视频源码，通过日期字符串转换日期类型格式实现的相关代码， 更多内容欢迎关注之后的文章