排序
Delphi中线程的释放
线程的释放方式有两种:一种是线程在运行完成后自动释放,一种是手动释放。无论是那种释放,都应该在线程停止后进行释放。然而线程的停止也有两种情况:一种是不需要设置标志位,直接完成;一种...
Delphi SetTextBuf
SetTextBuf设置文本文件内部缓冲区的大小procedure SetTextBuf( var f: Text; var Buf);procedure SetTextBuf( var f: Text; var Buf; Size: SizeInt);描述SetTe...
Delphi PostMessage 虚拟按键
在论坛上看很多人在问模拟按键的问题,比较好的是用Winio,但这样一是要加载winio.sys,二是基本只支持当前窗口按键,其实使用PostMessage就可以解决大部分游戏的按键模拟,很多人用不了就放弃...
delphi 判断一个颜色是否是亮色
function IsLightColor(const AColor: TColor): Boolean;var r, g, b, yiq: integer;begin r := GetRValue(AColor);...
Delphi的整数性能测试
//需要用到的库 http://delphitop.com/html/xiancheng/5562.htmlfunction Test2: integer;var s: integer;begin s := 0; TParallel.&For(1, MAXN, procedure(i: int...
delphi 查找并删除过期的日志目录
uses ShellAPI,DateUtils;procedure RemoveLogDirectory(DirecName: string);var F: TSHFILEOPSTRUCT;begin try FillChar(F, SizeOf(F), 0); with...
Delphi Inputbox 输入时显示*号
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;const InputboxMessage = WM_USER + 200; //定义消息typ...
delphi 判断素数的简单例子
一个判断素数的简单例子:function IsPrime (N: Integer): Boolean;var Test: Integer;begin IsPrime := True; for Test := 2 to N - 1 do  ...
delphi 个人所得税计算函数
//代码有点老,可以调整最新的算法 function IncomeTaxCalc(const AValues: double): double;var overPays: double;begin // 个人所得税计算函数 {&...
Delphi 中流的使用
所谓'流', 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性:Size、Position.对流的操作, 不过就是读取...
Delphi 内存分配 StrAlloc
给字符指针(PChar、PWideChar、PAnsiChar)分配内存, 最佳选择是: StrAlloc.StrAlloc 虽然最终也是调用了 GetMem, 但 StrAlloc 会在指针前面添加 Delphi 需要的 4 个管理字节(记录长度).StrAlloc...
delphi SysUtils.StrCat
//把源串添加到目标串后, 要求目标串必须有足够的空间StrCat( Dest: PChar; {目标串} const Source: PChar {源串}): PChar;  ...
delphi SysUtils.StrCopy、SysUtils.StrECopy
StrCopy 串专用函数: 复制串, 返回结果指针StrCopy 和 StrECopy 都是复制源 PChar 串到目标 PChar 串, 只是返回值不同;StrCopy 返回结果的首地址, StrECopy 返回结果的尾(#0)地址.unit Un...
Delphi Snowflake一秒可生成500万ID的分布式自增ID算法—雪花算法
概述 分布式系统中,有一些需要使用全局唯一ID的场景,这种时候为了防止ID冲突可以使用36位的UUID,但是UUID有一些缺点,首先他相对比较长,另外UUID一般是无序的。...
Delphi 大小排序算法代码
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Delphi 官方 ProcessMessages 用法代码例子
const magicnumber = 500;procedure TForm1.FormCreate(Sender: TObject);begin Button1.Caption := 'Ignore Messages'; Button2.Caption := 'Process Messages';end;procedure TFo...
Delphi 获取星期的函数
Function GetWeek( dtTarih: TDateTime ): String;begin Case DayOfWeek( dtTarih ) of 1 : Result := '星期日'; 2 : Result := '星期一'; 3 : Result := '星期二'; 4...
Delphi Application.ProcessMessages的作用
最大的作用就是减少假死。比如当你执行一个很大的循环语句,这时候程序一直在执行这个循环,那么程序一直在专心致志的执行,就给人的感觉是程序死了,但实际上没有。如果你加上Application.Proc...
delphi求数组最大最小值
delphi求数组最大最小值//求最大值function GetMaxInArray(A: array of Integer): Integer;var I: Integer; tmpMax: Integer;begin tmpMax := A[0]; for I := low(A) t...
Delphi 使用FastScript调试脚本
让我们创建一个应用程序来调试FastScript脚本。执行脚本时,将调用TfsScript OnRunLine事件。您可以从参数中看到要执行的代码。procedure TForm1.fsScript1RunLine(Sender: TfsScript; co...
Delphi SetPriorityClass 设置当前程序的优先级
在一些特定的情况下,我们需要设定我们程序的优先级比较高,这样能保证在程序的运行过程中,程序几乎不用考虑在被CPU执行时不被其他程序意外抢占。在winbase.h中是这样定义的:1.函数定义:WINB...
Delphi 对提交参数编码
function ParamsEncode(const ASrc: Ansistring): AnsiString;var i: Integer;begin Result := ''; for i := 1 to Length(ASrc) do begin if (ASrc[i] in ['&am...
Delphi 获取其它软件的TListBox句柄,怎么取得ListBox中的数据
//感谢冰力不足 提供function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;varvItemCount: Integer;I: Integer;S: string;beginResult := False;if not Assigned(mStrings)...
Delphi中SendMessage给一个Edit控件发送WM_SETTEXT消息
procedure SetWndText(hWnd:HWND; Text: string);var Ret: LongInt; mText: PChar; Buf: Integer;begin GetMem(mText, Length(Text)); StrCopy(mText, PChar(Tex...
Delphi CB_ADDSTRING 与LB_ADDSTRING的区别?
一个是向combobox,一个是向listbox中添加字符串CB:ComboBoxLB:ListBox都是添加字符串CB:ComboBox CB_ADDSTRING 添加 字符串到 Combo Boxes 。 CB_DELETESTRING 删除 Combo Boxes ...
Delphi获取句柄并发送消息
Delphi获取句柄并发送消息查找另外一个窗口的句柄: handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄查找子窗体:childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题...
Delphi 6句代码实现Delphi动态调用API函数
procedure TForm1.formcreate(Sender: TObject); //这里相当于于易语言的启动窗口事件,就是当窗口被创建时,就会运行下面的代码 type //首先用type定义一个函数,参数...
Delphi 中使用Dialog API
Delphi / C ++ Builder 10.1 Belrin的新功能之一是“简化对话框API”。使用的函数是InputQuery。TDialogService.InputQuery关数TDialogService.InputQuery函数显示一个带有输入字段的对话框。pr...
Delphi 常用API 函数
Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父...
meta 12小时前0
学习了,金智维好像用的这个语言jiaqy 昨天0
学习了平淡 2天前0
已经私发给您了,请查收盘山秃鹫 3天前0
付费了,但找不到阅读入口yl340122 15天前0
学习学习ZHUBAORUI 18天前0
我主要是用这个工具的搜索功能flow106 20天前0
跟网上的资料一样吗,好奇流浪 24天前0
有源码可以下载