[Delphi] Delphi Tips

时间:2022-04-24 22:16:45

标签:

Delphi Tips

函数篇

StrToDate()

function StrToDate(const S: string): TDateTime;
function StrToDate(const S: string;
const FormatSettings: TFormatSettings): TDateTime;

StrToDate将给定的字符串转换为日期值。 分隔符只能是为‘‘ / ‘‘, eg: ‘2019-10-01‘, 年值假定在本世纪为0到99之间。 给定字符串只能包含有效日期。

如分隔符不是‘‘ / ‘‘, 如‘‘2010-12-1‘‘, 此时抛错: ‘‘2010-12-1‘‘ is not a valid date‘.为解决此函数固定分隔符的问题。可构造 getformat函数。

function getformat(str: string):string; var I, j: Integer; begin for I := 1 to length(str) do begin if not TryStrToInt(str[i], j) then begin result := str[i]; break; end; end; end; procedure TForm1.Button1Click(Sender: TObject); var dt: TdateTime; formatter, s: string; begin s := '2010-12-1'; formatter := getformat(s); showmessage(datetimetostr(strtodate(stringreplace(s, formatter, '/', [rfReplaceAll])))); end; 语法篇 未完待续

[Delphi] Delphi Tips

标签:

原文地址:https://www.cnblogs.com/xianeri/p/11674042.html