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

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

Delphi 使用FastScript调试脚本

让我们创建一个应用程序来调试FastScript脚本。执行脚本时,将调用TfsScriptOnRunLine事件。您可以从参数中…

类别:函数 标签: 作者:admin 日期:2019-11-09 13.32.39

Delphi SetPriorityClass 设置当前程序的优先级

在一些特定的情况下,我们需要设定我们程序的优先级比较高,这样能保证在程序的运行过程中,程序几乎不用考…

类别:函数 标签: 作者:admin 日期:2019-10-31 22.18.53

Delphi 对提交参数编码

functionParamsEncode(constASrc:Ansistring):AnsiString;vari:Integer;beginResult:='';fori:=1toLength(A…

类别:函数 标签: 作者:admin 日期:2019-10-31 21.56.28

Delphi 获取其它软件的TListBox句柄,怎么取得ListBox中的数据

//感谢冰力不足提供functionGetListBoxText(mHandle:THandle;mStrings:TStrings):Boolean;varvItemCount:In…

类别:函数 标签: 作者:admin 日期:2019-10-31 19.14.52