program GuardDas;uses  Vcl.Forms,  System.SysUtils,  Winapi.Windows,  Winapi.Messages,  UntGuard in 'UntGuard.pas' {frmGuard};{$R *.res}var  myMutex: ...

//显示提示信息XXX 是/否function TBN.ShowMsgYesNo(sMsg:String;sTitle:string='提示'):Boolean;begin  Result:=application.MessageBox(pchar(sMsg),pchar(sTitle),MB_ICONWARNING+MB_YE...

工程判断内存溢出ReportMemoryLeaksOnShutdown := True; program Project1;uses  Vcl.Forms,  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin  Application.Initialize;&nb...

iPhone●iOSMozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mob...

 1.防止刷新时闪烁的终极解决办法{ 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) } Perform($000B, 0, 0); //锁屏幕 防止闪烁 // 做一些会发生严重闪烁的事情.. //解锁屏幕并重画 Perf...

同学们在实际编程过程中可以参考以下的错误提示，需要注意的是<>中的内容是你们程序中的具体内容。例如：Undeclared identifier: '<name>' 未说明的标识符<NAME> '<name&g...

1． 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING);2．疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION);3．错误提示框 MessageBox(Handl...

判断一个数组的长度用 Length 还是 SizeOf ?最近发现一些代码, 甚至有一些专家代码, 在遍历数组时所用的数组长度竟然是 SizeOf(arr); 这不合适!如果是一维数组、且元素大小是一个字节, 这样用看...

语言字符集Object Pascal 使用ASCII 字符集，包括A-Z、a-z、0-9、以及其它标准字符，字母是大小写无关.单字符特殊符号：# $ & ' ( ) * + , - . / : ; < = > @ [ ] ^ { }组合字符特殊...

在程序里加帮助文件，是常用的方法，我一直使用以下这个单元，不过 DELPHI2007好像对HTML帮助文件的支持有所改善。但没试过，因为自己整理使用的这个单元一直很好用。所以常得有用（对使用DELPH...

unit Tools;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, DB, Menus, DateUtils;typeTMenuList=packed RecordCode:String;MenuItem:TMen...

Delphi常用的函数库{******************************************************************************** 模块名称: 公用函数库* 编写人员: Chris Mao* 编写日期: 2004.10.30*****************...

函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能...

delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因终于从爱点delphi中找到了转换函数function AnsiToUnicode(s:string):WideString;varlpWideChar:PWideChar;len:Integer;beg...

      ASCII码表ASCII值控制字符ASCII值控制字符ASCII值控制字符ASCII值控制字符0NUT32(space)64@96、1SOH33！65A97a2STX34”66B98b3ETX35#67C99c4EOT36$68D100d5ENQ3...

delphi 创建圆形或椭圆形窗体主要使用以下两个函数// The CreateEllipticRgn function creates an elliptical region.function CreateEllipticRgn(nLeftRect: Integer, // x-coordinate of the ...

[Quote title='引用'](*  AES crypt algorithm pascal unit  base on AVR231's aes code  EMAIL: Shaoziyang@gmail.com  Web:   http://avrubd.googlepages.com&...

IDArialWebdingsWingdingsWingdings 2Wingdings 3Symbol3233!!!!!!34''''''35######36$$$$$$37%%%%%%38&&&&&&39''''''40((((((41))))))42******43++++++44,,,,,,45----...

Windows 数据类型  Delphi 数据类型 描述LPSTRPAnsiChar字符串指针LPCSTRPAnsiChar字符串指针DWORDLongWord整数BOOLLongBool布尔型PBOOL^BOOL指向布尔值的指针PByte^Byte指向字...

分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32768 .. 327672有符号16位Longint-...

分类快捷键解释备注组件设计类Escape选择当前组件容器Shift + Click选择多个组件；选择窗体Tab选择下一个组件Shift + Tab选择上一个组件方向键选择此方向的下一个组件Ctrl + 方向键将所选组件的...

指令 参数存放位置  参数传递顺序  参数内存管理 适用地点registerCPU寄存器从左到右被调用者默认，published 属性存取方法必须使用pascal栈从左到右被调用者向...

Delphi 编译错误信息表; not allowed before ELSEElSE前不允许有“;”<clause> clause not allowed in OLE automation section在OLE自动区段不允许“<clause>”子句<name> is...

ASCII值  控制字符 注释0NUT 1SOH标题开始2STX正文开始3ETX正文结束4EOT传输结束5ENQ询问字符6ACK承认7BEL报警8BS(Backspace)退格9HT横向制表10LF换行11VT垂直制表12FF走纸控制1...

虚拟键码 对应值 对应键VK_LBUTTON1鼠标左键VK_RBUTTON2鼠标右键VK_CANCEL3CancelVK_MBUTTON4鼠标中键VK_XBUTTON15VK_XBUTTON26VK_BACK8BackspaceVK_TAB9TabVK_CLEAR12ClearVK_RETURN...

分类 运算符 操作 操作数 结果类型 范例 算术运算符 + 加 整数，实数 整数，实数 X + Y - 减 整数，实数 整数，实数 Result - 1 * 乘 整数，实数 整数，实数 P * InterestRate / 实数除 整数，...

颜色名称  颜色效果  HexHTMLclBlack$000000#000000clMaroon$000080#800000clGreen$008000#008000clOlive$008080#808000clNavy$800000#000080clPurple$800080#800080clTeal...

可以这样用 Now >= IncYear(birthday, 18)  群友 站在山顶 提供

实现很简单，一行代码scGPEdit1.SelStart := length(scGPEdit1.text);