2020 年 1月 10 日随笔档案 - redhat588

2020年1月10日

摘要： 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 阅读(456) 评论(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 阅读(895) 评论(0) 推荐(0)