Delphi 常用函数（含控件属性）详解 - 图文

名称 类型 说明 Delphi常用函数(含控件属性) A部 Abort Abs AddExitProc Addr AdjustLineBreaks Align Alignment AllocMem AllowGrayed AnsiCompareStr AnsiCompareText AnsiLowerCase AnsiUpperCase Append ArcTan AssignFile Assigned AutoSize 函数 引起放弃的意外处理 函数 绝对值函数 函数 将一过程添加到运行时库的结束过程表中 函数 返回指定对象的地址 函数 将给定字符串的行分隔符调整为CR/LF序列 属性 使控件位于窗口某部分 属性 控件标签的文字位置 函数 在堆栈上分配给定大小的块 属性 允许一个灰度选择 函数 比较字符串（区分大小写） 函数 比较字符串（不区分大小写） 函数 将字符转换为小写 函数 将字符转换为大写 函数 以附加的方式打开已有的文件 函数 余切函数 函数 给文件变量赋一外部文件名 函数 测试函数或过程变量是否为空 属性 自动控制标签的大小 B部 BackgroundColor BevelInner BevelOuter BevelWidth BlockRead BlockWrite BorderStyle BorderWidth Break Brush 属性 背景色 属性 控件方框的内框方式 属性 控件方框的外框方式 属性 控件方框的外框宽度 函数 读一个或多个记录到变量中 函数 从变量中写一个或多个记录 属性 边界类型 属性 边界宽度 命令 终止for、while、repeat循环语句 属性 画刷 C部 Caption 属性 标签文字的内容 ChangeFileExt ChDir Checked Chr CloseFile Color Columns CompareStr Concat Continue Copy Cos Ctl3D Cursor 函数 改变文件的后缀 函数 改变当前目录 属性 确定复选框选中状态 函数 返回指定序数的字符 命令 关闭打开的文件 属性 标签的颜色 属性 显示的列数 函数 比较字符串（区分大小写） 函数 合并字符串 命令 继续for、while、repeat的下一个循环 函数 返回一字符串的子串 函数 余弦函数 属性 是否具有3D效果 属性 鼠标指针移入后的形状 D部 Date DateTimeToFileDate DateTimeToStr DateTimeToString DateToStr DayOfWeek Dec DecodeDate DecodeTime Delete DeleteFile DiskFree DiskSize Dispose DisposeStr DitherBackground DragCursor DragMode DropDownCount 函数 返回当前的日期 函数 将DELPHI的日期格式转换为DOS的日期格式 函数 将 日期时间格式转换为字符串 函数 将日期时间格式转换为字符串 函数 将 日期格式转换为字符串 函数 返回星期的数值 函数 递减变量值 函数 将日期格式分解为年月日 函数 将 时间格式分解为时、分、秒、毫秒 函数 从字符串中删除子串 命令 删除文件 函数 返回剩余磁盘空间的大小 函数 返回指定磁盘的容量 函数 释放动态变量所占的空间 函数 释放字符串在堆栈中的内存空间 属性 使背景色的色彩加重或减少50% 属性 当鼠标按下时光标的形状 属性 按动的作用方式 属性 容许的显示数据项的数目 E部 EditMask Enabled EncodeDate EncodeTime EndMargin Eof Eoln Erase ExceptAddr Exclude ExceptObject Exit Exp ExpandFileName ExtendedSelect ExtractFileDir ExtractFileExt ExtractFileName ExtractFilePath 属性 编辑模式 属性 是否使标签呈现打开状态 函数 将年月日合成为日期格式 函数 将时、分、秒、毫秒合成为时间格式 属性 末尾边缘 函数 对有类型或无类型文件测试是否到文件尾 函数 返回文本文件的行结束状态 命令 删除外部文件 函数 返回引起当前意外的地址 函数 从集合中删除一些元素 函数 返回当前意外的索引 命令 立即从当前的语句块中退出 函数 指数函数 函数 返回包含绝对路径的字符串 属性 是否允许存在选择模式，True时，MultiSelect才有意义 函数 返回驱动器和路径 函数 返回文件的后缀 函数 返回文件名 函数 返回指定文件的路径 F部 FileAge FileClose FileCreate FileDateToDateTime FileExists FileGatAttr FileGetDate FileOpen FilePos FileRead FileSearch FileSeek 函数 返回文件已存在的时间 命令 关闭指定的文件 命令 用指定的文件名建立新文件 函数 将DOS的日期格式转换为DELPHI的日期格式 函数 检查文件是否存在 函数 返回文件的属性 函数 返回文件的DOS日期时间标记 命令 用指定的存取模式打开指定的文件 函数 返回文件的当前指针位置 命令 从指定的文件读取 命令 在目录中搜索指定的文件 函数 改变文件的指针 FileSetAttr FileSetDate FileSize FileWrite FillChar FindClose FindFirst FindNext FloatToDecimal FloatToStrF FloatToStr FloatToText FloatToTextFmt Flush FmtLoadStr FmtStr Font Format FormatBuf FormatDateTime FormatFloat Frac FreeMem 函数 设置文件属性 函数 设置文件的DOS日期时间标记 函数 返回当前文件的大小 函数 对指定的文件做写操作 函数 用指定的值填充连续字节的数 命令 终止FindFirst/FindNext序列 命令 对指定的文件名及属性搜索目录 命令 返回与文件名及属性匹配的下一入口 函数 将浮点数转换为十进制数 函数 将浮点数转换为字符串 函数 将浮点数转换为字符串 函数 将给定的浮点数转换为十进制数 函数 将给定的浮点数转换为十进制数 函数 将缓冲区的内容刷新到输出的文本文件中 函数 从程序的资源字符串表中装载字符串 函数 格式化一系列的参数，其结果以参数Result返回 属性 设置字体 函数 格式化一系列的参数并返回Pascal字符串 函数 格式化一系列的参数 函数 用指定的格式来格式化日期和时间 函数 指定浮点数格式 函数 返回参数的小数部分 函数 按给定大小释放动态变量所占的空间 G部 GetDir GetHeapStatus GetMem GetMemoryManager Glyph 函数 返回指定驱动器的当前目录 函数 返回内存管理器的当前状态 函数 建立一指定大小的动态变量，并将指针指向该处 函数 返回内存管理器的入口点 属性 按钮上的图象 H部 Halt Hi High Hint 命令 停止程序的执行并返回到操作系统 函数 返回参数的高地址位 函数 返回参数的上限值 属性 提示信息 I部 Int Include Insert IntToHex IntToStr IOResult IsValidIdent Items 函数 返回参数的整数部分 函数 添加元素到集合中 函数 在字符串中插入子串 函数 将整型数转换为十六进制数 函数 将整型数转换为字符串 函数 返回最新的I/O操作完成状态 函数 测试字符串是否为有效的标识符 属性 默认显示的节点 K部 Kind 属性 摆放样式 L部 LargeChange Layout Length Lines Ln Lo LoadStr LowerCase Low 属性 最大改变值 属性 图象布局 函数 返回字符串的动态长度 属性 缺省显示内容 函数 自然对数函数 函数 返回参数的低地址位 函数 从应用程序的可执行文件中装载字符资源 函数 将给定的字符串变为小写 函数 返回参数的下限值 M部 Max MaxLength Min MkDir Move MultiSelect 属性 最 大值 属性 最大长度 属性 最小值 命令 建立一子目录 函数 从源到目标复制字节 属性 允许同时选择几个数据项 N部 Name New NewStr Now 属性 控件的名字 函数 建立新的动态变量并设置一指针变量指向他 函数 在堆栈上分配新的字符串 函数 返回当前的日期和时间 O部

