一對一視訊原始碼，通過日期字串轉換日期型別格式

一對一視訊原始碼，通過日期字串轉換日期型別格式實現的相關程式碼

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;

以上就是一對一視訊原始碼，通過日期字串轉換日期型別格式實現的相關程式碼， 更多內容歡迎關注之後的文章