线程的释放方式有两种：一种是线程在运行完成后自动释放，一种是手动释放。无论是那种释放，都应该在线程停止后进行释放。然而线程的停止也有两种情况：一种是不需要设置标志位，直接完成；一种...

SetTextBuf设置文本文件内部缓冲区的大小procedure SetTextBuf(  var f: Text;  var Buf);procedure SetTextBuf(  var f: Text;  var Buf;  Size: SizeInt);描述SetTe...

delphi 四舍五入取整函数一、四舍五入法    四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。    所谓算术舍入法，就是我们通常意义上的四...

在论坛上看很多人在问模拟按键的问题，比较好的是用Winio，但这样一是要加载winio.sys，二是基本只支持当前窗口按键，其实使用PostMessage就可以解决大部分游戏的按键模拟，很多人用不了就放弃...

function IsLightColor(const AColor: TColor): Boolean;var  r, g, b, yiq: integer;begin  r := GetRValue(AColor);...

//需要用到的库 http://delphitop.com/html/xiancheng/5562.htmlfunction Test2: integer;var  s: integer;begin  s := 0;  TParallel.&For(1, MAXN, procedure(i: int...

uses ShellAPI,DateUtils;procedure  RemoveLogDirectory(DirecName: string);var  F: TSHFILEOPSTRUCT;begin  try    FillChar(F, SizeOf(F), 0);    with...

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;const InputboxMessage = WM_USER + 200;   //定义消息typ...

一个判断素数的简单例子：function IsPrime (N: Integer): Boolean;var    Test: Integer;begin    IsPrime := True;    for Test := 2 to N - 1 do   ...

//代码有点老，可以调整最新的算法  function IncomeTaxCalc(const AValues: double): double;var  overPays: double;begin    //  个人所得税计算函数  {&...

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

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

StrCopy  串专用函数: 复制串, 返回结果指针StrCopy 和 StrECopy 都是复制源 PChar 串到目标 PChar 串, 只是返回值不同;StrCopy 返回结果的首地址, StrECopy 返回结果的尾(#0)地址.unit Un...

概述        分布式系统中，有一些需要使用全局唯一ID的场景，这种时候为了防止ID冲突可以使用36位的UUID，但是UUID有一些缺点，首先他相对比较长，另外UUID一般是无序的。...

const magicnumber = 500;procedure TForm1.FormCreate(Sender: TObject);begin  Button1.Caption := 'Ignore Messages';  Button2.Caption := 'Process Messages';end;procedure TFo...

Function GetWeek( dtTarih: TDateTime ): String;begin Case DayOfWeek( dtTarih ) of 1 : Result := '星期日'; 2 : Result := '星期一'; 3 : Result := '星期二'; 4...

最大的作用就是减少假死。比如当你执行一个很大的循环语句，这时候程序一直在执行这个循环，那么程序一直在专心致志的执行，就给人的感觉是程序死了，但实际上没有。如果你加上Application.Proc...

delphi求数组最大最小值//求最大值function GetMaxInArray(A: array of Integer): Integer;var  I: Integer;  tmpMax: Integer;begin  tmpMax := A[0];  for I := low(A) t...

让我们创建一个应用程序来调试FastScript脚本。执行脚本时，将调用TfsScript OnRunLine事件。您可以从参数中看到要执行的代码。procedure TForm1.fsScript1RunLine(Sender: TfsScript;  co...

在一些特定的情况下，我们需要设定我们程序的优先级比较高，这样能保证在程序的运行过程中，程序几乎不用考虑在被CPU执行时不被其他程序意外抢占。在winbase.h中是这样定义的：1.函数定义：WINB...

function ParamsEncode(const ASrc: Ansistring): AnsiString;var i: Integer;begin  Result := '';  for i := 1 to Length(ASrc) do  begin    if (ASrc[i] in ['&am...

//感谢冰力不足 提供function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;varvItemCount: Integer;I: Integer;S: string;beginResult := False;if not Assigned(mStrings)...

procedure SetWndText(hWnd:HWND; Text: string);var  Ret: LongInt;  mText: PChar;  Buf: Integer;begin  GetMem(mText, Length(Text));  StrCopy(mText, PChar(Tex...

一个是向combobox，一个是向listbox中添加字符串CB:ComboBoxLB:ListBox都是添加字符串CB:ComboBox   CB_ADDSTRING 添加 字符串到 Combo Boxes 。  CB_DELETESTRING 删除 Combo Boxes ...

Delphi获取句柄并发送消息查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题...

procedure TForm1.formcreate(Sender: TObject);  //这里相当于于易语言的启动窗口事件，就是当窗口被创建时，就会运行下面的代码 type    //首先用type定义一个函数，参数...

Delphi / C ++ Builder 10.1 Belrin的新功能之一是“简化对话框API”。使用的函数是InputQuery。TDialogService.InputQuery关数TDialogService.InputQuery函数显示一个带有输入字段的对话框。pr...

Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父...