Odd OnActivate OnClick OnDblClick OnCloseQuery OnClose OnCreate OnDragDrop OnDragOver OnMouseDown OnMouseUp OnMouseMove OnHide OnKeyDown OnKeyPress OnKeyUp OnPaint OnResize OnShow Ord OutlineStyle OutOfMemoryError 函数 测试参数是否为奇数 事件 焦点移到窗体上时触发 事件 单击窗体或组件触发 事件 双击窗体或组件触发 事件 使用者试图关闭窗体触发 事件 窗体关闭后才触发 事件 窗体第一次创建时触发 事件 鼠标拖放操作结束时触发 事件 有其他控件从他上面移过触发 事件 按下鼠标键时触发 事件 释放鼠标键时触发 事件 移动鼠标时触发 事件 隐藏窗体时触发 事件 按下键盘某键时触发 事件 按下键盘上的单个字符键时触发 事件 释放键盘上的某键时触发 事件 窗体上有新部分暴露出来触发 事件 重新调整窗体大小触发 事件 在窗体实际显示之前瞬间触发 函数 返回序数类的序数 属性 类型 命令 引起OutOfMemory意外 P部 PageIndex Pages ParamCount ParamStr Pen Pi Picture PictureClosed PictureLeaf PictureMinus PictureOpen 属性 页索引 属性 页 函数 返回在命令行上传递给程序的参数数量 函数 返回指定的命令行参数 属性 画刷设置 函数 返回圆周率Pi 属性 显示图象 属性 设置Closed位图 属性 设置Leaf位图 属性 设置Minus位图 属性 设置Open位图 PicturePlus Pos Pred 属性 设置Plus位图 函数 在字符串中搜索子串 函数 返回先前的参数 R部 Random Randomize Read Readln ReadOnly ReAllocMem Rename RenameFile Reset Rewrite RmDir Round RunError 函数 返回一随机函数 函数 用一随机数初始化内置的随机数生成器 函数 对有格式的文件，读一文件组件到变量中；文本文件，读一个或多个值到一个或多个变量中 函数 执 行Read过程，然后跳到文件下一行 属性 只读属性 函数 分配一动态变量 函数 重命名外部文件 函数 对文件重命名 函数 打开已有的文件 函数 建立并打开一新的文件 函数 删除空的子目录 函数 将实数值舍入为整型值 函数 停止程序的执行 S部 ScrollBars Seek SeekEof SeekEoln SelectedColor SetMemoryManager SetTextBuf Shape ShowException Sin SizeOf SmallChange Sorted Sqr Sqrt 属性 滚动条状态 函数 将文件的当前指针移动到指定的组件上 函数 返回文件的文件结束状态 函数 返回文件的行结束状态 属性 选中颜色 函数 设置内存管理器的入口点 函数 给文本文件指定I/O缓冲区 属性 显示的形状 函数 显示意外消息与地址 函数 正弦函数 函数 返回参数所占的字节数 属性 最小改变值 属性 是否允许排序 函数 平方函数 函数 平方根函数 StartMargin State Str StrAlloc StrBufSize StrCat StrComp StrCopy StrDispose StrECopy StrEnd Stretch StrFmt StrIComp StringToWideChar StrLCat StrLComp StrLCopy StrLen StrLFmt StrLIComp StrLower StrMove StrNew StrPas StrPCopy StrPLCopy StrPos StrRScan StrScan 属性 开始边缘 属性 控件当前状态 函数 将数值转换为字符串 函数 给以NULL结束的字符串分配最大长度-1的缓冲区 函数 返回存储在由StrAlloc分配的字符缓冲区的最大字符数 函数 将一字符串附加到另一字符串尾并返回合并的字符串 函数 比较两个字符串 函数 将一个字符串复制到另一个字符串中 函数 释放堆栈上的字符串 函数 将一字符串复制到另一个字符串并返回结果字符串尾部的指针 函数 返回指向字符串尾部的指针 属性 自动适应控件的大小 函数 格式化一系列的参数 函数 比较两个字符串（不区分大小写） 函数 将ANSI字符串转换为UNICODE字符串 函数 将一字符串中的字符附加到另一字符串尾并返回合并的字符串 函数 以最大长度比较两个字符串 函数 将一个字符串中的字符复制到另一个字符串中 函数 返回字符串中的字符数 函数 格式化一系列的参数，其结果中包含有指向目标缓冲区的指针 函数 以最大长度比较两个字符串（不区分大小写） 函数 将字符串中的字符转换为小写 函数 将一个字符串中的字符复制到另一个字符串中 函数 在堆栈上分配一个字符串 函数 将以NULL结束的字符串转换为PASCAL类的字符串 函数 将PASCAL类的字符串复制为以NULL结束的字符串 函数 从PASCAL类的最大长度字符串复制为以NULL结束的字符串 函数 返回一个字符串在另一个字符串中首次出现指针 函数 返回字符串中最后出现字符的指针 函数 返回字符串中出现首字符的指针 StrToDate StrToDateTime StrToFloat StrToInt StrToIntDef StrToTime StrUpper Style Suce Swap 函数 将字符串转换为日期格式 函数 将字符串转换为日期/时间格式 函数 将给定的字符串转换为浮点数 函数 将字符串转换为整型 函数 将字符串转换为整型或默认值 函数 将字符串转换为时间格式 函数 将字符串中的字符转换为大写 属性 类型选择 函数 返回后继的参数 函数 交换参数的高低地址位 T部 Tabs TabIndex Text TextToFloat Time TimeToStr Trim TrimLeft TrimRight Trunc Truncate 属性 标记每一项的内容 属性 标记索引 属性 显示的文本 函数 将字符串（以NULL结束的格式）转换为浮点数 函数 返回当前的时间 函数 将时间格式转换为字符串 函数 从给定的字符串中删除前导和尾部的空格及控制字符 函数 从给定的字符串中删除首部的空格及控制字符 函数 从给定的字符串中删除尾部的空格及控制字符 函数 将实型值截取为整型值 函数 截去当前文件位置后的内容 U部 UnSelectedColor UpCase UpperCase 属性 未选中颜色 函数 将字符转换为大写 函数 将给定的字符串变为大写 V部 Val VarArrayCreate VarArrayDimCount 函数 将字符串转换为整型值 函数 以给定的界限和维数建立变体数组 函数 返回给定变体的维数 VarArrayHighBound 函数 返回给定变体数组维数的上界 VarArrayLock VarArrayLowBound VarArrayOf 函数 锁定给定的变体数组 函数 返回给定变体数组维数的下界 函数 返回指定变体的数组元素 VarArrayRedim VarArrayUnlock VarAsType VarCase VarClear VarCopy VarFormDateTime VarIsArray VarIsEmpty VarIsNull VarToDateTime VarType Visible 函数 通过改变上限来调整变体的大小 函数 解锁指定的变体数组 函数 将变体转换为指定的类型 函数 将变体转换为指定的类型并保存他 函数 清除指定的变体 函数 将指定的变体复制为指定的变体 函数 返回包含日期时间的变体 函数 测试变体是否为数组 函数 测试变体是否为UNASSIGNED 函数 测试变体是否为NULL 函数 将给定的变体转换为日期时间 函数 将变体转换为指定的类型并保存他 属性 控件的可见性 W部 WantReturns Write Writeln 属性 命令 为True时，按回车键产生一个回车符； 为False时，按下Ctrl+Enter才产生回车符 对有格式的文件，写一变量到文件组件中； 对文本文件，写一个或多个值到文件中 命令 执行WRITE过程，然后输出一行结束标志 WideCharLenToString 函数 将ANSI字符串转换为UNICODE字符串 WideCharLenToStrWar 函数 将UNICODE字符串转换为ANSI字符串变量 WideCharToString WideCharToStrVar

