摘要：
//不是过滤DATASET,适合用在下拉数据很多的情况。过滤的必须是下拉有添加的列 procedure cxLookupComboBoxLikeSearchInitPopup(Sender: TObject); var FEdit: TcxLookupComboBox absolute Sender 阅读全文
摘要：
function Like(p1: PChar; l1: Integer; p2: PChar; l2: Integer; percent_char, underline_char, escape_char: Char): Boolean; overload; var c: Char; AEscap 阅读全文
摘要：
function ByteType(const S: string; Index: Integer): TMbcsByteType; // 判断一个字符串中，某个 Char 是单个字母，还是双字节的前一位或后一位。 // mbSingleByte 单字母 // mbLeadByte 双字节第一位 / 阅读全文
摘要：
oleacc.pas {*******************************************************} { } { CodeGear Delphi Runtime Library } { } { File: oleacc.h } { Copyright (c) Mi 阅读全文
摘要：
c - How can I access a variable in a calling application from a dll? - Stack Overflow On NT/XP/2003 etc the first param to CallNextHookEx is ignored. 阅读全文
摘要：
//这种控件就可以 窗口不可以，标题栏是系统绘画的。procedure TForm1.btn1Click(Sender: TObject); var ahdc,ahdc_old, ahdc_new: HDC; ARect:TRect; ahpen:HPEN; ahandle:THandle; h,w 阅读全文
摘要：
//dll code uses // ShareMem, SysUtils, Windows, Math; {$R *.res} function TestString1(Buffer: PChar): PChar; stdcall; var Tmpstr:string; begin try Tmp 阅读全文
摘要：
使用CNPACK 的单元来实现AES CBC 解密 CBC PKCS7 解密要注意的点是，如果解密内容不够16位整除要补#0 var inbase64, outbase64: string; i:integer; Ret:string; TmpAesIv: TAESBuffer; IvStr: An 阅读全文
摘要：
https://learn.microsoft.com/zh-cn/sql/t-sql/data-types/datetime-transact-sql?view=sql-server-ver16&redirectedfrom=MSDN http://www.hemingcha.com/a1/MsS 阅读全文
摘要：
procedure RunMSDOS(Str: string); var Command: string; Output: string; Buffer: array[0..255] of Char; Security: TSecurityAttributes; ReadPipe, WritePip 阅读全文