varF:Text;sourceFile:textFile;//推荐用textFile速度会比Text快很多AssignFile(F,'data.txt');Ass…
阿里云发送短信的Delphi单元
unitJrCommon;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ShellAPI…
unitDBGridEhToExcel;interfaceusesSysUtils,Variants,Classes,Graphics,Controls,Forms,Excel2000,ComObj,…
unituGUID;{采用的开源算法https://github.com/martinusso/ulid加已改造成32位有序GUID}interfaceusesDateU…
unitfun;interfaceusesWindows,Forms,SysUtils,TlHelp32,ActiveX,ComObj,ShlObj;procedureMutex;//进程互斥…
unitHEXE.Utils;interfaceusesSysUtils,StrUtils;typeTText=arrayofstring;procedureExChange(varC1,C2:Cha…
CPUandRAMusageinformation*.pasforDelphix32/x64unituCPUInfo;(*lightweightunitforaccesstoCPUandRAMusag…
unitMyStrUtils;interfaceusesTypes;functionRight(S:String;Count:Integer):String;functionStartsWith(S,…
{*******************************************************}{}{纯真IP数据库查询}{QueryWryData.pas&...
unitutil_utf8;interfaceusesWindows;typeUTF8String=AnsiString;functionAnsiToWide(constS:AnsiString):W…
调用方法:usesuntLog;log.WriteLog('hello');{********日志单元*******}{}{Cobbler}{}{版权所有(C)2011Co…
unituMyFunctions;interfaceusesSystem.Classes,System.Types,System.SysUtils,System.IniFiles,System.IOU…
DELPHIXE10串口操作单元一、串口单元unitSPComm;//{$WARNSYMBOL_DEPRECATEDOFF}////ThisCommunicatio…
unituRandomUtils;interfaceusessystem.math,system.SysUtils;functionGe****andomCharS****(ADig:integer)…
unituStrUtils;interfaceusesSysUtils,Classes,System.RegularExpressions,StrUtils,StdCtrls,System.NetEn…
unitProcUtils;interfaceusesWindows,SysUtils,Tlhelp32;functionKillTask(ExeFileName:string):Integer;//…
unitEjectUSB;interfaceusesWindows,SysUtils,Classes,Dialogs,ShlObj;const{BusTypeUnknown=$0000;BusType…
{}{Thecontentsofthisfileareusedwithpermission,subjectto}{theMozillaPublicLicenseVersion1.1(the"Licen…
这个HASH类是我在学习《DELPHI算法与数据结构》的时候按照上面的文字和例子重新整理的,就是为了自己看起来…