最近写刻录程序时用到了int64计算比例的功能,integer的范围是4G,而普通DVD光盘容量就是4.3G,直接计算是通…
SetTextBuf设置文本文件内部缓冲区的大小procedureSetTextBuf(varf:Text;varBuf);procedureSetTextBuf(varf…
delphi四舍五入取整函数一、四舍五入法四舍五入是一种应用非常广泛的近似计算方法,其有算术舍入法和银行家…
在论坛上看很多人在问模拟按键的问题,比较好的是用Winio,但这样一是要加载winio.sys,二是基本只支持当前…
functionIsLightColor(constAColor:TColor):Boolean;varr,g,b,yiq:integer;beginr:=GetRValue(AColor);g:=G…
functionTest2:integer;vars:integer;begins:=0;TParallel.&For(1,MAXN,procedure(i:integer)beginif(I…
usesShellAPI,DateUtils;procedureRemoveLogDirectory(DirecName:string);varF:TSHFILEOPSTRUCT;begintryFi…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…
一个判断素数的简单例子:functionIsPrime(N:Integer):Boolean;varTest:Integer;beginIsPrime:=True;forTes…
functionInco****xCalc(constAValues:double):double;varoverPays:double;begin//个人所得税计算函数****按…
所谓"流",就是一段数据或是一块内存;在进行流操作时,我们不必关心流中的数据到底是什么;只需要知道流的大小…
给字符指针(PChar、PWideChar、PAnsiChar)分配内存,最佳选择是:StrAlloc.StrAlloc虽然最终也是调用了GetMem…
//把源串添加到目标串后,要求目标串必须有足够的空间StrCat(Dest:PChar;{目标串}constSource:PChar{源串}):…
S****Copy和S****ECopy都是复制源PChar串到目标PChar串,只是返回值不同;S****Copy返回结果的首地址,S****EC…
概述分布式系统中,有一些需要使用全局唯一ID的场景,这种时候为了防止ID冲突可以使用36位的UUID,但是UUID…
unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
constmagicnumber=500;procedureTForm1.FormCreate(Sender:TObject);beginButton1.Caption:='IgnoreMessage…
FunctionGetWeek(dtTarih:TDateTime):String;beginCaseDayOfWeek(dtTarih)of1:Result:='星期日';2:Result:=…
最大的作用就是减少假死。比如当你执行一个很大的循环语句,这时候程序一直在执行这个循环,那么程序一直在…
delphi求数组最大\最小值//求最大值functionGetMaxInArray(A:arrayofInteger):Integer;varI:Integer;tmpMax…