一对一视频源码,通过日期字符串转换日期类型格式
一对一视频源码,通过日期字符串转换日期类型格式实现的相关代码
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;
以上就是一对一视频源码,通过日期字符串转换日期类型格式实现的相关代码, 更多内容欢迎关注之后的文章