函数 将UNICODE字符串转换为ANSI字符串 函数 将UNICODE字符串转换为ANSI字符串变量

常用数学函数

求绝对值函数abs(x)

定义：function Abs(X): (Same type as parameter);

说明：X可以是整型，也可以是实型；返回值和X的类型一致例子： var

r: Real; i: Integer; begin

r := Abs(-2.3); { 2.3 } i := Abs(-157); { 157 } end.

取整函数int(x)

定义：function Int(X: Real): Real; 注意：X是实型数，返回值也是实型的；返回的是X的整数部分，也就是说，X被截尾了（而不是四舍五入）例子： var R: Real; begin

R := Int(123.567); { 123.0 } R := Int(-123.456); { -123.0 } end.

截尾函数trunc(x)

定义：function Trunc(X: Real): Longint; 注意：X是实型表达式. Trunc 返回Longint型的X的整数部分例子： begin

Writeln(1.4, ' becomes ', Trunc(1.4)); { 1 } Writeln(1.5, ' becomes ', Trunc(1.5)); { 1 } Writeln(-1.4, 'becomes ', Trunc(-1.4)); { -1 } Writeln(-1.5, 'becomes ', Trunc(-1.5)); { -1 } end.

四舍五入函数round(x)

定义：function Round(X: Real): Longint; 注意：X是实型表达式. Round 返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围，则出错. 例子： begin

Writeln(1.4, ' rounds to ', Round(1.4)); { 1 } Writeln(1.5, ' rounds to ', Round(1.5)); { 2 } Writeln(-1.4, 'rounds to ', Round(-1.4));{ -1 } Writeln(-1.5, 'rounds to ', Round(-1.5));{ -2 } end.

取小数函数frac(x)

定义：function Frac(X: Real): Real; 注意：X 是实型表达式. 结果返回 X 的小数部分; 也就是说，Frac(X) = X - Int(_X). 例子： var

R: Real; begin

R := Frac(123.456); { 0.456 } R := Frac(-123.456); { -0.456 } end.

求平方根函数sqrt(x)和平方函数sqr(x) 定义：

平方根：function Sqrt(X: Real): Real;

注意：X 是实型表达式. 返回实型的X的平方根. 平方：function Sqr(X): (Same type as parameter);

注意：X 是实型或整型表达式.返回值的类型和X的类型一致，大小是X的平方，即X*X. 例子： begin

Writeln('5 squared is ', Sqr(5)); { 25 }

Writeln('The square root of 2 is ',Sqrt(2.0)); { 1.414 }

标准数据类型的含义及符号

(1)整型数的取值范围：-32768<=n<=32768;整型运算操作:+、-、*、div、mod;整型关系操作：=、<>、>=、<=，结果为布尔型；有关整型的标准函数：

整型函数

函数名 函数值 例

前接函数 pred(x) x-1 pred(4)=3 后继函数 succ(x) x+1 succ(-3)=-2 绝对值函数abs(x) |x| abs(-1)=1 平方函数sqr(x) x^2 sqr(-5)=25 奇函数 odd(x) x为奇数时值为True odd(1)=true

x为偶数时值为False odd(16)=false

字符函数chr(x) 序号为x的ASCII字符 chr(65)=\\'\\'a\\'\\' a对应的序号65

(2)实型数的绝对值取值范围：1E-38~1E+38;计算机实数的表示标准形式往往类如

1.2E-8,-1234.56E+3等形式；实数范围比整数大，但实型数的运算速度比整形数慢，另外实型数在存储时会出现小的误差；

实型的运算操作：+、-、*、/。只要有一个运算对象是实型量，其运算结果总是实型量，即其可与整型量混合计算。

实型的关系操作；=、<>、>=、<=，结果为布尔型，即两种结果：true或false。

实型函数种类： abs(x); sqr(x);

sin(x)正弦函数，求数学三角正弦函数的值，如sin(1.570789)=0.99999,注意X值要以弧度作单位；

cos(x)余弦函数；

arctan(x)反正切函数； ln(x)自然对数；

exp(x)指数函数；求ex的值。

Sqrt(x)平方根函数；如sqrt(1.44)=1.2

trunc(x)截尾函数；截去实数x的小数部分，保留整数，例:trunc(-3.3)=-3; round(x)舍入函数；将实数x四舍五入得到最接近的整数，例；round(3.3)=3,round(-8.9)=-9;

