摘要：
纲要:AssignFile: 关联Rewrite: 创建并打开一个新文件, 如已存在则覆盖Reset: 打开已存在的文件; 追加也要用它先打开, 然后再移动指针; Append 是文本文件专用的CloseFile: 关闭FileSize: 记录数FilePos: 返回文件的当前位置Seek: 把文件指针移到指定位置(只用于结构化文件)Eof: 文件尾Read: 读Write: 写另外: 包含长字符串、变量、类实例、接口或动态数组的记录不能写入类型文件中!//操作示例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, 阅读全文
2013年5月19日 #
2013年5月18日 #
摘要：
类名 前缀 TAction act TActionList actlst TActionMainMenuBar actmmb TActionManager actmgr TActionToolBar acttb TADOCommand cmd TADOConnection con TADODataSet ds TADOQuery qry TADOSto... 阅读全文
摘要：
function GetFileSize(const FileName: string): Int64;var SR: TSearchRec;begin Result := -1; if FindFirst(FileName, faAnyFile and (not faDirectory), SR) = 0 then try Result := SR.Size; finally ... 阅读全文
摘要：
function GetPyChar(const HZ: AnsiString): string; const HZCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2... 阅读全文
摘要：
var Form1: TForm1; implementation {$R *.dfm} //分割文件的函数{参数 1 是要分割的文件名; 参数 2 是要风格文件的大小, 单位是 KB} {分割后的文件名扩展名用序号替换} function SplitFile(const FileName: string; Size: Cardinal): Boolean; var fStream: T... 阅读全文
摘要：
var Form1: TForm1; implementation {$R *.dfm} uses Zlib; //压缩函数procedure Zip(var fs: TMemoryStream); var cs: TCompressionStream; ms: TMemoryStream; num: Integer; begin if not(Assigned(fs) and ... 阅读全文
摘要：
//显示窗体中所有控件的函数function GetCtrls(Control: TWinControl; List: TStringList): Boolean; var i: Integer; obj: TWinControl; begin for i := 0 to Control.ControlCount-1 do begin obj := TWinControl(Contro... 阅读全文
摘要：
函数 功能 Chr 将一个有序数据转换为一个ANSI字符 Ord 将一个有序类型值转换为它的序号 Round 转换一个实型值为四舍五入后的整型值 Trunc 转换一个实型值为小数截断后的整型值 Int 返回浮点数的整数部分 IntToStr 将数值转换为字符串 IntToHex 将数值转换为十六进制数字符串 StrToInt 将字符串转换为一个整型数，如字符串... 阅读全文
摘要：
Windows 数据类型 Delphi 数据类型 描述 LPSTR PAnsiChar 字符串指针 LPCSTR PAnsiChar 字符串指针 DWORD LongWord 整数 BOOL LongBool 布尔型 PBOOL ^BOOL 指向布尔值的指针 PByte ^Byte 指向字节值的指针 PINT ^Integer 指向整数值的指针 PSingle... 阅读全文
摘要：
虚拟键码 对应值 对应键 VK_LBUTTON 1 鼠标左键 VK_RBUTTON 2 鼠标右键 VK_CANCEL 3 Cancel VK_MBUTTON 4 鼠标中键 VK_XBUTTON1 5 VK_XBUTTON2 6 VK_BACK 8 Backspace VK_TAB 9 Tab VK_CLEAR 12 Clear VK_RETURN ... 阅读全文