摘要： 有简单提示的链接有效. 过程或函数名 分类 简单提示 Abort AddExitProc AddTerminateProc AdjustLineBreaksUnix 与 Windows 的换行符互换 AnsiCompareFileName AnsiCompareStr AnsiCompareText AnsiDequotedStr AnsiExtractQuotedStr An... 阅读全文

摘要： 有简单提示的链接有效. 过程或函数名 分类 简单提示 Abs绝对值 AcquireExceptionObject AddModuleUnloadProc Addr AllocMem AnsiToUtf8 Append ArcTan Assert Assign Assigned AssignFile AttemptToUseSharedMemoryManager BeginThr... 阅读全文

摘要： 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; ... 阅读全文

摘要： 阅读全文

摘要： 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBClient, StdCtrls, ComCtrls, ExtCtrls; type TForm1... 阅读全文

摘要： 运行效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) HotKey1: THotKey; ... 阅读全文

摘要： 这不需要写函数. //如果十六进制非字符串, 无须转换, 直接赋值即可 var i: Integer; begin i := $FF; ShowMessage(IntToStr(i)); {255} end; //如果十六进制是字符串, 用 StrToInt 即可 var s: string; i: Integer; begin s := '$FF'; i :=... 阅读全文

摘要： 运行效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) HotKey1: THotKey; ... 阅读全文

摘要： 如果在结构中再拿出 4 个字节的地址空间指向上一个节点, 就成了双向链表了. 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(... 阅读全文

摘要： 前面例子中, 链表的尾节点都再没有链接其他节点; 如果让尾节点再链接首节点, 不就是循环链表了吗? 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFor... 阅读全文