注意：实型数据没有pred和succ函数。

(3)布尔型数据的值只有两个：false和true，前者序号为0，后者序号为1。布尔类型数据最少，但用途广泛，主要用于程序设计中的流程控制和逻辑判断。

布尔型数据可作如下运算操作：

not（逻辑非），and（逻辑与），or(逻辑与)。

布尔型的标准函数：

ORD（X） 序号函数，例：ORD（FALSE）=0，ORD（TRUE）=1；

RRED（X） 前趋函数，例：PRED（TRUE）=FALSE，但X的值为TRUE时，只有前接值，没有后趋值；

SUCC（X）后继函数，例：SUCC（FALSE）=TRUE，但X的值为FALSE时，只有后继值，没有前趋值；

EOF（X）和EOLN（X）文件结束函数，行结束函数，此处不予以讨论。

(4)字符型数据取值范围：ASCⅡ码表中的一部分，包含几十个大小写英文字母与数字及数字、各种符号（含空格），注意每个字符符号均有相应的序号，而序号可视为整型数，所以字符型与整型是可以转换的。

在PASCAL程序中，用单引号括起来的一个字符表视字符型数据，如\\'\\'A\\'\\'，\\'\\'8\\'\\'，\\'\\'+\\'\\'，\\'\\' \\'\\'，分别表示字母A，数字8，字符+和空格。注意整型或实型的8与字符型的8是有本质的区别的。

字符型数据不可直接进行运算操作+、-、*、/；

字符型数据可做如下关系操作：>,<,=,<>,<=,>=,运算结果是布尔类型的值，即TRUE或FALSE。

字符性的标准函数： ORD（x） 求X的序号，例如：ORD（\\'\\'C\\'\\'）=67；ORD（\\'\\'0\\'\\'）=48；ORD（\\'\\'A\\'\\'）=65；

ORD（\\'\\'A\\'\\'）=97；

PRED(X) 求X的前接值，例如：PRED(\\'\\'6\\'\\')=\\'\\'5\\'\\'； SUCC(X) 求X的后续值，例如：SUCC(\\'\\'6\\'\\')=\\'\\'7\\'\\'

CHR(X) 求序号为X的相应自负，是ORD的逆函数，例如：CHR(67)=\\'\\'C\\'\\'; CHR(ORD(\\'\\'X\\'\\')-1);

例如如下关系也成立；

ORD(\\'\\'9\\'\\')-ORD(\\'\\'1\\'\\')=57-49=8;

SUCC(X)=CHR(ORD(X)+1);如SUCC(\\'\\'B\\'\\')=CHR(ORD(\\'\\'B\\'\\')+1)=CHR(66+1)-C\\'\\'; PRED(X)=CHR(ORD(X)-1);如

PRED( \\'\\'B\\'\\')=CHR(ORD(\\'\\'B\\'\\')-1)=CHR(66-1)=\\'\\'A\\'\\'。

delphi函数大全之ABC篇-详解 (2007-04-09 00:25:46)

标签：delphi 函数

━━━━━━━━━━━━━━━━━━━━━

首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas 功能 返回比较两个字符

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; $[SysUtils.pas

功能 返回比较两个内存指针 说

明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), PChar('12c'), 3)=False 参考

例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); ━━━━━━━━━━━━━━━━━━━━━

首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 功能 返回比较两个字符串 说明 不区分大小写 参考

例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S的大写形式

说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变

参考 function Windows.CharUpperBuff

例子 Edit2.Text := AnsiUpperCase(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S的小写形式 说明 非大写字符不处理

参考 function Windows.CharLowerBuff

例子 Edit2.Text := AnsiLowerCase(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 功能 反回比较两个字符串

说明 当S1>S2返回值>0;当S1

参考 function Windows.CompareString

例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等 说明 区分大小写

参考 function SysUtils.AnsiCompareStr

例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 功能 反回比较两个字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等 说明 不区分大小写

参考 function SysUtils.AnsiCompareText

例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 功能 返回比较两个指针字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas 功能 返回比较两个指针字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) ━━━━━━━━━━━━━━━━━━━━━ 首

部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas

功能 返回比较两个指针字符串指定长度

说明 当S1>S2返回值>0;当S1

子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)

━━━━━━━━━━━━━━━━━━━━━ 首

部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas

功能 返回比较两个指针字符串指定长度

说明 当S1>S2返回值>0;当S1

子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)

━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串小写形式 说明 非大写字符不处理

参考 function Windows.CharLower

例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串大写形式 说明 非小写字符不处理

参考 function Windows.CharUpper

例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 功能 返回字符串S的最后一个指针字符 说明 当字符串S为空串则返回空指针 参考 function SysUtils.ByteType

