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

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

1

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>  D: TDateTime;<br>  S: string;<br>  FA: TFormatSettings;<br>begin<br>  //Delphi 默认的日期格式是 yy/mm/dd  也就是斜杠。如果是 - 号分隔，就需要设置一下 TFormatSettings<br>  S := '2021-03-10';<br>  FA := TFormatSettings.Create;<br>  FA.DateSeparator := '-';<br> <br>  D := StrToDateTime(S, FA);<br>  Label1.Caption := DateTimeTostr(D);<br>end;

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