频道分类
您的位置:网站首页 > 函数

delphi 对int64计算的一种处理方式

最近写刻录程序时用到了int64计算比例的功能,integer的范围是4G,而普通DVD光盘容量就是4.3G,直接计算是通…

类别:函数 标签: 作者:admin 日期:2020-10-13 08.49.46

Delphi SetTextBuf

SetTextBuf设置文本文件内部缓冲区的大小procedureSetTextBuf(varf:Text;varBuf);procedureSetTextBuf(varf…

类别:函数 标签: 作者:admin 日期:2020-10-13 08.23.58

delphi 四舍五入取整函数

delphi四舍五入取整函数一、四舍五入法四舍五入是一种应用非常广泛的近似计算方法,其有算术舍入法和银行家…

类别:函数 标签: 作者:admin 日期:2020-10-11 18.24.01

Delphi PostMessage 虚拟按键

在论坛上看很多人在问模拟按键的问题,比较好的是用Winio,但这样一是要加载winio.sys,二是基本只支持当前…

类别:函数 标签: 作者:admin 日期:2020-09-30 15.07.39

delphi 判断一个颜色是否是亮色

functionIsLightColor(constAColor:TColor):Boolean;varr,g,b,yiq:integer;beginr:=GetRValue(AColor);g:=G…

类别:函数 标签: 作者:admin 日期:2020-06-25 09.00.55

Delphi的整数性能测试

functionTest2:integer;vars:integer;begins:=0;TParallel.&For(1,MAXN,procedure(i:integer)beginif(I…

类别:函数 标签: 作者:admin 日期:2020-03-31 09.14.05

delphi 查找并删除过期的日志目录

usesShellAPI,DateUtils;procedureRemoveLogDirectory(DirecName:string);varF:TSHFILEOPSTRUCT;begintryFi…

类别:函数 标签: 作者:admin 日期:2020-03-29 22.29.38

Delphi Inputbox 输入时显示*号

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…

类别:函数 标签: 作者:admin 日期:2020-03-28 23.07.47

delphi 判断素数的简单例子

一个判断素数的简单例子:functionIsPrime(N:Integer):Boolean;varTest:Integer;beginIsPrime:=True;forTes…

类别:函数 标签: 作者:admin 日期:2020-03-11 10.59.02

delphi 个人所得税计算函数

functionInco****xCalc(constAValues:double):double;varoverPays:double;begin//个人所得税计算函数****按…

类别:函数 标签: 作者:admin 日期:2020-03-05 23.54.57

Delphi 中流的使用

所谓"流",就是一段数据或是一块内存;在进行流操作时,我们不必关心流中的数据到底是什么;只需要知道流的大小…

类别:函数 标签: 作者:admin 日期:2020-02-27 09.43.17

Delphi 内存分配 StrAlloc

给字符指针(PChar、PWideChar、PAnsiChar)分配内存,最佳选择是:StrAlloc.StrAlloc虽然最终也是调用了GetMem…

类别:函数 标签: 作者:admin 日期:2020-02-27 09.17.49

delphi SysUtils.StrCat

//把源串添加到目标串后,要求目标串必须有足够的空间StrCat(Dest:PChar;{目标串}constSource:PChar{源串}):…

类别:函数 标签: 作者:admin 日期:2020-02-27 09.15.40

delphi SysUtils.StrCopy、SysUtils.StrECopy

S****Copy和S****ECopy都是复制源PChar串到目标PChar串,只是返回值不同;S****Copy返回结果的首地址,S****EC…

类别:函数 标签: 作者:admin 日期:2020-02-27 09.13.06

Delphi Snowflake一秒可生成500万ID的分布式自增ID算法—雪花算法

概述分布式系统中,有一些需要使用全局唯一ID的场景,这种时候为了防止ID冲突可以使用36位的UUID,但是UUID…

类别:函数 标签: 作者:admin 日期:2020-02-23 17.22.23

Delphi 大小排序算法代码

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:函数 标签: 作者:admin 日期:2020-02-10 19.59.15

Delphi 官方 ProcessMessages 用法代码例子

constmagicnumber=500;procedureTForm1.FormCreate(Sender:TObject);beginButton1.Caption:='IgnoreMessage…

类别:函数 标签: 作者:admin 日期:2020-02-10 13.40.27

Delphi 获取星期的函数

FunctionGetWeek(dtTarih:TDateTime):String;beginCaseDayOfWeek(dtTarih)of1:Result:='星期日';2:Result:=…

类别:函数 标签: 作者:admin 日期:2020-02-09 18.37.39

Delphi Application.ProcessMessages的作用

最大的作用就是减少假死。比如当你执行一个很大的循环语句,这时候程序一直在执行这个循环,那么程序一直在…

类别:函数 标签: 作者:admin 日期:2020-02-07 12.41.59

delphi求数组最大\最小值

delphi求数组最大\最小值//求最大值functionGetMaxInArray(A:arrayofInteger):Integer;varI:Integer;tmpMax…

类别:函数 标签: 作者:admin 日期:2020-01-05 15.06.28