[Delphi] Delphi Tips

Delphi Tips

使用Delphi已经两年，虽然是一门凋零的只剩下灰的语言，换了一份工作，工作中偶尔使用Python做一些小工具，但是主要使用的还是Delphi,之后可能也会换Python为主要的语言，但是还是希望将工作中遇到的一些问题写下来，编程是个一直用不一定会成长，但是一段时间不用肯定会倒退的技能，大家真的要学会学以致用。

函数篇

• StrToDate()

  语法篇

  网络篇

  内存篇

---

函数篇

• 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;

---

语法篇

网络篇

内存篇

未完待续