2020 年 1月随笔档案 - redhat588

01 2020 档案

摘要：procedure TForm1.btn1Click(Sender: TObject); var D:TDateTime; s:string; begin D:=VarToDateTime('20-01-01 04:35PM'); S:=FormatDatetime('YYYY-MM-DD HH:M 阅读全文

posted @ 2020-01-10 13:20 redhat588 阅读(431) 评论(0) 推荐(0)

常用加密算法-Delphi XE 10.3.3

摘要：主要用到 DELPHI XE 10.2新增HASH函数 class function TUtils.GetStringMD5(const AInPut: string): string; begin Result := THashMD5.GetHashString(AInPut).ToLower; 阅读全文

posted @ 2020-01-10 09:01 redhat588 阅读(880) 评论(0) 推荐(0)