其他的,可以参考这个。我帮你转贴的。<br><br><br>Copyright by vortex 1999.1 <br>=============================================================================================== <br>名称 类型 说明 <br>---------------------------------------------------------------------------------- <br>Abort 函数 引起放弃的意外处理 <br>Abs 函数 绝对值函数 <br>AddExitProc 函数 将一过程添加到运行时库的结束过程表中 <br>Addr 函数 返回指定对象的地址 <br>AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列 <br>Align 属性 使控件位于窗口某部分 <br>Alignment 属性 控件标签的文字位置 <br>AllocMem 函数 在堆栈上分配给定大小的块 <br>AllowGrayed 属性 允许一个灰度选择 <br>AnsiCompareStr 函数 比较字符串(区分大小写) <br>AnsiCompareText 函数 比较字符串(不区分大小写) <br>AnsiLowerCase 函数 将字符转换为小写 <br>AnsiUpperCase 函数 将字符转换为大写 <br>Append 函数 以附加的方式打开已有的文件 <br>ArcTan 函数 余切函数 <br>AssignFile 函数 给文件变量赋一外部文件名 <br>Assigned 函数 测试函数或过程变量是否为空 <br>AutoSize 属性 自动控制标签的大小 <br>BackgroundColor 属性 背景色 <br>BeginThread 函数 以适当的方式建立用于内存管理的线程 <br>BevelInner 属性 控件方框的内框方式 <br>BevelOuter 属性 控件方框的外框方式 <br>BevelWidth 属性 控件方框的外框宽度 <br>BlockRead 函数 读一个或多个记录到变量中 <br>BlockWrite 函数 从变量中写一个或多个记录 <br>BorderStyle 属性 边界类型 <br>BorderWidth 属性 边界宽度 <br>Break 命令 终止for、while、repeat循环语句 <br>Brush 属性 画刷 <br>Caption 属性 标签文字的内容 <br>ChangeFileExt 函数 改变文件的后缀 <br>ChDir 函数 改变当前目录 <br>Checked 属性 确定复选框选中状态 <br>Chr 函数 返回指定序数的字符 <br>CloseFile 命令 关闭打开的文件 <br>Color 属性 标签的颜色 <br>Columns 属性 显示的列数 <br>CompareStr 函数 比较字符串(区分大小写) <br>Concat 函数 合并字符串 <br>Continue 命令 继续for、while、repeat的下一个循环 <br>Copy 函数 返回一字符串的子串 <br>Cos 函数 余弦函数 <br>Ctl3D 属性 是否具有3D效果 <br>Cursor 属性 鼠标指针移入后的形状 <br>Date 函数 返回当前的日期 <br>DateTimeToFileDate 函数 将DELPHI的日期格式转换为DOS的日期格式 <br>DateTimeToStr 函数 将日期时间格式转换为字符串 <br>DateTimeToString 函数 将日期时间格式转换为字符串 <br>DateToStr 函数 将日期格式转换为字符串 <br>DayOfWeek 函数 返回星期的数值 <br>Dec 函数 递减变量值 <br>DecodeDate 函数 将日期格式分解为年月日 <br>DecodeTime 函数 将时间格式分解为时、分、秒、毫秒 <br>Delete 函数 从字符串中删除子串 <br>DeleteFile 命令 删除文件 <br>DiskFree 函数 返回剩余磁盘空间的大小 <br>DiskSize 函数 返回指定磁盘的容量 <br>Dispose 函数 释放动态变量所占的空间 <br>DisposeStr 函数 释放字符串在堆栈中的内存空间 <br>DitherBackground 属性 使背景色的色彩加重或减少50% <br>DragCursor 属性 当鼠标按下时光标的形状 <br>DragMode 属性 按动的作用方式 <br>DropDownCount 属性 容许的显示数据项的数目 <br>EditMask 属性 编辑模式 <br>Enabled 属性 是否使标签呈现打开状态 <br>EncodeDate 函数 将年月日合成为日期格式 <br>EncodeTime 函数 将时、分、秒、毫秒合成为时间格式 <br>EndMargin 属性 末尾边缘 <br>Eof 函数 对有类型或无类型文件测试是否到文件尾 <br>Eoln 函数 返回文本文件的行结束状态 <br>Erase 命令 删除外部文件 <br>ExceptAddr 函数 返回引起当前意外的地址 <br>Exclude 函数 从集合中删除一些元素 <br>ExceptObject 函数 返回当前意外的索引 <br>Exit 命令 立即从当前的语句块中退出 <br>Exp 函数 指数函数 <br>ExpandFileName 函数 返回包含绝对路径的字符串 <br>ExtendedSelect 属性 是否允许存在选择模式,True时,MultiSelect才有意义 <br>ExtractFileDir 函数 返回驱动器和路径 <br>ExtractFileExt 函数 返回文件的后缀 <br>ExtractFileName 函数 返回文件名 <br>ExtractFilePath 函数 返回指定文件的路径 <br>FileAge 函数 返回文件已存在的时间 <br>FileClose 命令 关闭指定的文件 <br>FileCreate 命令 用指定的文件名建立新文件 <br>FileDateToDateTime 函数 将DOS的日期格式转换为DELPHI的日期格式 <br>FileExists 函数 检查文件是否存在 <br>FileGatAttr 函数 返回文件的属性 <br>FileGetDate 函数 返回文件的DOS日期时间标记 <br>FileOpen 命令 用指定的存取模式打开指定的文件 <br>FilePos 函数 返回文件的当前指针位置 <br>FileRead 命令 从指定的文件读取 <br>FileSearch 命令 在目录中搜索指定的文件 <br>FileSeek 函数 改变文件的指针 <br>FileSetAttr 函数 设置文件属性 <br>FileSetDate 函数 设置文件的DOS日期时间标记 <br>FileSize 函数 返回当前文件的大小 <br>FileWrite 函数 对指定的文件做写操作 <br>FillChar 函数 用指定的值填充连续字节的数 <br>FindClose 命令 终止FindFirst/FindNext序列 <br>FindFirst 命令 对指定的文件名及属性搜索目录 <br>FindNext 命令 返回与文件名及属性匹配的下一入口 <br>FloatToDecimal 函数 将浮点数转换为十进制数 <br>FloatToStrF 函数 将浮点数转换为字符串 <br>FloatToStr 函数 将浮点数转换为字符串 <br>FloatToText 函数 将给定的浮点数转换为十进制数 <br>FloatToTextFmt 函数 将给定的浮点数转换为十进制数 <br>Flush 函数 将缓冲区的内容刷新到输出的文本文件中 <br>FmtLoadStr 函数 从程序的资源字符串表中装载字符串 <br>FmtStr 函数 格式化一系列的参数,其结果以参数Result返回 <br>Font 属性 设置字体 <br>Format 函数 格式化一系列的参数并返回Pascal字符串 <br>FormatBuf 函数 格式化一系列的参数 <br>FormatDateTime 函数 用指定的格式来格式化日期和时间 <br>FormatFloat 函数 指定浮点数格式 <br>Frac 函数 返回参数的小数部分 <br>FreeMem 函数 按给定大小释放动态变量所占的空间 <br>GetDir 返回指定驱动器的当前目录 <br>GetHeapStatus 返回内存管理器的当前状态 <br>GetMem 建立一指定大小的动态变量,并将指针指向该处 <br>GetMemoryManager 返回内存管理器的入口点 <br>Glyph 函数 按钮上的图象 <br>Halt 停止程序的执行并返回到操作系统 <br>Hi 返回参数的高地址位 <br>High 返回参数的上限值 <br>Hint 属性 提示信息 <br>Int 返回参数的整数部分 <br>Include 添加元素到集合中 <br>Insert 在字符串中插入子串 <br>IntToHex 将整型数转换为十六进制数 <br>IntToStr 将整型数转换为字符串 <br>IOResult 返回最新的I/O操作完成状态 <br>IsValidIdent 测试字符串是否为有效的标识符 <br>Items 属性 默认显示的节点 <br>Kind 属性 摆放样式 <br>LargeChange 属性 最大改变值 <br>Layout 属性 图象布局 <br>Length 函数 返回字符串的动态长度 <br>Lines 属性 缺省显示内容 <br>Ln 函数 自然对数函数 <br>Lo 函数 返回参数的低地址位 <br>LoadStr 函数 从应用程序的可执行文件中装载字符资源 <br>LowerCase 函数 将给定的字符串变为小写 <br>Low 函数 返回参数的下限值 <br>Max 属性 最大值 <br>MaxLength 属性 最大长度 <br>Min 属性 最小值 <br>MkDir 命令 建立一子目录 <br>Move 函数 从源到目标复制字节 <br>MultiSelect 属性 允许同时选择几个数据项 <br>Name 属性 控件的名字 <br>New 函数 建立新的动态变量并设置一指针变量指向他 <br>NewStr 函数 在堆栈上分配新的字符串 <br>Now 函数 返回当前的日期和时间 <br>Odd 测试参数是否为奇数 <br>OnActivate 事件 焦点移到窗体上时触发 <br>OnClick 事件 单击窗体空白区域触发 <br>OnDblClick 事件 双击窗体空白区域触发 <br>OnCloseQuery 事件 使用者试图关闭窗体触发 <br>OnClose 事件 窗体关闭后才触发 <br>OnCreate 事件 窗体第一次创建时触发 <br>OnDeactivate 事件 用户切换到另一应用程序触发 <br>OnDragDrop 事件 鼠标拖放操作结束时触发 <br>OnDragOver 事件 有其他控件从他上面移过触发 <br>OnMouseDown 事件 按下鼠标键时触发 <br>OnMouseUp 事件 释放鼠标键时触发 <br>OnMouseMove 事件 移动鼠标时触发 <br>OnHide 事件 隐藏窗体时触发 <br>OnKeyDown 事件 按下键盘某键时触发 <br>OnKeyPress 事件 按下键盘上的单个字符键时触发 <br>OnKeyUp 事件 释放键盘上的某键时触发 <br>OnPaint 事件 窗体上有新部分暴露出来触发 <br>OnResize 事件 重新调整窗体大小触发 <br>OnShow 事件 在窗体实际显示之前瞬间触发 <br>Ord 返回序数类的序数 <br>OutlineStyle 属性 类型 <br>OutOfMemoryError 引起OutOfMemory意外 <br>PageIndex 属性 页索引 <br>Pages 属性 页 <br>ParamCount 函数 返回在命令行上传递给程序的参数数量 <br>ParamStr 函数 返回指定的命令行参数 <br>Pen 属性 画刷设置 <br>Pi 函数 返回圆周率Pi <br>Picture 属性 显示图象 <br>PictureClosed 属性 设置Closed位图 <br>PictureLeaf 属性 设置Leaf位图 <br>PictureMinus 属性 设置Minus位图 <br>PictureOpen 属性 设置Open位图 <br>PicturePlus 属性 设置Plus位图 <br>Pos 函数 在字符串中搜索子串 <br>Pred 函数 返回先前的参数 <br>Random 函数 返回一随机函数 <br>Randomize 函数 用一随机数初始化内置的随机数生成器 <br>Read 函数 对有格式的文件,读一文件组件到变量中; <br> 对文本文件,读一个或多个值到一个或多个变量中 <br>Readln 函数 执行Read过程,然后跳到文件下一行 <br>ReadOnly 属性 只读属性 <br>ReAllocMem 函数 分配一动态变量 <br>Rename 函数 重命名外部文件 <br>RenameFile 函数 对文件重命名 <br>Reset 函数 打开已有的文件 <br>Rewrite 函数 建立并打开一新的文件 <br>RmDir 函数 删除空的子目录 <br>Round 函数 将实数值舍入为整型值 <br>RunError 函数 停止程序的执行 <br>ScrollBars 属性 滚动条状态 <br>Seek 函数 将文件的当前指针移动到指定的组件上 <br>SeekEof 函数 返回文件的文件结束状态 <br>SeekEoln 函数 返回文件的行结束状态 <br>SelectedColor 属性 选中颜色 <br>SetMemoryManager 函数 设置内存管理器的入口点 <br>SetTextBuf 函数 给文本文件指定I/O缓冲区 <br>Shape 属性 显示的形状 <br>ShowException 函数 显示意外消息与地址 <br>Sin 函数 正弦函数 <br>SizeOf 函数 返回参数所占的字节数 <br>SmallChange 属性 最小改变值 <br>Sorted 属性 是否允许排序 <br>Sqr 函数 平方函数 <br>Sqrt 函数 平方根函数 <br>StartMargin 属性 开始边缘 <br>State 属性 控件当前状态 <br>Str 函数 将数值转换为字符串 <br>StrAlloc 函数 给以NULL结束的字符串分配最大长度-1的缓冲区 <br>StrBufSize 函数 返回存储在由StrAlloc分配的字符缓冲区的最大字符数 <br>StrCat 函数 将一字符串附加到另一字符串尾并返回合并的字符串 <br>StrComp 函数 比较两个字符串 <br>StrCopy 函数 将一个字符串复制到另一个字符串中 <br>StrDispose 函数 释放堆栈上的字符串 <br>StrECopy 函数 将一字符串复制到另一个字符串并返回结果字符串尾部的指针 <br>StrEnd 函数 返回指向字符串尾部的指针 <br>Stretch 属性 自动适应控件的大小 <br>StrFmt 函数 格式化一系列的参数 <br>StrIComp 函数 比较两个字符串(不区分大小写) <br>StringToWideChar 函数 将ANSI字符串转换为UNICODE字符串 <br>StrLCat 函数 将一字符串中的字符附加到另一字符串尾并返回合并的字符串 <br>StrLComp 函数 以最大长度比较两个字符串 <br>StrLCopy 函数 将一个字符串中的字符复制到另一个字符串中 <br>StrLen 函数 返回字符串中的字符数 <br>StrLFmt 函数 格式化一系列的参数,其结果中包含有指向目标缓冲区的指针 <br>StrLIComp 函数 以最大长度比较两个字符串(不区分大小写) <br>StrLower 函数 将字符串中的字符转换为小写 <br>StrMove 函数 将一个字符串中的字符复制到另一个字符串中 <br>StrNew 函数 在堆栈上分配一个字符串 <br>StrPas 函数 将以NULL结束的字符串转换为PASCAL类的字符串 <br>StrPCopy 函数 将PASCAL类的字符串复制为以NULL结束的字符串 <br>StrPLCopy 函数 从PASCAL类的最大长度字符串复制为以NULL结束的字符串 <br>StrPos 函数 返回一个字符串在另一个字符串中首次出现指针 <br>StrRScan 函数 返回字符串中最后出现字符的指针 <br>StrScan 函数 返回字符串中出现首字符的指针 <br>StrToDate 函数 将字符串转换为日期格式 <br>StrToDateTime 函数 将字符串转换为日期/时间格式 <br>StrToFloat 函数 将给定的字符串转换为浮点数 <br>StrToInt 函数 将字符串转换为整型 <br>StrToIntDef 函数 将字符串转换为整型或默认值 <br>StrToTime 函数 将字符串转换为时间格式 <br>StrUpper 函数 将字符串中的字符转换为大写 <br>Style 属性 类型选择 <br>Suce 函数 返回后继的参数 <br>Swap 函数 交换参数的高低地址位 <br>Tabs 属性 标记每一项的内容 <br>TabIndex 属性 标记索引 <br>Text 属性 显示的文本 <br>TextToFloat 函数 将字符串(以NULL结束的格式)转换为浮点数 <br>Time 函数 返回当前的时间 <br>TimeToStr 函数 将时间格式转换为字符串 <br>Trim 函数 从给定的字符串中删除前导和尾部的空格及控制字符 <br>TrimLeft 函数 从给定的字符串中删除首部的空格及控制字符 <br>TrimRight 函数 从给定的字符串中删除尾部的空格及控制字符 <br>Trunc 函数 将实型值截取为整型值 <br>Truncate 函数 截去当前文件位置后的内容 <br>UnSelectedColor 属性 未选中颜色 <br>UpCase 将字符转换为大写 <br>UpperCase 将给定的字符串变为大写 <br>Val 函数 将字符串转换为整型值 <br>VarArrayCreate 函数 以给定的界限和维数建立变体数组 <br>VarArrayDimCount 函数 返回给定变体的维数 <br>VarArrayHighBound 函数 返回给定变体数组维数的上界 <br>VarArrayLock 函数 锁定给定的变体数组 <br>VarArrayLowBound 函数 返回给定变体数组维数的下界 <br>VarArrayOf 函数 返回指定变体的数组元素 <br>VarArrayRedim 函数 通过改变上限来调整变体的大小 <br>VarArrayUnlock 函数 解锁指定的变体数组 <br>VarAsType 函数 将变体转换为指定的类型 <br>VarCase 函数 将变体转换为指定的类型并保存他 <br>VarClear 函数 清除指定的变体 <br>VarCopy 函数 将指定的变体复制为指定的变体 <br>VarFormDateTime 函数 返回包含日期时间的变体 <br>VarIsArray 函数 测试变体是否为数组 <br>VarIsEmpty 函数 测试变体是否为UNASSIGNED <br>VarIsNull 函数 测试变体是否为NULL <br>VarToDateTime 函数 将给定的变体转换为日期时间 <br>VarType 函数 将变体转换为指定的类型并保存他 <br>Visible 属性 控件的可见性 <br>WantReturns 属性 为True时,按回车键产生一个回车符; <br> 为False时,按下Ctrl+Enter才产生回车符 <br>Write 命令 对有格式的文件,写一变量到文件组件中; <br> 对文本文件,写一个或多个值到文件中 <br>Writeln 命令 执行WRITE过程,然后输出一行结束标志 <br>WideCharLenToString 函数 将ANSI字符串转换为UNICODE字符串 <br>WideCharLenToStrWar 函数 将UNICODE字符串转换为ANSI字符串变量 <br>WideCharToString 函数 将UNICODE字符串转换为ANSI字符串 <br>WideCharToStrVar 函数 将UNICODE字符串转换为ANSI字符串变量<br><br>stringtowidechar 函数 将ansi字符串转换为unicode字符串 <br>widecharlentostring 函数 将ansi字符串转换为unicode字符串 <br>widecharlentostrwar 函数 将unicode字符串转换为ansi字符串变量 <br>widechartostring 函数 将unicode字符串转换为ansi字符串 <br>widechartostrvar 函数 将unicode字符串转换为ansi字符串变量 <br><br><br><br><br><br><br><br>function LeftStr(S:string;Count:integer):string; <br>begin //获取字符串左边起n个字符 <br> LeftStr:=Copy(s,1,Count); <br>end; <br><br>function RightStr(S:string;Count:integer):string; <br>begin //获取字符串右边起n个字符 <br> RightStr:=Copy(s,Length(s)-Count+1,Count); <br>end; <br><br>function ReplaceStr(S:string;OldStr,NewStr:string):string; <br>var i,j:integer; <br> ss:string; <br>begin //替换字符串 (其实Delphi已经提供对应的函数了StringReplace) <br> i:=1; <br> ss:=''; <br> j:=length(OldStr); <br> while i<=length(s) do <br>begin <br>if LowerCase(copy(s,i,j))=LowerCase(OldStr) <br>then <br>begin <br>ss:=ss+NewStr; <br>inc(i,j); <br>end <br>else <br>begin <br>ss:=ss+s; <br>inc(i,1); <br>end; <br>end; <br>Result:=ss; <br>end; <br><br>function LTrim(S:string):string; <br>begin //删除字符串左边空格 <br>s:=s+'*'; <br>s:=Trim(s); <br>Delete(s,length(s),1); <br>end; <br><br>function RTrim(S:string):string; <br>begin //删除字符串右边空格 <br>s:='*'+s; <br>s:=Trim(s); <br>Delete(s,1,1); <br>end; <br><br>function LDelete(S,Sub:string):string; <br>begin //删除字符串左边的某一所有字符 <br>while LeftStr(S,1)=sub do <br>Delete(S,1,1); <br>LDelete:=s; <br>end; <br><br>function RDelete(S,Sub:string):string; <br>begin //删除字符串右边的某一所有字符 <br>sub:=copy(sub,1,1); <br>while RightStr(S,1)=sub do <br>Delete(S,length(s),1); <br>RDelete:=s; <br>end; <br><br>function MDelete(S,Sub:string):string; <br>begin //删除字符串中包含的某一所有字符 <br>sub:=copy(sub,1,1); <br>while Pos(sub,s)>0 do <br> Delete(S,Pos(sub,s),1); <br> MDelete:=s; <br>end; <br><br>function GetCodeNo(NoStr:string;NoLen:integer):string; <br>begin //生成一个在数字前面自动补零编码 <br> NoStr:=Trim(NoStr); <br> Result:=copy('00000000000000000000',1,NoLen-length(NoStr))+NoStr; <br>end; <br><br><br><br>放置任意的文件到Delphi的EXE文件里面<br> <br> <br> 通常在Delphi的应用程序中,我们会调用到很多的资源,例如图片,动画(AVI),声音,甚至于别的执行文件。当然,把这些资源分布到不同的目录不失为一个好办法,但是有没有可能把这些资源编译成标准的windows资源从而链接到一个执行文件里面呢?<br><br>我们可以自己做一个RC文件,例如 sample.rc ,RC文件其实就是一个资源文件的描述文本,通过“记事本”程序创建就行了。然后可以输入一些我们要定义的资源,例如:<br><br>MEN BITMAP c:/bitmap/men.bitmap<br>ARJ EXEFILE c:/arj.exe<br>MOV AVI c:/mov.avi <br>然后用BRCC32把这个RC文件编译成sample.res(真正的资源文件)。<br><br>在Delphi的工程文件中使用 $R 编译指令让Delphi包括资源到EXE文件里面。<br><br>{$R sample.res} <br>这样我们就可以在这个单一的执行文件中调用资源了。举例如下:<br><br>EXEFILE:<br><br>procedure ExtractRes(ResType, ResName, ResNewName : String);<br>var<br>Res : TResourceStream;<br>begin<br>Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); Res.SavetoFile(ResNewName);<br>Res.Free;<br>end; <br>AVI:<br><br>procedure LoadAVI;<br>begin<br>{Avi1是一个TAnimate类}<br>Avi1.ResName:='AVI';<br>Avi1.Active:=True;<br>end; <br> <br> <br>http://www.delphiboy.com/cgi-bin/book.php?PHPSESSID=3a963510f9f034d814b5df79b8546c67<br><br>function StrPos (const s1, s2: string; pos, max: Integer): Integer; <br>// s1 = the string that must be found <br>// s2 = the string to search <br>// pos = start position <br>// max = maximum search length <br>var s, l1, l2, j: Integer; <br>begin <br>Result:= -1; <br>l1:= Length (s1); <br>l2:= Length (s2); <br>if max <= 0 then max:= l2; // maximum length <br>if pos < 0 then pos:= 0; // we can not search befor the first char <br>if (l1 <= 0) or (pos > max) then Exit; // maybe we're ready at all? <br>for s:= pos to (max - l1) do begin <br> for j:= 1 to l2 do begin <br> if (s1[j] <> s2[s+j]) then BREAK; // Diffrence detectet <br> // we have it found <br> if (j = l1) then begin Result:= s; Exit; end; <br> end; <br>end; <br>end; <br><br><br><br>i: array[0..1] of integer;<br>c: array[0..1] of char;<br> i[0] := ord(c[0]);<br> i[1] := ord(c[1]);