例子 Edit2.Text := AnsiLastChar(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串P的最后一个指针字符 说明 当字符串P为空空指针则返回空指针 参考 function SysUtils.ByteType

例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils.pas 功能 返回字符串S以字符Quote为引号的表现形式 说

明 AnsiQuotedStr('hello\', '\

参考 function SysUtils.AnsiStrScan

例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '\━━━━━━━━━━━━━━━━━━━━━ 首

部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; $[SysUti

ls.pas

功能 返回以字符Quote为引号的表现形式原形 说明 表现形式非法时Src不变否则为空 参考 function SysUtils.AnsiStrScan 例子

///////Begin AnsiExtractQuotedStr

procedure TForm1.Button1Click(Sender: TObject); var

P: PChar; begin

P := PChar(Edit1.Text);

Edit2.Text := AnsiExtractQuotedStr(P, '\Edit3.Text := P; end;

///////End AnsiExtractQuotedStr

━━━━━━━━━━━━━━━━━━━━━ 首

部 function AnsiDequotedStr(const S: string; AQuote: Char): string; $[SysUtils.pas

功能 返回以字符AQuote为引号的表现形式原形 说明 表现形式非法时则返回S

参考 function SysUtils.AnsiExtractQuotedStr

例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '\━━━━━━━━━━━━━━━━━━━━━ 首

部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): string; $[SysUtils.pas

功能 返回将给定字符串的行分隔符调整为CR/LF序列 说

明 AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10

参考 function SysUtils.StrNextChar 例子

━━━━━━━━━━━━━━━━━━━━━ 首

部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; $[SysUtils.pas

功能 返回逻辑值B转换成字符串

说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs

例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils.pas

功能 返回改变扩展名后的文件名

说明 [注意]扩展名Extension前要加点;ChangeFileExt('a.jpg', 'bmp')='abmp' 参考 function SysUtils.LastDelimiter;function System.Copy 例子 Edit1.Text := ChangeFileExt(Edit2.Text, Edit3.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function CreateDir(const Dir: string): Boolean; $[SysUtils.pas 功能 返回创建目录是否成功

说明 不支持多级目录;已经存在则返回False 参考 function Windows.CreateDirectory

例子 CheckBox1.Checked := CreateDir(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $[SysUtils.pas

功能 返回货币类型以指定格式转换成字符串 说明 Digits指定小数宽度

参考 function SysUtils.FloatToText 例子

///////Begin CurrToStrF

procedure TForm1.Button1Click(Sender: TObject); begin

Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffGeneral, SpinEdit1.Value);

Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffExponent, SpinEdit1.Value);

Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value);

Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value);

Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value); end;

///////End CurrToStrF

━━━━━━━━━━━━━━━━━━━━━

首部 function CurrentYear: Word; $[SysUtils.pas 功能 返回当前年份 说明

参考 function Windows.GetLocalTime 例子 SpinEdit1.Value := CurrentYear;

delphi函数大全之D-G篇-详解 (2007-04-09 00:27:56)

标签：delphi 函数

━━━━━━━━━━━━━━━━━━━━━ 首

部 function ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string; $[SysUtils.pas 功能 分情况返回文件名的完整表示 说

明 type TFilenameCaseMatch = (mkNone, mkExactMatch, mkSingleMatch, mkAmbiguous); 参

考 function Windows.GetFullPathName;function SysUtils.SameFileName;function SysUtils.FindFirst 例子

///////Begin ExpandFileNameCase

procedure TForm1.Button1Click(Sender: TObject); var

vFilenameCaseMatch: TFilenameCaseMatch; begin

Edit1.Text := ExpandFileNameCase(Edit2.Text, vFilenameCaseMatch); SpinEdit1.Value := Ord(vFilenameCaseMatch); end;

///////End ExpandFileNameCase

━━━━━━━━━━━━━━━━━━━━━

首部 function ExpandUNCFileName(const FileName: string): string; $[SysUtils.pas 功能 返回LINUX文件名的完整表示 说明 ExpandUNCFileName('C:/')='C:\\' 参考 function SysUtils.ExpandFileName

例子 Edit1.Text := ExpandUNCFileName(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function ExtractRelativePath(const BaseName, DestName: string): string; $[SysUtils.pas

功能 返回参数的相对路径

说明 ExtractRelativePath('C:\\Windows\\', 'C:\\Windows\\System')='System' 参考 function SysUtils.SameFilename;function SysUtils.ExtractFileDrive 例子 Edit1.Text := ExtractRelativePath(Edit2.Text, Edit3.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function ExtractShortPathName(const FileName: string): string; $[SysUtils.pas

功能 返回参数的DOS路径

说明 ExtractShortPathName('C:\\Program Files\\Borland')='C:\\PROGRA~1\\BORLAND' 参考 function Windows.GetShortPathName

例子 Edit1.Text := ExtractShortPathName(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function FileSearch(const Name, DirList: string): string; $[SysUtils.pas 功能 返回目录列表中DirList搜索的第一个结果 说

明 FileSearch('Calc.exe', 'd:\\winxp\\system32;c:\\windows')='d:\\winxp\\system32\\calc.exe'

参考 function SysUtils.FileExists;function SysUtils.AnsiLastChar 例子 Edit1.Text := FileSearch(Edit2.Text, Edit3.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function DiskFree(Drive: Byte): Int64; $[SysUtils.pas 功能 返回驱动器可用空间

说明 参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1 参考 function Windows.GetDiskFreeSpaceExA

例子 SpinEdit1.Value := DiskFree(SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function DiskSize(Drive: Byte): Int64; $[SysUtils.pas 功能 返回驱动器全部空间

说明 参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1 参考 function Windows.GetDiskFreeSpaceExA

例子 SpinEdit1.Value := DiskSize(SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function FileDateToDateTime(FileDate: Integer): TDateTime; $[SysUtils.pas 功能 返回将文件日期时间类型转换日期时间类型 说明 FileDate非法是将触发异常

参考 function SysUtils.EncodeDate;function SysUtils.EncodeTime 例子 <参见FileAge>

━━━━━━━━━━━━━━━━━━━━━

首部 function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils.pas 功能 返回将日期时间类型转换文件日期时间类型 说明 年份在1980到2107之外则返回0

参考 function SysUtils.DecodeDate;function SysUtils.DecodeTime 例子 <参见FileSetDate>

━━━━━━━━━━━━━━━━━━━━━

首部 function GetCurrentDir: string; $[SysUtils.pas 功能 返回当前操作目录

说明 [注意]调用文件对话框会改变当前操作目录 参考 function System.GetDir

例子 Edit1.Text := GetCurrentDir;

━━━━━━━━━━━━━━━━━━━━━ 首

部 function Format(const Format: string; const Args: array of const): string; $

[SysUtils.pas

功能 返回按指定方式格式化一个数组常量的字符形式

说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 \索引 \宽度] [\摘要] 类型 Format('x=%d', [12]); //'x=12' //最普通 Format('x==', [12]); //'x= 12' //指定宽度 Format('x=%f', [12.0]); //'x=12.00' //浮点数

Format('x=%.3f', [12.0]); //'x=12.000' //指定小数

Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 Format('x=%.5d', [12]); //'x=00012' //前面补充0 Format('x=%.5x', [12]); //'x=0000C' //十六进制

Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 Format('x=%p', [nil]); //'x=00000000' //指针

Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 Format('x=%%', []); //'x=%' //得到\

S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 参考 proceduer SysUtils.FmtStr

例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]); ━━━━━━━━━━━━━━━━━━━━━ 首

部 procedure FmtStr(var Result: string; const Format: string; const Args: array of const); $[SysUtils.pas

功能 按指定方式格式化一个数组常量的字符形式返回 说明 <参见Format> 参

考 function SysUtils.FormatBuf;function System.Length;function System.SetLength 例子 <参见Format>

━━━━━━━━━━━━━━━━━━━━━ 首

部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 说明 参考

例子 <参见Format>

━━━━━━━━━━━━━━━━━━━━━

首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 功能 返回浮点数Value转换成字符串

说明 当浮点数大等于1E15将采用科学记数法 参考 function SysUtils.FloatToText 例子 Edit1.Text := FloatToStr(Now);

━━━━━━━━━━━━━━━━━━━━━

首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas 功能 返回货币数Value转换成字符串

说明 货币数只保留四位小数

参考 function SysUtils.FloatToText 例子 Edit1.Text := CurrToStr(Now);

━━━━━━━━━━━━━━━━━━━━━

首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas 功能 返回浮点数Value转换成货币数

说明 如果浮点数Value超出范围则将触发异常

参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; $[SysUtils.pas 功能 返回浮点数以指定格式转换成字符串

说明 Precision指定精度;Digits指定小数宽度 参考 function SysUtils.FloatToText 例子

///////Begin FloatToStrF

procedure TForm1.Button1Click(Sender: TObject); begin

Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffGeneral, SpinEdit1.Value, SpinEdit2.Value);

Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffExponent, SpinEdit1.Value, SpinEdit2.Value);

Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value, SpinEdit2.Value);

Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value, SpinEdit2.Value);

Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value, SpinEdit2.Value); end;

///////End FloatToStrF

━━━━━━━━━━━━━━━━━━━━━ 首

部 function FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; $[SysUtils.pas 功能 返回浮点数以指定格式转换成指针字符串的内存大小 说明 Precision指定精度;Digits指定小数宽度 参考 例子

///////Begin FloatToText

procedure TForm1.Button1Click(Sender: TObject); var

vBuffer: array[0..255] of Char;

E: Extended; begin

E := StrToFloatDef(Edit1.Text, 0);

SpinEdit3.Value := FloatToText(vBuffer, E,

fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); end;

///////End FloatToText(

━━━━━━━━━━━━━━━━━━━━━ 首

部 function FormatFloat(const Format: string; Value: Extended): string; $[SysUtils.pas

功能 返回浮点数类型以指定格式字符串Format转换成字符串 说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' 参考 function SysUtils.FloatToTextFmt

例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function FormatCurr(const Format: string; Value: Currency): string; $[SysUtils.pas

功能 返回货币类型以指定格式字符串Format转换成字符串 说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' 参考 function SysUtils.FloatToTextFmt

例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: TFloatValue; Format: PChar): Integer; $[SysUtils.pas

功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 说明 ValueType指定无类型参数Value的类型 参考 例子

///////Begin FloatToTextFmt

procedure TForm1.Button1Click(Sender: TObject); var

vBuffer: array[0..255] of Char; E: Extended; begin

E := StrToFloatDef(Edit1.Text, 0);

SpinEdit1.Value := FloatToTextFmt(vBuffer, E, fvExtended, PChar(Edit2.Text));

Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); end;

///////End FloatToTextFmt

━━━━━━━━━━━━━━━━━━━━━ 首

部 procedure FloatToDecimal(var Result: TFloatRec; const Value; ValueType: TFloatValue; Precision, Decimals: Integer); $[SysUtils.pas 功能 将浮点数转换成浮点结构类型并返回到Result

说明 ValueType指定类型;Precision指定精度;Decimals指定小数 参考 type SysUtils.TFloatRec 例子

━━━━━━━━━━━━━━━━━━━━━ 首

部 function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp; $[SysUtils.pas

功能 返回日期时间类型转换成时间结构类型 说明

参考 type SysUtils.TTimeStamp 例子

━━━━━━━━━━━━━━━━━━━━━

首部 function EncodeDate(Year, Month, Day: Word): TDateTime; $[SysUtils.pas 功能 返回合并年、月、日得到的日期 说明 当出现非法组合时将触发异常

参考 function SysUtils.TryEncodeDate 例

子 Edit1.Text := DateToStr(EncodeDate(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value));

━━━━━━━━━━━━━━━━━━━━━

首部 function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; $[SysUtils.pas 功能 返回合并时、分、秒、微秒得到的时间 说明 当出现非法组合时将触发异常

参考 function SysUtils.TryEncodeTime 例

子 Edit1.Text := TimeToStr(EncodeTime(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value, SpinEdit4.Value));

━━━━━━━━━━━━━━━━━━━━━ 首

部 procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word); $[SysUtils.pas

功能 分解日期为年、月、日 说明

参考 function SysUtils.DecodeDateFully 例子

///////Begin DecodeDate

procedure TForm1.Button1Click(Sender: TObject); var

Year, Month, Day: Word;

begin

DecodeDate(Date, Year, Month, Day); SpinEdit1.Value := Year; SpinEdit2.Value := Month; SpinEdit3.Value := Day; end;

///////End DecodeDate

━━━━━━━━━━━━━━━━━━━━━ 首

部 function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas 功能 分解日期为年、月、日、星期 说明 [DOW:Day Of Week]

参考 function SysUtils.DateTimeToTimeStamp 例子

///////Begin DecodeDateFully

procedure TForm1.Button1Click(Sender: TObject); var

Year, Month, Day, DOW: Word; begin

DecodeDateFully(Date, Year, Month, Day, DOW); SpinEdit1.Value := Year; SpinEdit2.Value := Month; SpinEdit3.Value := Day; SpinEdit4.Value := DOW; end;

///////End DecodeDateFully

━━━━━━━━━━━━━━━━━━━━━ 首

部 function InternalDecodeDate(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas 功能 说明 Kylix函数

参考 function SysUtils.DecodeDateFully 例子

━━━━━━━━━━━━━━━━━━━━━ 首

部 procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word); $[SysUtils.pas

功能 分解时间为时、分、秒、微妙 说明

参考 function SysUtils.DateTimeToTimeStamp 例子

///////Begin DecodeTime

procedure TForm1.Button1Click(Sender: TObject); var

Hour, Min, Sec, MSec: Word; begin

DecodeTime(Time, Hour, Min, Sec, MSec); SpinEdit1.Value := Hour; SpinEdit2.Value := Min; SpinEdit3.Value := Sec; SpinEdit4.Value := MSec; end;

///////End DecodeTime

━━━━━━━━━━━━━━━━━━━━━ 首

部 procedure DateTimeToSystemTime(const DateTime: TDateTime; var SystemTime: TSystemTime); $[SysUtils.pas

功能 返回日期时间类型转换成系统时间类型 说明

参考 function SysUtils.DecodeDateFully;function SysUtils.DecodeTime 例子

━━━━━━━━━━━━━━━━━━━━━ 首

部 function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime; $[SysUtils.pas

功能 返回系统时间类型转换成日期时间类型 说明

参考 function SysUtils.EncodeDate;function SysUtils.EncodeTime 例子

━━━━━━━━━━━━━━━━━━━━━

首部 function DayOfWeek(const DateTime: TDateTime): Word; $[SysUtils.pas 功能 返回日期时间DateTime所在的星期

说明 1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六) 参考 function SysUtils.DateTimeToTimeStamp 例子

///////Begin DayOfWeek

procedure TForm1.Button1Click(Sender: TObject); const

cWeekCn: array[1..7] of string =

('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六'); begin

Edit1.Text := cWeekCn[DayOfWeek(Now)]; end;

///////End DayOfWeek

━━━━━━━━━━━━━━━━━━━━━ 首部 function Date: TDateTime; $[SysUtils.pas

功能 返回当前日期

说明 Date - Int(Date)=0;

参考 function SysUtils.DateTimeToString 例子 Edit1.Text := DateToStr(Date);

━━━━━━━━━━━━━━━━━━━━━

delphi函数大全之D-G篇-详解2 (2007-04-09 00:29:38)

标签：delphi 函数

━━━━━━━━━━━━━━━━━━━━━

首部 function FileExists(const FileName: string): Boolean; $[SysUtils.pas 功能 返回文件名FileName是否有实体存在 说明 包括隐藏文件

参考 function SysUtils.FileAge

例子 CheckBox1.Checked := FileExists(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function DirectoryExists(const Directory: string): Boolean; $[SysUtils.pas 功能 返回目录名FileName是否有实体存在 说明 包括隐藏目录

参考 function Windows.GetFileAttributes

例子 CheckBox1.Checked := DirectoryExists(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function ForceDirectories(Dir: string): Boolean; $[SysUtils.pas 功能 返回创建子目录是否成功 说明 直接创建多级目录

参考 function SysUtils.CreateDir

例子 CheckBox1.Checked := ForceDirectories(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; $[SysUtils.pas 功能 返回设置文件搜索 说明 搜索成功则返回0

参考 function Windows.FindFirstFile 例子

///////Begin FindFirst,FindNext,FindClose

procedure TForm1.Button1Click(Sender: TObject); var

vSearchRec: TSearchRec; I: Integer; begin

Memo1.Clear;

I := FindFirst(Edit1.Text, faAnyFile, vSearchRec); while I = 0 do begin

Memo1.Lines.Add(vSearchRec.Name); I := FindNext(vSearchRec);

end;

FindClose(vSearchRec); end;

///////End FindFirst,FindNext,FindClose ━━━━━━━━━━━━━━━━━━━━━

首部 function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas 功能 返回继续文件搜索 说明 搜索成功则返回0

参考 function Windows.FindNextFile 例子 <参见FindFirst>

━━━━━━━━━━━━━━━━━━━━━

首部 procedure FindClose(var F: TSearchRec); $[SysUtils.pas 功能 结束当前文件搜索

说明 不关闭查询会占用系统资源 参考 function Windows.FindClose 例子 <参见FindFirst>

━━━━━━━━━━━━━━━━━━━━━

首部 function FileGetDate(Handle: Integer): Integer; $[SysUtils.pas 功能 返回文件的修改时间 说明 读取失败则返回-1

参考 function Windows.GetFileTime 例子

///////Begin FileGetDate

procedure TForm1.Button1Click(Sender: TObject); var

I: Integer; begin

I := FileOpen(Edit1.Text, fmOpenRead); if I < 0 then Exit;

SpinEdit1.Value := FileGetDate(I);

Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value)); FileClose(I); end;

///////End FileGetDate

━━━━━━━━━━━━━━━━━━━━━ 首

部 function FileSetDate(const FileName: string; Age: Integer): Integer; overload; $[SysUtils.pas 首

部 function FileSetDate(Handle: Integer; Age: Integer): Integer; overload; platform; $[SysUtils.pas

功能 返回设置文件的修改时间 说明 修改成功则返回0

参考 function Windows.SetFileTime

例

子 SpinEdit1.Value := FileSetDate(Edit1.Text, DateTimeToFileDate(StrToDateTime(Edit2.Text)));

━━━━━━━━━━━━━━━━━━━━━ 首

部 function FileGetAttr(const FileName: string): Integer; platform; $[SysUtils.pas

功能 返回文件的属性

说明 读取失败则返回$FFFFFFFF

参考 function Windows.GetFileAttributes

例子 SpinEdit1.Value := FileGetAttr(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function FileSetAttr(const FileName: string; Attr: Integer): Integer; platform; $[SysUtils.pas

功能 返回设置文件的属性 说明 设置成功则返回0

参考 function Windows.SetFileAttributes

例子 SpinEdit1.Value := FileSetAttr(Edit1.Text, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function FileIsReadOnly(const FileName: string): Boolean; $[SysUtils.pas 功能 返回文件是否只读 说明 文件不存在看作只读

参考 function Windows.GetFileAttributes

例子 CheckBox1.Checked := FileIsReadOnly(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean; $[SysUtils.pas

功能 返回设置文件是否只读是否成功 说明 文件不存在则返回False

参考 function Windows.GetFileAttributes;function Windows.SetFileAttributes 例子 CheckBox1.Checked := FileSetReadOnly(Edit1.Text, CheckBox2.Checked); ━━━━━━━━━━━━━━━━━━━━━

首部 function DeleteFile(const FileName: string): Boolean; $[SysUtils.pas 功能 返回删除文件是否成功 说明 文件不存在则返回False

参考 function Windows.DeleteFile

例子 CheckBox1.Checked := DeleteFile(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function ExtractFilePath(const FileName: string): string; $[SysUtils.pas 功能 返回文件名所在的路径 说

明 ExtractFilePath('C:\\')='C:\\';ExtractFilePath('\\\\Server\\Tool\\Calc.exe')='\\\\Se

rver\\Tool\\'

参考 function SysUtils.LastDelimiter;function System.Copy 例子 Edit1.Text := ExtractFilePath(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function ExtractFileDir(const FileName: string): string; $[SysUtils.pas 功能 返回文件名所在的目录 说

明 ExtractFileDir('C:\\')='C:\\';ExtractFileDir('\\\\Server\\Tool\\Calc.exe')='\\\\Server\\Tool'

参考 function SysUtils.LastDelimiter;function System.Copy 例子 Edit1.Text := ExtractFileDir(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function ExtractFileDrive(const FileName: string): string; $[SysUtils.pas 功能 返回文件名所在驱动器 说

明 ExtractFileDrive('C:\\')='C:';ExtractFileDrive('\\\\Server\\Tool\\Calc.exe')='\\\\Server\\Tool'

参考 function System.Copy

例子 Edit1.Text := ExtractFileDrive(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function ExtractFileName(const FileName: string): string; $[SysUtils.pas 功能 返回绝对文件名 说

明 ExtractFileName('C:\\')='';ExtractFileName('\\\\Server\\Tool\\Calc.exe')='Calc.exe'

参考 function SysUtils.LastDelimiter;function System.Copy 例子 Edit1.Text := ExtractFileName(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function ExtractFileExt(const FileName: string): string; $[SysUtils.pas 功能 返回文件名的扩展名

说明 ExtractFileExt('C:\\')='';ExtractFileExt('\\\\Server\\Tool\\Calc.exe')='.exe' 参考 function SysUtils.LastDelimiter;function System.Copy 例子 Edit1.Text := ExtractFileExt(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function ExpandFileName(const FileName: string): string; $[SysUtils.pas 功能 返回文件名的完整表示 说

明 ExpandFileName('hello.pas')='C:\\Program Files\\Borland\\Delphi6\\Projects\\hello.pas'

参考 function Windows.GetFullPathName

例子 Edit1.Text := ExpandFileName(Edit2.Text);

delphi函数大全之I-R篇-详解 (2007-04-09 00:36:53)

标签：函数 delphi

分类：IT

━━━━━━━━━━━━━━━━━━━━━

首部 function ReverseString(const AText: string): string; $[StrUtils.pas 功能 返回字符串AText的反序

说明 ReverseString('1234') = '4321' 参考 function System.SetLength

例子 Edit3.Text := ReverseString(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string; $[StrUtils.pas 功能 返回嵌套字符串

说明 AStart:嵌套开始位置;ALength:嵌套长

度;StuffString('abcd', 2, 0, '12') = 'a12bcd' 参考 function System.Copy 例

子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, Edit2.Text);

━━━━━━━━━━━━━━━━━━━━━ 首

部 function RandomFrom(const AValues: array of string): string; overload; $[StrUtils.pas

功能 随机返回字符串数组AValues中的一个元素 说明 之前建议执行Randomize 参考 function System.Random

例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas 功能 返回指定的逻辑字符串

说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 参考

例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas

功能 返回字符串AText左边的ACount个字符 说明 LeftStr('123456', 3) = '123'

参考 function System.Copy

例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas

功能 返回字符串AText右边的ACount个字符 说明 RightStr('123456', 3) = '456' 参考 function System.Copy

例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas

功能 返回字符串AText从AStart开始的ACount个字符 说明 其实就是Copy

参考 function System.Copy

例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas 功能 返回一个新的字符串指针地址 说明 字符串S为空时返回NullStr 参考 procedure System.New 例子

////////Begin NewStr,DisposeStr

procedure TForm1.Button1Click(Sender: TObject); var

P: PString; begin

P := NewStr(Edit1.Text); Edit2.Text := P^; DisposeStr(P); end;

////////End NewStr,DisposeStr

━━━━━━━━━━━━━━━━━━━━━

首部 function LowerCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S的小写形式 说明 非大写字符不处理

参考 procedure System.SetLength

例子 Edit2.Text := LowerCase(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 功能 返回字符串Ident是否是正确的标识符

说明 标识符::字母|下划线[字母|下划线|数字]...

参考

例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas 功能 返回整数Value转换成字符串 说明 Format('%d', [Value]) 参考 function SysUtils.FmtStr

例子 Edit2.Text := IntToStr(SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function IntToHex(Value: Integer; Digits: Integer): string; overload; $[SysUtils.pas 首

部 function IntToHex(Value: Int64; Digits: Integer): string; overload; $[SysUtils.pas

功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 参考 function SysUtils.FmtStr

例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 功能 返回根据标识Ident的字符串资源 说明 字符串资源是指程序的内部资源

参考 function SysUtils.FindStringResource

例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function RenameFile(const OldName, NewName: string): Boolean; $[SysUtils.pas 功能 返回重命名文件是否成功 说明 文件不存在则返回False 参考 function Windows.MoveFile

例子 CheckBox1.Checked := RenameFile(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function RemoveDir(const Dir: string): Boolean; $[SysUtils.pas 功能 返回删除目录是否成功 说明 必须是空目录

参考 function Windows.RemoveDirectory

例子 CheckBox1.Checked := RemoveDir(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function MSecsToTimeStamp(MSecs: Comp): TTimeStamp; $[SysUtils.pas 功能 返回微妙转换成时间结构类型 说明

参考 type SysUtils.TTimeStamp

例子

━━━━━━━━━━━━━━━━━━━━━

delphi函数大全之S-W篇-详解 (2007-04-09 00:31:00)

标签：delphi 函数

分类：IT

━━━━━━━━━━━━━━━━━━━━━

首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas 功能 返回字符串S转换成六十四位整数

说明 字符串非六十四位整数表达时将引起异常 参考 procedure System.Val

例子 SpinEdit1.Value := StrToInt64(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function StrToInt64Def(const S: string; const Default: Int64): Int64; $[SysUtils.pas

功能 返回字符串S转换成六十四位整数

说明 字符串非六十四位整数表达时则返回默认值Default 参考 procedure System.Val

例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; $[SysUtils.pas

功能 返回字符串S转换成六十四位整数Value是否成功

说明 字符串非六十四位整数表达时返回False并且Value将输出为0 参考 procedure System.Val 例子

///////Begin TryStrToInt64

procedure TForm1.Button1Click(Sender: TObject); var

I: Int64; begin

CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); SpinEdit1.Value := I; end;

///////End TryStrToInt64

━━━━━━━━━━━━━━━━━━━━━

首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas 功能 返回字符串S转换成逻辑值 说明 字符非逻辑表达时将引起异常 参考 function SysUtils.TryStrToBool

例子 CheckBox1.Checked := StrToBool(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首

部 function StrToBoolDef(const S: string; const Default: Boolean): Boolean; $[SysUtils.pas

功能 返回字符串S转换成逻辑值

说明 字符非逻辑表达时则返回默认值Default 参考 function SysUtils.TryStrToBool

例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; $[SysUtils.pas

功能 返回字符串S转换成逻辑值Value是否成功

说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 参

考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 例子

///////Begin TryStrToBool

procedure TForm1.Button1Click(Sender: TObject); var

B: Boolean; begin

SetLength(TrueBoolStrs, 2); SetLength(FalseBoolStrs, 2); TrueBoolStrs[0] := 'True'; FalseBoolStrs[0] := 'False'; TrueBoolStrs[1] := 'Yes'; FalseBoolStrs[1] := 'No';

CheckBox1.Checked := TryStrToBool(Edit1.Text, B); CheckBox2.Checked := B; end;

///////End TryStrToBool 附加

///////Begin TryStrToBool

function TryStrToBool(const S: string; out Value: Boolean): Boolean; function CompareWith(const aArray: array of string): Boolean; var

I: Integer; begin

Result := False;

for I := Low(aArray) to High(aArray) do if AnsiSameText(S, aArray[I]) then begin

Result := True;

本文来源：https://www.bwwdw.com/article/giug.html