GetCurrentDir+'\'//返回当前程序的目录
GetTickCount//返回系统启动的时间
FileExists //判断文件是否存在
GetActivewindow://返回当前窗口的句柄
Quotedstr(str:string):string;//为传递进去的字符传两边加引号
Assigned();//检测一个类是否存在
LeadBytes//判断是否为汉字If S[i] IN LeadBytes Then
DebugHook//如果等于1表示当前是在调试,否则表示直接运行
length(WideString('周'))//可以返回一个1,如果是直接length,那么汉字就返回2个
SetLength(A, 1) 指定不定数组的大小;
ExpandFileName('c:\windows\..')//返回上级目录
ExtractRelativePath('c:\windows\','c:\windows\temp');//返回temp
shl 左移
shr 右移
x := RoundTo(x,-2)
Format('%.2f',[x]) //四舍五入,-2保留两位小数点
Format('%.2f',[RoundTo(x,-2)])
13 Enter key
20 CapsLock
10 Shift key
9 Tab key
8 Backspace key
SameText(astr,bstr) //判断字符串,不区分大小写
lowercase()大写转小写
UpCase()小写转大写
UpperCase()小写转大写
[查找文件]
FindFirst(文件名,查询的类型,一个保存查找到的变量,为TSearchRec类)
下面为一个例子
var
sr : TSearchRec;
begin //此处用faArchive为查找所有的文件
if FindFirst('E:\*.*',faArchive,sr) = 0 then
begin
repeat //判断,如果为该文件为faArchive,既该文件为所有的文件而不是文件夹,则为真
if (sr.Attr and faArchive) = sr.Attr then
listbox1.Items.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
下面为
查询的类型
faReadOnly $00000001 只读文件
faHidden $00000002 隐藏文件
faSysFile $00000004 系统文件
faVolumeID $00000008 Volume ID files
faDirectory $00000010 所有的文件夹
faArchive $00000020 所有的文件
faAnyFile $0000003F 所有文件,包括文件夹
attr:=filegetattr(filelistbox1.filename);
if (attr and faReadonly)=faReadonly then ... //只读
if (attr and faSysfile)=faSysfile then ... //
系统 if (attr and faArchive)=faArchive then ... //存档
if (attr and faHidden)=faHidden then ... //隐藏
function GetPYIndexChar( hzchar:string):char;//返回汉字的首字母
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4 : result := 'A';
$B0C5..$B2C0 : result := 'B';
$B2C1..$B4ED : result := 'C';
$B4EE..$B6E9 : result := 'D';
$B6EA..$B7A1 : result := 'E';
$B7A2..$B8C0 : result := 'F';
$B8C1..$B9FD : result := 'G';
$B9FE..$BBF6 : result := 'H';
$BBF7..$BFA5 : result := 'J';
$BFA6..$C0AB : result := 'K';
$C0AC..$C2E7 : result := 'L';
$C2E8..$C4C2 : result := 'M';
$C4C3..$C5B5 : result := 'N';
$C5B6..$C5BD : result := 'O';
$C5BE..$C6D9 : result := 'P';
$C6DA..$C8BA : result := 'Q';
$C8BB..$C8F5 : result := 'R';
$C8F6..$CBF9 : result := 'S';
$CBFA..$CDD9 : result := 'T';
$CDDA..$CEF3 :
result := 'W';
$CEF4..$D188 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D4D1..$D7F9 : result := 'Z';
else
result := char(0);
end;
end;
ord\\返回字符的ASCII码
chr\\把ASCII码转为字符
设置DELPHI系统环境日期格式
resourcestring
StatusDateTimeFormat = 'mm/dd/yyy'-'hh:nn:ss:zzz AM/PM';
在Application.MessageBox中,图标的参数
MB_ICONWARNING 出现一个小黄色三角
MB_ICONINFORMATION出现一个感叹号
MB_ICONQUESTION 出现一个问号
MB_ICONSTOP 出现一个红色的叉号
然后按钮
MB_ABORTRETRYIGNORE 终止 重实 忽略
MB_OKCANCEL 确定和取消
MB_OK 确定
MB_RETRYCANCEL 重试和取消
MB_YESNO 是和否
MB_YESNOCANCEL 是,否和取消
//返回6代表点了是,返回7代表点了否
IntToHex
功能说明:该函数用于将“十进制”转换成“十六进制”。该函数有二个参数。第一个参