函数共255篇

Delphi中线程的释放

线程的释放方式有两种:一种是线程在运行完成后自动释放,一种是手动释放。无论是那种释放,都应该在线程停止后进行释放。然而线程的停止也有两种情况:一种是不需要设置标志位,直接完成;一种...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0529

Delphi SetTextBuf

SetTextBuf设置文本文件内部缓冲区的大小procedure SetTextBuf(  var f: Text;  var Buf);procedure SetTextBuf(  var f: Text;  var Buf;  Size: SizeInt);描述SetTe...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03714

delphi 四舍五入取整函数

delphi 四舍五入取整函数一、四舍五入法    四舍五入是一种应用非常广泛的近似计算方法,其有算术舍入法和银行家舍入法两种。    所谓算术舍入法,就是我们通常意义上的四...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04811

Delphi PostMessage 虚拟按键

在论坛上看很多人在问模拟按键的问题,比较好的是用Winio,但这样一是要加载winio.sys,二是基本只支持当前窗口按键,其实使用PostMessage就可以解决大部分游戏的按键模拟,很多人用不了就放弃...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0325

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

function IsLightColor(const AColor: TColor): Boolean;var  r, g, b, yiq: integer;begin  r := GetRValue(AColor);...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0525

Delphi的整数性能测试

//需要用到的库 http://delphitop.com/html/xiancheng/5562.htmlfunction Test2: integer;var  s: integer;begin  s := 0;  TParallel.&For(1, MAXN, procedure(i: int...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05113

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

uses ShellAPI,DateUtils;procedure  RemoveLogDirectory(DirecName: string);var  F: TSHFILEOPSTRUCT;begin  try    FillChar(F, SizeOf(F), 0);    with...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05615

Delphi Inputbox 输入时显示*号

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;const InputboxMessage = WM_USER + 200;   //定义消息typ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
06011

delphi 判断素数的简单例子

一个判断素数的简单例子:function IsPrime (N: Integer): Boolean;var    Test: Integer;begin    IsPrime := True;    for Test := 2 to N - 1 do   ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0479

delphi 个人所得税计算函数

//代码有点老,可以调整最新的算法  function IncomeTaxCalc(const AValues: double): double;var  overPays: double;begin    //  个人所得税计算函数  {&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0318
Delphi 中流的使用-Delphi编程技巧大全

Delphi 中流的使用

所谓'流', 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性:Size、Position.对流的操作, 不过就是读取...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0426

Delphi 内存分配 StrAlloc

给字符指针(PChar、PWideChar、PAnsiChar)分配内存, 最佳选择是: StrAlloc.StrAlloc 虽然最终也是调用了 GetMem, 但 StrAlloc 会在指针前面添加 Delphi 需要的 4 个管理字节(记录长度).StrAlloc...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0495

delphi SysUtils.StrCat

//把源串添加到目标串后, 要求目标串必须有足够的空间StrCat(  Dest: PChar;        {目标串}  const Source: PChar {源串}): PChar;       ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0559

delphi SysUtils.StrCopy、SysUtils.StrECopy

StrCopy  串专用函数: 复制串, 返回结果指针StrCopy 和 StrECopy 都是复制源 PChar 串到目标 PChar 串, 只是返回值不同;StrCopy 返回结果的首地址, StrECopy 返回结果的尾(#0)地址.unit Un...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05312

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

概述        分布式系统中,有一些需要使用全局唯一ID的场景,这种时候为了防止ID冲突可以使用36位的UUID,但是UUID有一些缺点,首先他相对比较长,另外UUID一般是无序的。...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05115
Delphi 大小排序算法代码-Delphi编程技巧大全

Delphi 大小排序算法代码

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0538

Delphi 官方 ProcessMessages 用法代码例子

const magicnumber = 500;procedure TForm1.FormCreate(Sender: TObject);begin  Button1.Caption := 'Ignore Messages';  Button2.Caption := 'Process Messages';end;procedure TFo...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0478

Delphi 获取星期的函数

Function GetWeek( dtTarih: TDateTime ): String;begin Case DayOfWeek( dtTarih ) of 1 : Result := '星期日'; 2 : Result := '星期一'; 3 : Result := '星期二'; 4...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0509

Delphi Application.ProcessMessages的作用

最大的作用就是减少假死。比如当你执行一个很大的循环语句,这时候程序一直在执行这个循环,那么程序一直在专心致志的执行,就给人的感觉是程序死了,但实际上没有。如果你加上Application.Proc...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05612

delphi求数组最大最小值

delphi求数组最大最小值//求最大值function GetMaxInArray(A: array of Integer): Integer;var  I: Integer;  tmpMax: Integer;begin  tmpMax := A[0];  for I := low(A) t...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05815

Delphi 使用FastScript调试脚本

让我们创建一个应用程序来调试FastScript脚本。执行脚本时,将调用TfsScript OnRunLine事件。您可以从参数中看到要执行的代码。procedure TForm1.fsScript1RunLine(Sender: TfsScript;  co...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0346

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

在一些特定的情况下,我们需要设定我们程序的优先级比较高,这样能保证在程序的运行过程中,程序几乎不用考虑在被CPU执行时不被其他程序意外抢占。在winbase.h中是这样定义的:1.函数定义:WINB...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04114

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
02811

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

//感谢冰力不足 提供function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;varvItemCount: Integer;I: Integer;S: string;beginResult := False;if not Assigned(mStrings)...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0556

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05710

Delphi CB_ADDSTRING 与LB_ADDSTRING的区别?

一个是向combobox,一个是向listbox中添加字符串CB:ComboBoxLB:ListBox都是添加字符串CB:ComboBox   CB_ADDSTRING 添加 字符串到 Combo Boxes 。  CB_DELETESTRING 删除 Combo Boxes ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03513

Delphi获取句柄并发送消息

Delphi获取句柄并发送消息查找另外一个窗口的句柄: handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄查找子窗体:childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03211

Delphi 6句代码实现Delphi动态调用API函数

procedure TForm1.formcreate(Sender: TObject);  //这里相当于于易语言的启动窗口事件,就是当窗口被创建时,就会运行下面的代码 type    //首先用type定义一个函数,参数...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0418

Delphi 中使用Dialog API

Delphi / C ++ Builder 10.1 Belrin的新功能之一是“简化对话框API”。使用的函数是InputQuery。TDialogService.InputQuery关数TDialogService.InputQuery函数显示一个带有输入字段的对话框。pr...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0456

Delphi 常用API 函数

Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
02911