function DateYear(const ADate: TDateTime): Word; var Month, Day: Word; begin DecodeDate(ADate, Result, Month, Day); end; function DateQuarter(const D: TDateTime): Byte; var Year, M...

function CombineDateTime(const dateSource, timeSource: TDateTime): TDateTime; var datePart: TDateTime; timePart: TDateTime; begin datePart := DateOf(dateSource); // 提取日期部分 ti...

unit jmu1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sLabe...

function Base64Encode(const Input: TIdBytes): string; begin Result := TIdEncoderMIME.EncodeBytes(Input); Result := StringReplace(Result, '+', '-', [rfReplaceAll]); Result := String...

function EncryptHMACSha1(Input, AKey: AnsiString): TIdBytes; var Key: TIdBytes; begin with TIdHMACSHA1.Create do try Key := ToBytes(AKey); Result := HashValue(ToBytes(Input)); fina...

procedure GetBuildInfo(var V1, V2, V3, V4: word); var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: PVSFixedFileInfo; begin VerInfoSize := GetFileVersionInfo...

备用，是否正确待测其一 需要opensll ,其二不需要uses IdHMACSHA1, System.Hash,IdCoderMIME, IdGlobal; function EncryptHMACSha512(Input, AKey: String): String; var SHA512 : TIdHMACSHA51...

在Delphi中生成UUID（通用唯一识别码）非常简单，以下是几种常用的方法：1. 使用 CreateGuid 函数Delphi提供了一个内置的 CreateGuid 函数，可以用来生成UUID。以下是一个示例程序：program Gui...

function UrlEncode(CONST URL: string): string; { It also fixes the Indy encoding issue. http://stackoverflow.com/questions/5708863/indy-is-altering-the-binary-data-in-my-url } VAR ...

在 JavaScript 中，Date 对象表示从 Unix 纪元（1970 年 1 月 1 日 00:00:00 UTC）开始的毫秒数。而在 Delphi 中，TDateTime 表示从 1899 年 12 月 30 日开始的浮点数，其中整数部分是天数，...

//--判断返回操作系统是否是64位 //--淡淡的风整理QQ16643506 function IsWin64: Boolean; var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows...

Delphi中的StringReplace函数是SysUtils单元中自带的函数:type     TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);   function StringReplace(const S, OldPattern, NewP...