DELPHI常用函数说明

合集下载

DELPHI控件属性方法事件及常用函数

DELPHI控件属性方法事件及常用函数

DELPHI控件属性方法事件及常用函数DELPHI是一种面向对象的编程语言,用于开发Windows平台上的应用程序。

在DELPHI中,控件是程序的可视化部件,用于用户界面的创建和交互。

以下是一些常用的DELPHI控件属性、方法、事件和常用函数的详细介绍。

一、控件属性:1. Name属性:用于指定控件的名称,以便在程序中引用它。

2. Caption属性:用于指定控件的显示文本。

3. Visible属性:用于控制控件是否可见。

4. Enabled属性:用于控制控件是否可用。

5. Color属性:用于指定控件的背景颜色。

6. Font属性:用于指定控件的字体。

7. Width和Height属性:用于指定控件的宽度和高度。

8. Top和Left属性:用于指定控件在父容器中的位置。

9. Parent属性:用于指定控件的父容器。

二、控件方法:1. SetFocus方法:用于使控件获得焦点。

2. Show方法:用于显示当前控件。

3. Hide方法:用于隐藏当前控件。

4. BringToFront方法:用于将当前控件移到其他控件之前显示。

5. SendToBack方法:用于将当前控件移到其他控件之后显示。

6. Invalidate方法:用于使控件的绘制区域无效,触发重绘操作。

三、控件事件:1. OnClick事件:当用户单击控件时触发。

2. OnDblClick事件:当用户双击控件时触发。

3. OnEnter事件:当控件获得焦点时触发。

4. OnExit事件:当控件失去焦点时触发。

5. OnKeyPress事件:当用户按下键盘上的字符键时触发。

6. OnMouseDown事件:当用户按下鼠标按钮时触发。

7. OnMouseUp事件:当用户释放鼠标按钮时触发。

8. OnMouseMove事件:当用户移动鼠标时触发。

四、常用函数:1. ShowMessage函数:用于在屏幕上显示一个消息框。

2. MessageBox函数:用于在屏幕上显示一个消息框,并且返回用户的选择。

Delphi文件名操作常用函数

Delphi文件名操作常用函数

Delphi⽂件名操作常⽤函数Delphi⽂件名操作常⽤函数通过下⾯的函数,可以⽅便地对⽂件名进⾏操作:1. ExpandFileName将当前驱动器名(盘符)、路径名和指定的⽂件名合成⼀个绝对⽂件名。

函数原型如下:function ExpandFileName(const FileName: string): string;返回值为合成的绝对⽂件名。

2. ExpandUNCFileName获取⼀个以U N C格式的包括⽹络驱动器名的绝对⽂件名。

函数原型如下:function ExpandUNCFileName(const FileName: string): string;3. ExtractFileDir从绝对⽂件名中获取⽬录名。

函数原型如下:function ExtractFileDir(const FileName: string): string;4. ExtractFileDrive从绝对⽂件名中获取驱动器号(盘号)。

函数原型如下:function ExtractFileDrive(const FileName: string): string;5. ExtractFileExt从绝对⽂件名中获取⽂件名的扩展名。

函数原型如下:function ExtractFileExt(const FileName: string): string;6. ExtractFileName从绝对⽂件名中获取⽂件名。

函数原型如下:function ExtractFileName(const FileName: string): string;7. ExtractFilePath从绝对⽂件名中获取路径名。

函数原型如下:function ExtractFilePath(const FileName: string): string;8. ExtractRelativePath从绝对⽂件名中获取相对于某⼀个路径的相对路径名。

DELPHI常用过程和函数

DELPHI常用过程和函数

DELPHI常用过程和函数DELPHI常用过程和函数2010-02-16 21:25一、数学运算函数1、绝对值函数function Abs(x);返回参数X的绝对值。

参数X可以是整型或实型,返回值为非负的整数实数;2、平方与平方根函数function Sqr(x:Extended):Extended;参数X实型表达式,返回X的平方,返回值也是实型数据。

function Sqrt(x:Extended):Extended;参数X非负实型表达式,返回X的算术平方根,返回值也是实型数据。

3、三角函数function Sin(x:Extended):Extended;function Cos(x:Extended):Extended;function ArcTan(x:Extended):Extended;参数X为数值表达式。

4、取整数部分与取小数部分函数function Int(x:Extended):Extended;参数X实行表达式,返回X的整数部分。

function Frac(x:Extended):Extended;参数X实行表达式,返回X的小数部分。

5、取整函数function Trunc(x:Extended):Int64;参数X实行表达式,返回不大于X的整数部分。

function Roundc(x:Extended):Int64;参数X实行表达式,返回对X的小数部分进行四舍五入后的整数部分。

6、指数函数和对数函数function Exp(x:Real):Real;参数X为实型表达式,返回e x,返回值也是实型数据。

function Ln(x:Real):Real;参数X为实型表达式,返回X的自然对数值,返回值也是实型数据。

7、随机函数function Random[(Range:Integer)];返回一个大于或等于0且小于参数Range的随机实数,如果缺省参数Range则返回大于或等于0且小于1的随机实数。

更全的Delphi函数参考大全

更全的Delphi函数参考大全

更全的Delphi函数参考大全Delphi函数参考大全田秧收集整理第1章字符串处理函数1.1 AdjustLineBreaks(S,Style) 返回将字符串的行分隔符调整为CR/LF序列1.2 AnsiCompareStr(S1,S2) 反回比较两个字符串1.3 AnsiCompareText(S1,S2) 反回比较两个字符串1.4 AnsiContainsStr(串1,串2) 返回字符串1是否包含子串21.5 AnsiContainsText(串1,串2) 返回字符串1是否包含子串21.6 AnsiDeQdStr(S,Q) 返回以字符Q为引号的表现形式原形1.7 AnsiEndsStr(串2,串1) 返回字符串1是否以子串2结尾1.8 AnsiEndsText(串2,串1) 返回字符串1是否以子串2结尾1.9 AnsiExtractQdStr(varSrc,Q) 返回以字符Q为引号的表现形式原形1.10 AnsiIndexStr(串1, 数组) 返回字符串1在字符串数组数组中的位置1.11 AnsiIndexT ext(串1, 数组) 返回字符串1在字符串数组数组中的位置1.12 AnsiLastChar(S) 返回字符串S的最后一个指针字符1.13 AnsiLowerCase(S) 返回字符串S的小写形式1.14 AnsiMatchStr(串1, 数组) 返回字符串数组数组中是否包含字符串11.15 AnsiMatchText(串1, 数组) 返回字符串数组数组中是否包含字符串11.16 AnsiQdStr(S,Q) 返回字符串S以字符Q为引号的表现形式1.17 AnsiReplaceStr(串1,串2,串3) 返回字符串1中用子串2替换成子串3的结果1.18 AnsiReplaceT ext(串1,串2,串3) 返回字符串1中用子串2替换成子串3的结果1.19 AnsiResemblesText(串1, 串2) 返回两个字符串是否相似1.20 AnsiSameStr(S1,S2) 返回两个字符串是否相等1.21 AnsiSameText(S1,S2) 返回两个字符串是否相等1.22 AnsiStartsStr(串2,串1) 返回字符串1是否以子串2开头1.23 AnsiStartsText(串2,串1) 返回字符串1是否以子串2开头1.24 AnsiStrComp(S1,S2) 返回比较两个指针字符串1.25 AnsiStrIComp(S1,S2) 返回比较两个指针字符串1.26 AnsiString 短字符串转为长字符串1.27 AnsiStrLastChar(P) 返回指针字符串P的最后一个指针字符1.28 AnsiStrLComp(S1,S2,N) 返回比较两个指针字符串指定长度1.29 AnsiStrLComp函数返回比较两个指针字符串指定长度1.30 AnsiStrLIComp(S1,S2,N) 返回比较两个指针字符串指定长度1.31 AnsiStrLower(Str) 返回指针字符串小写形式1.32 AnsiStrPos函数返回指针字符串Str2在Str1中第一个出现的地址1.33 AnsiStrRScan函数返回指针字符串Str2在Str1中最后一个出现的地址1.34 AnsiStrScan函数返回指针字符串Str2在Str1中第一个出现的地址1.35 AnsiStrUpper(Str) 返回指针字符串大写形式1.36 AnsiUpperCase(S) 返回字符串S的大写形式1.37 AppendStr(P, S) 在字符串P后追加字符串S1.38 AssignStr(P, S) 将字符串S更新给字符串指针P1.39 ByteToBin 字节转二进制串1.40 CompareMem(P1,P2,N) 返回比较两个内存指针1.41 CompareStr(S1,S2) 返回比较两个字符1.42 CompareText(S1,S2) 返回比较两个字符串1.43 Concat函数连接两个或多个字符串为一个字符串1.44 Copy函数返回字符串1从K开始的N个字符1.45 DecodeSoundexInt(AValue) 返回探测整数的解码1.46 DecodeSoundexWord(AValue) 返回探测文字数值的解码1.47 Delete(s,k,n)过程删除字符串中指定的字符串1.48 DisposeStr(P) 释放字符串指针P资源1.49 DupeString(串1,N) 返回字符串1的N个复本1.50 ExtractStrings函数1.51 GetHzPy 取汉字的拼音1.52 High(数组) 返回数组下标的最大值1.53 IfThen(AValue ATrue,AFalse) 返回指定的逻辑字符串1.54 Insert(s1,s2,n)过程插入一个字符(串)1.55 InStr 判断s1是否包含在s2中1.56 IntToByte 返回整数Value转换成字节数1.57 IntToHex(ValueDigits) 返回整数Value转换成十六进制表现结果1.58 IntToStr(Value) 返回整数Value转换成字符串1.59 IntToStrSp 带分隔符的整数-字符转换1.60 IsValidIdent(Ident) 返回字符串Ident是否是正确的标识符1.61 LeftStr(串1, N) 返回字符串1左边的N个字符1.62 Length函数返回指定字符串的长度1.63 LineStart函数1.64 LinesToStr 多行文本转单行(换行符转’\n’)1.65 Low(数组) 返回数组下标的最小值1.66 LowerCase(S) 返回字符串S的小写形式1.67 MidStr(串1,K,N) 返回字符串1从K开始的N个字符1.68 NewStr(S) 返回一个新的字符串指针地址1.69 Pchar(S)函数长字符串变量S转为指针类型1.70 PosEx函数返回指针字符串Str2在Str1中第一个出现的地址1.71 Pos函数返回指针字符串Str2在Str1中第一个出现的地址1.72 QdStr(S) 返回字符串S在pascal中的表现形式1.73 QuotedStr函数返回字符串S在pascal中的表现形式1.74 RandomFrom(数组) 随机返回字符串数组数组中的一个元素1.75 ReverseString(串1) 返回字符串1的反序1.76 RightStr(串1, N) 返回字符串1右边的N个字符1.77 SameText(S1,S2) 返回两个字符串是否相等1.78 SearchBuf() 返回第一个搜索到的指针位置1.79 SetLength(S,n)过程设置字符串或动态数组长度1.80 SetString过程1.81 ShortString 长字符串转为短字符串1.82 Soundex(串1,N) 返回探测字符串1.83 SoundexCompare(串1,串2,N) 返回比较两个字符串的探测字符串的结果1.84 SoundexInt(串1,N) 返回探测整数1.85 SoundexProc(串1,串2) 返回两个字符串的探测字符串是否相同1.86 SoundexSimilar(串1,串2,N) 返回两个字符串的探测字符串是否相同1.87 SoundexWord(串1) 返回探测文字数值1.88 Spc 返回空格串1.89 StrCat函数连接两个指针字符串1.90 StrComp函数比较两个指针字符串1.91 StrCopy函数将指针字符串2复制到指针字符串1中1.92 StrECopy函数将一个串复制到另一个串并返回结果字符串尾部的指针1.93 StrEnd函数返回指向字符串尾部的指针1.94 StringOfChar函数1.95 StringReplace函数返回字符串1中用子串2替换成子串3的结果1.96 StrLCat函数将一串中的字符附加到另一串尾并返回合并的字符串1.97 StrLComp函数返回比较两个指针字符串指定长度1.98 StrLCopy函数将指针字符串2指定长度n复制到指针字符串1中1.99 StrLen函数返回字符串中的字符数1.100 StrLIComp函数以最大长度比较两个字符串(不区分大小写)1.101 StrLower函数返回字符串S的小写形式1.102 StrMove函数将指针串2指定内存数量n复制覆盖到指针串1中1.103 StrPCopy函数返回将指针字符串2复制到指针字符串1中1.104 StrPLCopy函数将字符串2指定长度n复制到指针字符串1中1.105 StrPos函数返回指针字符串Str2在Str1中第一个出现的地址1.106 StrRScan函数返回指针字符串Str2在Str1中最后一个出现的地址1.107 StrScan函数返回指针字符串Str2在Str1中第一个出现的地址1.108 StrToBool(S) 返回字符串S转换成逻辑值1.109 StrToBoolDef(S, Default) 返回字符串S转换成逻辑值1.110 StrToInt(S) 返回字符串S转换成整数1.111 StrToInt64(S) 返回字符串S转换成六十四位整数1.112 StrToInt64Def(S, Default) 返回字符串S转换成六十四位整数1.113 StrToIntDef(S,Default) 返回字符串S转换成整数1.114 StrToLines 单行文本转多行(’\n’转换行符)1.115 StrUpper函数返回字符串S的大写形式1.116 Str过程将数值转换为字符串1.117 StuffString(串1,K,N, 串2) 返回嵌套字符串1.118 StuffString函数返回嵌套字符串1.119 SwapStr 交换字串1.120 Trim(S) 返回除去字符串S左右不可见字符1.121 TrimLeft(S) 返回除去字符串S左边不可见字符1.122 TrimRight(S) 返回除去字符串S右边不可见字符1.123 TryStrToBool(S,outValue) 返回字符串S转换成逻辑值Value是否成功1.124 TryStrToInt(S,outValue) 返回字符串S转换成整数Value是否成功1.125 TryStrToInt64(S,outValue) 返回字串S转换成六十四位整数值是否成功1.126 UpperCase(S) 返回字符串S的大写形式1.127 Val过程将字符串转换为整型值1.128 VarArrayCreate([0,n],类型) 创建一个指定类型的数组1.129 VarArrayHighBound(Array,1) 返回数组上标1.130 VarArrayLowBound(Array,1) 返回数组下标1.131 VarArrayOf(S1,S2...Sn) 变量转数组1.132 VarType(vS) 返回变体类型的类型代码1.133 WideCompareStr(S1,S2) 返回比较两个双字节字符串1.134 WideCompareText(S1,S2) 返回比较两个双字节字符串1.135 WideLowerCase(S) 返回双字节字符串的小写形式1.136 WideSameStr(S1,S2) 返回两个双字节字符串是否相同1.137 WideSameText(S1,S2) 返回两个双字节字符串是否相同1.138 WideUpperCase(S) 返回双字节字符串的大写形式第2章数学计算函数2.1 Abs函数绝对值2.2 Ceil(const X:Extended):Integer 返回最小整数>=X,|X|<maxint< p="">2.3 CompareValue函数浮点数比较2.4 DivMod过程16位整数除法一次调用得出结果和余数2.5 EnsureRange函数范围切断函数2.6 Exp函数e的X次方(e=1.7314626)2.7 Floor(const X:Extended):Integer 返回最大整数<=X,|X|<maxint< p="">2.8 Frac函数返回参数的小数部分2.9 InRange函数范围测试函数2.10 Int函数取整2.11 IsZero函数零测试,若值为0(或者是非常非常接近于0)则返回真2.12 Ldexp函数返回X*2^P2.13 Ln函数自然对数函数2.14 Log10函数常用对数函数2.15 Log2函数基数为2的X对数2.16 LogN函数基数为N的X对数2.17 Max函数最大值2.18 Min函数最小值2.19 Pi函数返回圆周率Pi2.20 Poly(const X:Extended;constCoefficients:arrayofDouble):Extended 计算一元多项式A[0]+A[1]*X+...+A[N]*X^N在变量X时的值2.21 Power函数指数函数:任意基数的任意幂2.22 Randomize 随机种子2.23Random[(Range:Integer)] 整数参数返回0<=Random(Range)<range,无参返回(0,1)的数< p="">2.24 RoundT o函数如Frac(X)<0.5则返回X否则返回X+1,其缺省凑整到1/1002.25 SameValue函数浮点数比较:两数是否相等2.26 Sign函数符号函数2.27 Sqr函数平方函数2.28 Sqrt函数平方根函数2.29 Trunc函数将实型值截取为整型值2.30 VarComplexAbs函数2.31 VarComplexAbsSqr函数2.32 VarComplexAngle函数第3章序数函数3.1 Inc过程参数自加3.2 Odd函数判断是否是奇数3.3 Ord函数返回一序数类型所对应的序数值3.4 Pred函数返回序数的前者3.6 Succ函数返回序数的后者3.5 Dec 函数参数自减第4章、三角函数4.1 ArcCos函数返回余弦函数的反函数值4.2 ArcCosh函数返回余弦函数的反函数值4.3 ArcCot函数返回余切函数的反函数值4.4 ArcCoth函数返回余切函数的反函数值4.5 ArcCsc函数返回余割函数的反函数值4.6 ArcCsch函数返回余割函数的反函数值4.7 ArcSec函数返回正割函数的反函数值4.8 ArcSech函数返回正割函数的反函数值4.9 ArcSin函数返回正弦函数的反函数值4.1 ArcSinh函数返回正弦函数的反函数值4.1 ArcTan函数返回正切函数的反函数值4.1 ArcTan2函数返回正切函数的反函数值4.1 ArcTanh函数返回正切函数的反函数值4.1 Cos函数返回余弦函数值4.2 CoseCant函数返回余割函数值4.2 Cosh函数返回余弦函数值4.2 Cot函数返回余切函数值4.2 Cotan函数返回余切函数值4.2 Csc函数返回余割函数值4.2 Csch函数返回余割函数值4.2 Hypot函数返回余弦函数值4.2 Sec函数返回正割函数值4.2 Secant函数返回正割函数值4.2 Sech函数返回正割函数值4.3 Sin函数返回正弦函数值4.3 SinCos函数返回正余弦函数值4.3 Sinh函数返回正弦函数值4.3 Tan函数返回正切函数值4.3 Tanh函数返回正切函数值4.3 Coth函数返回余割函数值第5章、统计函数5.1 MaxIntValue函数返回Integer数组中最大整数5.2 MaxValue函数返回Double数组最大数5.3 Max函数返回参数组最大数5.4 MeanAndStdDev过程在一次调用中计算算术平均值(Mean)和标准偏差(StdDev)5.5 Mean函数算术平均值5.6 MinIntValue函数返回Integer数组中最小整数5.7 MinValue函数返回Double数组中最小数5.8 Min函数返回参数组最小数5.9 MomentSkewKurtosis函数计算统计分解的核心因数5.10 Norm函数欧几里得L2-范数5.11 PopnStdDev函数总体标准差5.12 PopnVariance函数总体方差5.13 StdDev函数样本标准偏差5.14 SumInt函数求Integer数和5.15 SumOfSquares函数求Double平方和5.16 SumsAndSquares过程返回Double总和、平方和5.17 Sum函数求Double数的和5.18 TotalVariance函数方差总合5.19 Variance函数采样方差(样品方差)5.20 TrimInt(N,Min,Max:Integer):Integer 输出限制在Min..Max 之间5.21 InBound(N,Min,Max:Integer):Boolean 输出是否在0..255之间第6章、金融函数6.1 InterestPayment函数利息收入(IPAYMT)6.2 FutureValue函数未来值(终值(FVAL))6.3 Payment函数6.4 PeriodPayment函数支付周期6.5 NetPresentValue函数现在净价值,纯现值(NPV),需要现金流数组6.6 InternalRateOfReturn函数内部盈利率(利润率) (IRR)需要现金流数组6.7 DoubleDecliningBalance函数6.8 SYDDepreciation函数折旧{Sum-of-Years-Digitsdepreciation(SYD)}6.9 SLNDepreciation函数直线折旧{StraightLinedepreciation(SLN)}6.10 PresentValue函数现值6.11 InterestRate 利率(IRATE)6.12 NumberOfPeriods 周期数{NumberofPeriods(NPER)}第7章、随机数函数7.1 RandG函数产生一个随机数,随机数符合正态分布Mean数附近,用于模拟数据抽取样品误差7.2 Random函数由“种子”初始化的随机数出发,开始产生随机数序列7.3 RandomFrom函数随机返回字符串数组AValues中的一个元素7.4 Randomize过程用当前机器时间作为随机数“种子”初始化随机数发生器7.5 RandomRange函数返回指定整数范围内的随机整数7.6 RandSeed函数随机数发生的“种子”第8章、单位换算函数8.1 CelsiusT oFahrenheit函数8.2 CompatibleConversionType函数8.3 CompatibleConversionTypes函数8.4 Convert函数数据类型转换8.5 ConvertFrom函数数据类型转换8.6 ConvertTo函数数据类型转换8.7 ConvFamilyToDescription 函数8.8 ConvTypeT oDescription函数8.9 ConvTypeT oFamily函数8.10 ConvUnitAdd函数8.11 ConvUnitCompareValue函数8.12 ConvUnitDec函数8.13 ConvUnitDiff函数8.14 ConvUnitInc函数8.15 ConvUnitSameValue函数8.16 ConvUnitT oStr函数8.17 ConvUnitWithinNext函数8.18 ConvUnitWithinPrevious函数8.19 CycleToDeg函数圆周转度数8.20 CycleToRad函数圆周转弧度8.21 CycleT oGrad函数圆周转梯度8.22 DateTimeToJulianDate 函数8.23 DateTimeT oModifiedJulianDate函数8.24 DateTimeT oUnix函数8.25 DegToCycle函数度数转圆周8.26 DegToGrad函数度数转梯度8.27 DegToRad函数度数转弧度8.28 DescriptionToConvFamily函数8.29 DescriptionT oConvType函数8.30 FahrenheitT oCelsius函数8.31 GetConvFamilies过程8.32 GetConvTypes过程8.33 GradToCycle函数梯度转圆周8.34 GradToDeg函数梯度转度数8.35 GradToRad函数梯度转弧数8.36 JulianDateT oDateTime 函数8.37 RadToCycle函数弧度转圆周8.38 RadToDeg函数弧度转度数8.39 RadToGrad函数弧度转梯数8.40 RaiseConversionError过程8.41 RegisterConversionFamily函数8.42 RegisterConversionType函数8.43 StrToConvUnit函数8.44 TryConvTypeT oFamily函数8.45 TryJulianDateToDateTime函数8.46 TryModifiedJulianDateToDateTime函数8.47 TryStrToConvUnit函数8.48 UnixToDateTime函数8.49 UnregisterConversionFamily过程8.50 UnregisterConversionType过程第9章、日期函数9.1 CheckSqlTimeStamp过程9.2 CompareDateTime函数比较两个日期时间9.3 CompareDate函数比较两个日期9.4 CompareTime函数比较两个时间9.5 CurrentYear函数返回当前年份9.6 DateOf函数返回当前的日期的时间部分9.7 DateTimeToFileDate函数将DELPHI的日期格式转换为DOS 的日期格式9.8 DateTimeToSQLTimeStamp函数返回当前的日期9.9 DateTimeT oString过程将日期时间格式转换为字符串9.10 DateTimeT oStr函数将日期时间格式转换为字符串9.11 DateTimeT oSystemTime过程日期时间类型转换成系统时间类型9.12 DateTimeT oTimeStamp函数返回当前的日期9.13 DateToStr函数将日期格式转换为字符串9.14 Date函数返回当前的日期9.15 DayOfTheMonth函数一月的第几天9.16 DayOfTheWeek函数一周的第几天9.17 DayOfTheYear函数一年的第几天9.18 DayOfWeek函数返回星期的数值9.19 DayOf函数返回日为一年的第几天9.20 DaysBetween函数两个日期的差距天数9.21 DaysInAMonth函数该月份的总天数9.22 DaysInAYear函数得到该年份的总天数9.23 DaysInMonth函数该月份的总天数9.24 DaysInYear函数得到该年份的总天数9.25 DaySpan函数能得到在天数上的差距9.26 DecodeDateDay过程递减变量值9.27 DecodeDateFully函数递减变量值9.28 DecodeDateMonthWeek过程递减变量值9.29 DecodeDateTime过程递减变量值9.30 DecodeDateWeek过程递减变量值9.31 DecodeDate过程将日期格式分解为年月日9.32 DecodeDayOfWeekInMonth过程递减变量值9.33 DecodeTime过程将时间格式分解为时、分、秒、毫秒9.34 EncodeDateDay函数将年月日合成为日期格式9.35 EncodeDateMonthWeek函数将年月日合成为日期格式9.36 EncodeDateTime函数将年月日合成为日期格式9.37 EncodeDateWeek函数将年月日合成为日期格式9.38 EncodeDate函数将年月日合成为日期格式9.39 EncodeDayOfWeekInMonth函数9.40 EncodeTime函数将时、分、秒、毫秒合成为时间格式9.41 EndOfADay函数每日的结束的时间9.42 EndOfAMonth函数每月的结束的时间9.43 EndOfAWeek函数每周的结束的时间9.44 EndOfAYear函数每年的结束的时间9.45 EndOfTheDay函数每日的结束的时间9.46 EndOfTheMonth函数每月的结束的时间9.47 EndOfTheWeek函数每周的结束的时间9.48 EndOfTheYear函数每年的结束的时间9.49 FormatDateTime函数用指定的格式来格式化日期和时间9.50 GetDay(Date:TDate):Integer 取日期天数分量9.51 GetHour(Time:TTime):Integer 取时间小时分量9.52 GetMinute(Time:TTime):Integer 取时间分钟分量9.53 GetMonth(Date:TDate):Integer 取日期月份分量9.54 GetMSecond(Time:TTime):Integer 取时间毫秒分量9.55 GetSecond(Time:TTime):Integer 取时间秒分量9.56 GetTime函数返回当前的时间9.57 GetYear(Date:TDate):Integer 取日期年份分量9.58 HourOfTheDay函数9.59 HourOfTheMonth函数9.60 HourOfTheWeek函数9.61 HourOfTheYear函数9.62 HourOf函数返回小时为一年的第几小时9.63 HoursBetween函数得到两个日期在小时上差距数9.64 HourSpan函数得到这两个时间在小时上的差数9.65 IncAMonth函数N个月后的日期9.66 IncDay函数N天后的日期9.67 IncHour函数N小时后的日期时间9.68 IncMilliSecond函数N个月后的日期9.69 IncMinute函数N分钟后的日期时间9.70 IncMonth函数N个月后的日期9.71 IncSecond函数N秒后的日期时间9.72 IncWeek函数N周后的日期9.73 IncYear函数N年后的日期9.74 IsInLeapYear函数9.75 IsLeapYear函数判断指定的年份是否是闰年9.76 IsPM函数判断指定时间是白天还是黑夜9.77 IsSameDay函数判断是不是同一天9.78 IsToday函数判断是不是今天9.79 IsValidDateDay函数判断时间是否合法9.80 IsValidDateMonthWeek函数判断时间是否合法9.81 IsValidDateTime函数判断时间是否合法9.82 IsValidDateWeek函数判断时间是否合法9.83 IsValidDate函数判断时间是否合法9.84 IsValidTime函数判断时间是否合法9.85 MilliSecondOfTheDay函数9.86 MilliSecondOfTheHour函数9.87 MilliSecondOfTheMinute函数9.88 MilliSecondOfTheMonth函数9.89 MilliSecondOfTheSecond函数9.90 MilliSecondOfTheWeek函数9.91 MilliSecondOfTheYear函数9.92 MilliSecondOf函数9.93 MilliSecondsBetween函数9.94 MilliSecondSpan函数9.95 MinuteOfTheDay函数最小值9.96 MinuteOfTheHour函数最小值9.97 MinuteOfTheMonth函数最小值9.98 MinuteOfTheWeek函数最小值9.99 MinuteOfTheYear函数最小值9.100 MinuteOf函数最小值9.101 MinutesBetween函数得到两个日期在秒上差距数9.102 MinuteSpan函数得到两个日期在秒上差距数9.103 MonthOfTheYear函数得到该年份的该月份数9.104 MonthOf函数得到该年份的该月份数9.105 MonthsBetween函数得到两个日期在月份上差距数9.106 MonthSpan函数得到两个时间在月上的差数9.107 Now函数返回当前的日期和时间9.108 NthDayOfWeek函数9.109 RecodeDateTime函数修改日期时间9.110 RecodeDate函数修改日期9.111 RecodeDay函数修改日数9.112 RecodeHour函数修改小时数9.113 RecodeMilliSecond函数修改毫秒数9.114 RecodeMinute函数修改秒数9.115 RecodeMonth函数修改月份9.116 RecodeSecond函数修改分钟数9.117 RecodeTime函数修改时间9.118 RecodeYear函数修改年度9.119 ReplaceDate过程使用新日期替换原日期部分,但不改变时间部9.120 ReplaceTime过程使用新时间替换原时间部分,但不改变日期部9.121 SameDateTime函数返回两个日期时间是否相等9.122 SameDate函数返回两个日期是否相等9.123 SameTime函数返回两个时间是否相等9.124 SecondOfTheDay函数得到该日期的分钟数字9.125 SecondOfTheHour函数9.126 SecondOfTheMinute函数9.127 SecondOfTheMonth函数9.128 SecondOfTheWeek函数9.129 SecondOfTheYear函数9.130 SecondOf函数得到该日期的分钟数字9.131 SecondsBetween函数得到这两个时间在分钟上的差数9.132 SecondSpan函数得到这两个时间在分钟上的差数9.133 SQLDayOfWeek函数9.134 SQLTimeStampToDateTime函数9.135 SQLTimeStampToStr函数9.136 StartOfADay函数每日的开始的时间9.137 StartOfAMonth函数每月的开始的时间9.138 StartOfAWeek函数每周的开始的时间9.139 StartOfAYear函数每年的开始的时间9.140 StartOfTheDay函数每日的开始的时间9.141 StartOfTheMonth函数每月的开始的时间9.142 StartOfTheWeek函数每周的开始的时间9.143 StartOfTheYear函数每年的开始的时间9.144 StrToDateDef函数将数值转换为字符串9.145 StrToDateTimeDef函数将数值转换为字符串9.146 StrToDateTime函数将字符串转换为日期/时间格式9.147 StrToDate函数将字符串转换为日期格式9.148 StrToSQLTimeStamp函数将数值转换为字符串9.149 StrToTimeDef函数将数值转换为字符串9.150 StrToTime函数将字符串转换为时间格式9.151 SystemTimeToDateTime函数系统日期时间类型转换成PASICL日期时间类9.152 TimeOf函数返回当前的时间9.153 TimeStampT oDateTime函数返回当前的时间9.154 TimeStampT oMSecs函数返回当前的时间9.155 TimeT oStr函数将时间格式转换为字符串9.156 Time函数返回当前的时间9.157 Today函数今天:得到当前日期9.158 Tomorrow函数明天:得到当前日期的后一天的日期9.159 TryEncodeDateDay函数将年月日合成为日期格式是否成功9.160 TryEncodeDateMonthWeek函数将年月日合成为日期格式是否成功9.161 TryEncodeDateTime函数将年月日合成为日期格式是否成功9.162 TryEncodeDateWeek函数将年月日合成为日期格式是否成功9.163 TryEncodeDate函数将年月日合成为日期格式是否成功9.164 TryEncodeDayOfWeekInMonth函数将年月日合成为日期格式是否成功9.165 TryEncodeTime函数将年月日合成为日期格式是否成功9.166 TryRecodeDateTime函数将年月日合成为日期格式是否成功9.167 TryStrToDateTime函数将年月日合成为日期格式是否成功9.168 TryStrToDate函数将年月日合成为日期格式是否成功9.169 TryStrToSQLTimeStamp函数将年月日合成为日期格式是否成功9.170 TryStrToTime函数将年月日合成为日期格式是否成功9.171 WeekOfTheMonth函数得到该星期为该月的第几个星期9.172 WeekOfTheYear函数得到该星期为一年的第几个星期9.173 WeekOf函数得到该星期为一年的第几个星期9.174 WeeksBetween函数得到这两个时间在星期上的差数9.175 WeeksInAYear函数得到在该年份中共包含多少个星期9.176 WeeksInYear函数得到在该年份中共包含多少个星期9.177 WeekSpan函数得到这两个时间在星期上的差数9.178 WithinPastDays函数判断两个时间差是否在一个指定范围内9.179 WithinPastHours函数判断两个时间差是否在一个指定范围内9.180 WithinPastMilliSeconds函数判断两个时间差是否在一个指定范围内9.181 WithinPastMinutes函数判断两个时间差是否在一个指定范围内9.182 WithinPastMonths函数判断两个时间差是否在一个指定范围内9.183 WithinPastSeconds函数判断两个时间差是否在一个指定范围内9.184 WithinPastWeeks函数判断两个时间差是否在一个指定范围内9.185 WithinPastYears函数判断两个时间差是否在一个指定范围内9.186 YearOf函数得到该日期的年份数字9.187 YearsBetween函数得到两个日期在年份上差距数9.188 YearSpan函数得到两个时间在年上的差数9.189 Yesterday函数昨天:得到当前日期的前一天的日期第10章、类型转换函数10.1 AnsiString 短字符串转为长字符串10.2 BinToHex过程将二进制数转换为十六进制数10.3 BoolT oStr函数将布尔型逻辑值转换为字符串10.4 Bounds函数边框10.5 CompToCurrency函数将实数Comp型转换为货币Currency型数据10.6 CompToDouble函数将实数Comp型转换为双精度实数Double型数据10.24 CurrToStrF函数将货币型数转换为字符串10.23 CurrT oStr函数将货币型数转换为字符串10.25 DoubleToComp过程将双精度实数Double型转换为实数Comp型数据10.8 HexToBin函数将十六进制数转换为二进制数10.7 OffsetRect函数通过应用一个指定的偏移,从而让矩形移动起来10.9 Pchar(S)函数长字符串变量S转为指针类型10.10 Point函数画点10.11 Rect函数画矩形10.12 ShortString 长字符串转为短字符串10.13 SmallPoint函数最小指针10.15 StrToBoolDef函数返回字符串S转换成逻辑值或默认值10.14 StrToBool函数返回字符串S转换成逻辑值10.19 StrToInt64Def函数返回字符串S转换成六十四位整数或默认值10.18 StrToInt64函数返回字符串S转换成六十四位整数10.17 StrToIntDef函数将字符串转换为整型或默认值10.16 StrToInt函数将字符串转换为整型10.20 TryStrToBool函数返回字符串S转换成逻辑值Value是否成功10.22 TryStrToInt64函数返回字串S转换成六十四位整数值是否成功10.21 TryStrToInt函数返回字符串S转换成整数Value是否成功10.26 FormatCurr函数格式化货币型数据10.27 IntToHex函数将整型数转换为十六进制数10.28 IntToStr函数将整型数转换为字符串10.29 VarArrayOf(S1,S2...Sn) 变量转数组10.30 VarType(vS) 返回变体类型的类型代码第11章、异常处理函数11.1 ExceptAddr 返回引起当前意外的地址11.2 ExceptObject函数返回当前意外的错误索引代码信息11.3 ExceptionErrorMessage函数返回当前意外的信息11.4 OutOfMemoryError 引起OutOfMemory意外11.5 RaiseLastOSError过程引起操作系统最后出错11.6 ShowException过程显示意外消息与地址11.7 SysErrorMessage函数返回系统意外的信息11.8 RaiseConversionError过程引起类型转换错误11.9 AcquireExceptionObject函数获得当前意外的错误索引代码信息11.10 DatabaseError过程返回数据库意外的错误索引代码信息11.11 DatabaseErrorFmt过程返回数据库意外的错误索引代码信息第12章、文件处理函数12.1 AddDirSuffix 目录尾加’\’修正12.2 Append过程以附加的方式打开已有的文件12.3 AppPath 应用程序路径12.4 AssignFile过程给文件变量赋一外部文件名12.5 AssignPrn函数将打印机赋给一个变量12.6 BlockRead过程读一个或多个记录到变量中12.7 BlockWrite过程从变量中写一个或多个记录12.8 ChangeFileExt函数改变文件的后缀12.9 ChDir过程改变当前目录12.10 CloseFile过程关闭打开的文件12.11 CreateBakFile 创建备份文件12.12 CreateDir函数建立一子目录12.13 DeleteFile函数删除文件12.14 Deltree 删除整个目录12.15 DirectoryExists函数检查目录是否存在12.16 DiskFree函数返回剩余磁盘空间的大小12.17 DiskSize函数返回指定磁盘的容量12.18 Eof函数对有类型或无类型文件测试是否到文件尾12.19 Eoln函数返回文本文件的行结束状态12.20 Erase过程删除外部文件12.21 ExcludeTrailingBackslash函数12.22 ExcludeTrailingPathDelimiter12.23 ExpandFileName函数返回不包含绝对路径的文件名字符串12.24 ExpandUNCFileName函数从网络上返回不包含绝对路径的文件名字符串12.25 ExtractFileDir函数返回驱动器和路径12.26 ExtractFileDrive函数返回驱动器12.27 ExtractFileExt函数返回文件的后缀12.28 ExtractFileName函数返回文件名12.29 ExtractFilePath函数返回指定文件的路径12.30 ExtractRelativePath函数返回指定远程文件的路径12.31 ExtractShortPathName函数返回指定文件短的路径12.32 FileAge函数返回文件已存在的时间12.33 FileClose过程关闭指定的文件12.34 FileCreate函数用指定的文件名建立新文件12.35 FileDateToDateTime函数将DOS的日期格式转换为Delphi的日期格式12.36 FileExists函数检查文件是否存在12.37 FileGetAttr函数获取文件属性12.38 FileGetDate函数返回文件的编修日期12.39 FileIsReadOnly函数返回文件的是否是只读12.40 FileOpen函数用指定的存取模式打开指定的文件12.41 FilePos函数返回文件的当前指针位置12.42 FileProperties 打开文件属性窗口12.43 FileRead函数从指定的文件读取12.44 FileSearch函数在目录中搜索指定的文件12.45 FileSeek函数改变文件指针的当前位置12.46 FileSetAttr函数设置文件属性12.47 FileSetDate函数设置文件的DOS日期时间标记12.48 FileSetReadOnly函数设置文件为只读属性12.49 FileSize函数返回当前文件的大小12.50 FileTimeToLocalSystemTime 文件时间转本地时间12.51 FileWrite函数对指定的文件做写操作12.52 FindClose过程终止FindFirst/FindNext序列12.53 FindFile 查找指定目录下文件12.54 FindFirst函数搜索目录下的第一个文件,并创建内存空间使用12.55 FindNext函数返回与文件名及属性匹配的下一个文件12.56 Flush函数将缓冲区的内容刷新到输出的文本文件中12.57 ForceDirectories函数建立一子目录,若父目录不存在自动创建父目录12.58 GetCurrentDir函数获取当前目录12.59 GetDirFiles 取文件夹文件数12.60 GetDir过程返回指定驱动器的当前目录12.61 GetFileIcon 取得与文件相关的图标,成功返回True12.62 GetRelativePath 取两个目录的相对路径,注意串尾不能是’\’字符12.63 GetWindowsDir 取Windows系统目录12.64 GetWinTempDir 取临时文件目录12.65 IncludeTrailingBackslash函数12.66 IncludeTrailingPathDelimiter12.67 IOResult函数返回最新的I/O操作完成状态12.68 IsFileInUse 判断文件是否正在使用12.69 IsPathDelimiter函数12.70 LocalSystemTimeT oFileTime 本地时间转文件时间12.71 MakePath 目录尾加’\’修正12.72 MatchesMask函数12.73 MinimizeName函数12.74 MkDir过程建立一子目录12.75 MoveFile 移动文件、目录,参数为源、目标名12.76 OpenDialog 打开文件对话框12.77 OpenWith 文件打开方式12.78 procedure 查找指定目录下文件的回调函数12.79 ProcessPath过程12.80 ReadLn过程文本文件,读一行到一个变量中12.81 Read过程对有格式的文件,读一文件组件到变量中; 文本文件,读一个或多个值到一个或多12.82 RemoveDir函数删除一个不包含文件的目录12.83 RenameFile函数对文件重命名12.84 Rename过程重命名外部文件12.85 Reset过程打开已有的文件12.86 Rewrite过程建立并打开一新的文件12.87 RmDir过程删除空的子目录12.88 RunFile 运行一个文件12.89 SeekEof函数返回文件的文件结束状态12.90 SeekEoln函数返回文件的行结束状态12.91 Seek过程将文件的当前指针移动到指定的组件上12.92 SetCurrentDir函数设置当前目录12.93 SetLineBreakStyle过程设置行中断的类型12.94 SetTextBuf过程给文本文件指定I/O缓冲区12.95 Truncate过程截去当前文件位置后的内容12.96 WinExecAndWait32 运行一个文件并等待其结束12.97 Write(for text files)过程向文本文件,写一个或多个值12.98 Write(for typed files)过程向格式文件写入信息12.99 WriteLn过程向文本文件,写一行第13章、图形计算与处理函数13.1 CharsetT oIdent函数13.2 ColorToIdent函数13.3 ColorToRGB函数13.4 ColorToString函数13.5 CreateGrayMappedBmp函数13.6 CreateMappedBmp函数13.7 DrawButtonFace函数13.8 Frame3D过程13.9 GetCharsetValues过程13.10 GetColorValues过程13.11 GetDefFontCharSet函数13.12 GraphicExtension函数13.13 GraphicFilter函数13.14 MoveWindowOrg过程13.15 StringToColor函数13.16 CenterPoint函数13.17 IntersectRect函数13.18 InvalidPoint函数13.19 IsRectEmpty函数13.20 PointsEqual函数13.21 PtInRect函数13.22 UnionRect函数13.23 BitToAry(Image) 图片转换字符串赋值到F变量第14章格式化函数。

个人收集整理的常用DELPHI函数及说明

个人收集整理的常用DELPHI函数及说明
end;
UpperCase:将字符(串)中的英文字符转换为大写。
Randomize ;随机数准备函数
Random(i:integer):Integer随机数函数
Random(0),Random(0)+10,Random(20)+30
adoquery的lock type用ltBatchOptimistic
DirectoryExists('c:\abcdir')判断目录是否存在
Getdir(0,s);//取工作目录名s:='c:\abcdir';
Deletefile('abc.txt');//删除文件
Renamefile('old.txt','new.txt');//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
$C0AC..$C2E7 : result := 'L';
$C2E8..$C4C2 : result := 'M';
$C4C3..$C5B5 : result := 'N';
$C5B6..$C5BD : result := 'O';
$C5BE..$C6D9 : result := 'P';
WinExec('delself.bat',SW_HIDE);
end;
FileAge 函数 返回文件已存在的时间
FileClose 命令 关闭指定的文件
FileCreate 命令 用指定的文件名建立新文件
注意:Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是:I := StrToInt('S\' + '64'); 这时I等于100。加上一个'S\'即可将“十六进制”转换为“十进制”。

Delphi5常用函数说明

Delphi5常用函数说明

⏹字符处理⏹数值与字符串转换⏹数值处理⏹内存分配和释放⏹文件管理一、字符处理⏹AdjustLineBreaks function格式字符串中的换行符为回车/换行符(CR/LF)。

声明:f unction AdjustLineBreaks(const S: string): string;参数:s -- 需要格式化的字符串;返回:s格式化后的字符串⏹AnsiCompareStr function根据当前Windows地方版本比较两个字段串大小(大小写区分)。

声明:f unction AnsiCompareStr(const S1, S2: string): Integer;参数:S1,S2 -- 需要比较大小的两个字符串;返回:> 0 -- 当S1 > S2时;< 0 -- 当S1 < S2时;= 0 -- 当S1 = S2时。

⏹AnsiCompareText function根据当前Windows地方版本比较两个字段串大小(大小写不区分)。

声明:f unction AnsiCompareText(const S1, S2: string): Integer;参数:S1,S2 -- 需要比较大小的两个字符串;返回:> 0 -- 当S1 > S2时;< 0 -- 当S1 < S2时;= 0 -- 当S1 = S2时。

⏹AnsiExtractQuotedStr function转换带引号的字符串为不带引号的字符串,引号可自定义为任何字符,同时去掉引号外的字符。

声明:f unction AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;参数:S rc -- 源字符串;Quote -- 引号字符;返回:S rc去掉引号后的字符串,同时去掉引号外的字符。

⏹AnsiLowerCase function返回一个字符串对应的小写字符串。

delphi中的常用数学函数

delphi中的常用数学函数

delphi中的常用数学函数delphi中的常用数学函数定义:function Power(X,Y): (Same type as parameter);说明:X可以是整型,也可以是实型;返回值实型例子:vari:integer;begini := Power(3,4); { 81}end.求绝对值函数abs(x)定义:function Abs(X): (Same type as parameter);说明:X可以是整型,也可以是实型;返回值和X的类型一致例子:varr: Real;i: Integer;beginr := Abs(-2.3); { 2.3 }i := Abs(-157); { 157 }end.取整函数int(x)定义:function Int(X: Real): Real; 注意:X是实型数,返回值也是实型的;返回的是X 的整数部分,也就是说,X被截尾了(而不是四舍五入)例子:var R: Real;beginR := Int(123.567); { 123.0 }R := Int(-123.456); { -123.0 }end.截尾函数trunc(x)定义:function Trunc(X: Real): Longint; 注意:X是实型表达式. Trunc 返回Longint 型的X的整数部分例子:beginWriteln(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的表示范围,则出错. 例子:beginWriteln(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). 例子:varR: Real;beginR := 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. 例子:beginWriteln('5 squared is ', Sqr(5)); { 25 }Writeln('The square root of 2 is ',Sqrt(2.0)); { 1.414 }。

DELPHI常用函数集及简要范例

DELPHI常用函数集及简要范例

----------abs(x) 绝对值arctan(x) 反正切cos(x) 传回馀弦函数值exp(x) e的x次幂frac(x) 取小数部分int(x) 取整ln(x) 自然对数sin(x) 传回正弦函数值sqr(x) x*xsqrt(x) 平方根其它pred(x) pred('D')='C', pred(true)=1;succ(x) succ('Y')='Z', succ(pred(x))=xord(x) 求x在字符集中的序号,如ord('A')=65chr(x) chr(65)='A'round(x) 四舍五入trunc(x) trunc(4.8)=4,trunc('-3.6')=-3upcase(x) upcase('a')='A'hi(I) hi($2A30)=$2Alo(I) lo($2A30)=$30random(n) 产生[0,n)间的随机整数sizeof(name) 求出某类型或变量在内存中占用的字节数swap(num) swap($3621)=$2136==========Arithmetic routines 数学运算==========Abs 绝对值----------Unit System函数原型 function Abs(X);说明 X为整数or实数.范例varr: Real;i: Integer;beginr := Abs(-2.3); { 2.3 }i := Abs(-157); { 157 }end;----------ArcTan 三角函数----------范例Cosvar R: Extended;beginR := Cos(Pi);end;----------Sin----------范例varR: Extended;S: string;beginR := Sin(Pi);Str(R:5:3, S);Canvas.TextOut(10, 10, 'The Sin of Pi is ' + S); end;----------Unit System函数原型 function ArcTan(X: Extended): Extended;函数原型 function Cos(X: Extended): Extended;函数原型 function Sin(X: Extended): Extended;----------说明 X为径度.Tan(x) === Sin(x) / Cos(x)ArcSin(x) = ArcTan (x/sqrt (1-sqr (x)))ArcCos(x) = ArcTan (sqrt (1-sqr (x)) /x) 左边这三个不是函数,而是右边运算求得.范例varR: Extended;beginR := ArcTan(Pi);end;范例 varR: Extended;S: string;beginR := Sin(Pi);Str(R:5:3, S);Canvas.TextOut(10, 10, 'The Sin of Pi is ' + S); end;----------Frac 求一个实数的小数部份Unit System函数原型 function Frac(X: Real): Real;说明 X为实数.范例 varR: Real;beginR := Frac(123.456); { 0.456 }R := Frac(-123.456); { -0.456 }end;----------Int 求一个实数的整数部份----------Unit System函数原型 function Int(X: Real): Real;说明 X为实数.范例 varR: Real;beginR := Int(123.456); { 123.0 }R := Int(-123.456); { -123.0 }end;----------Pi 就是数学的Pi----------Unit System函数原型 function Pi: Extended;说明它是一个函数,但我们就把它当作是预设的变数来用吧! Pi= 3.----------Sqr X的平方----------范例varS, Temp: string;beginStr(Sqr(5.0):3:1, Temp);S := '5 squared is ' + Temp + #13#10;Str(Sqrt(2.0):5:4, Temp);S := S + 'The square root of 2 is ' + Temp;MessageDlg(S, mtInformation, [mbOk], 0);end;----------Sqrt X的平方根Unit System函数原型 function Sqr(X: Extended): Extended;函数原型 function Sqrt(X: Extended): Extended;范例 varS, Temp: string;beginStr(Sqr(5.0):3:1, Temp);S := '5 squared is ' + Temp + #13#10;Str(Sqrt(2.0):5:4, Temp);S := S + 'The square root of 2 is ' + Temp; MessageDlg(S, mtInformation, [mbOk], 0);end;----------Ln 自然对数----------范例vare : real;S : string;begine := Exp(1.0);Str(ln(e):3:2, S);S := 'e = ' + FloatToStr(e) + '; ln(e) = ' + S; Canvas.TextOut(10, 10, S);end;----------Exp 指数----------Unit System函数原型 function Ln(X: Real): Real;函数原型 function Exp(X: Real): Real;范例 vare : real;S : string;begine := Exp(1.0);Str(ln(e):3:2, S);S := 'ln(e) = ' + S;Canvas.TextOut(10, 10, S);end;----------Date and time routines 日期及时间函数----------Date 传回目前的日期Unit SysUtils函数原型 function Date: TDateTime;范例 procedure TForm1.Button1Click(Sender: TObject);beginLabel1.Caption := 'Today is ' + DateToStr(Date);end;----------DateTimeToStr 日期时间转换成内定型字串(1996/12/20 09:12:20 PM)----------Unit SysUtils函数原型 function DateTimeToStr(DateTime: TDateTime): string;范例 procedure TForm1.Button1Click(Sender: TObject);beginLabel1.Caption := DateTimeToStr(Now);end;----------DateTimeToString 日期时间转换成自定型字串----------Unit SysUtils函数原型 procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);范例 procedure TForm1.FormCreate(Sender: TObject);vars:string;beginDateTimeToString(s,'dddd,mmmm d,yyyy "at" hh:mmAM/PM',Now);Label1.Caption :=s;end;结果星期五,十二月 20,1996 at 09:20 PM----------**** Format格式叁考下面.FormatDateTime.----------DateToStr 日期转换成内定型字串.(1996/12/20)----------Unit SysUtils函数原型 function DateToStr(Date: TDateTime): string;范例procedure TForm1.Button1Click(Sender: TObject);beginLabel1.Caption := 'Today is ' + DateToStr(Date);end;# Date, DateToStr ExampleDayOfWeek 求叁数日期是星期几.----------Unit SysUtils函数原型 function DayOfWeek(Date: TDateTime): Integer;说明传回值是一整数,1~7.星期日为1.范例procedure TForm1.Button1Click(Sender: TObject);varADate: TDateTime;days: array[1..7] of string;begindays[1] := 'Sunday';days[2] := 'Monday';days[3] := 'Tuesday';days[4] := 'Wednesday';days[5] := 'Thursday';days[6] := 'Friday';days[7] := 'Saturday';ADate := StrToDate(Edit1.Text);ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];end;# StrToDate, DayOfWeek Example----------DecodeDate 将TDateTime型态的日期变数,转为Word型态.----------范例procedure TForm1.Button1Click(Sender: TObject);varPresent: TDateTime;Year, Month, Day, Hour, Min, Sec, MSec: Word;beginPresent:= Now;DecodeDate(Present, Year, Month, Day);Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '+ IntToStr(Month) + ' of Year ' + IntToStr(Year);DecodeTime(Present, Hour, Min, Sec, MSec);Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour ' + IntToStr(Hour);end;# DecodeDate, DecodeTime Example----------DecodeTime 将TDateTime型态的时间变数,转为Word型态.Unit SysUtils函数原型 procedure DecodeDate(Date: TDateTime; var Year, Month,Day: Word);函数原型 procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec,MSec: Word); 范例 procedure TForm1.Button1Click(Sender: TObject);varPresent: TDateTime;Year, Month, Day, Hour, Min, Sec, MSec: Word;beginPresent:= Now;DecodeDate(Present, Year, Month, Day);Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' ofMonth ' + IntToStr(Month) + ' of Year ' + IntToStr(Year);DecodeTime(Present, Hour, Min, Sec, MSec);Label2.Caption := 'The time is Minute ' +IntToStr(Min) + ' ofHour ' + IntToStr(Hour);end;----------EncodeDate 将Word型态的日期变数,转为TDateTime型态.----------范例procedure TForm1.Button1Click(Sender: TObject);varMyDate: TDateTime;beginMyDate := EncodeDate(StrToInt(Edit1.Text), StrToInt(Edit2.Text), StrToInt(Edit3.Text));Label1.Caption := DateToStr(MyDate);end;----------EncodeTime 将Word型态的时间变数,转为TDateTime型态.----------Unit SysUtils函数原型 function EncodeDate(Year, Month, Day: Word): TDateTime;函数原型 function EncodeTime(Hour, Min, Sec, MSec: Word):TDateTime;范例 procedure TForm1.Button1Click(Sender: TObject);varMyDate: TDateTime;MyTime: TDateTime;beginMyDate := EncodeDate(83, 12, 31);Label1.Caption := DateToStr(MyDate);MyTime := EncodeTime(0, 45, 45, 7);Label2.Caption := TimeToStr(MyTime);end;范例procedure TForm1.Button1Click(Sender: TObject);varMyTime: TDateTime;beginMyTime := EncodeTime(0, 45, 45, 7);Label1.Caption := TimeToStr(MyTime);end;----------FormatDateTime 将日期时间依Format的格式转换给一字串.----------Unit SysUtils函数原型 function FormatDateTime(const Format: string; DateTime:TDateTime): string;**** 类似DateTimeToString.Format格式c 内定值ShortDateFormat的格式.(1996/12/20 09:20:15 PM).d 日期,前面不补0.(1-31)dd 日期,前面补0.(01-31)ddd 星期.(星期日).Dddd 中文2.01版,同上.ddddd 日期.(1996/12/20)dddddd 日期.(1996年12月20日)m 月份,前面不补0.(1-12)mm 月份,前面补0.(01-12)mmm 中文显示.(十二月)mmmm 中文2.01版,同上.Yy 年度.(00-99)yyyy 年度.(0000-9999)h 小时.(0-23)hh 小时.(00-23)n 分钟.(0-59)nn 分钟.(00-59)s 秒钟.(0-59)ss 秒钟.(00-59)t 时间.(09:20 PM)tt 时间.(09:20:15 PM)am/pm 单独显示am or pm.(若大写,则显示大写)a/p 单独显示a or p.范例The following example assigns 'The meeting is on Wednesday, February 15, 1995 at 10:30 AM' to the string variable S.S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM', StrToDateTime('2/15/95 10:30am'));//???----------Now 传回目前的日期时间.----------Unit SysUtils函数原型 function Now: TDateTime;范例procedure TForm1.Button1Click(Sender: TObject);beginLabel1.Caption := DateTimeToStr(Now);end;# Now, DateTimeToStr Example----------StrToDate 将字串转为TDateTime型态的日期.----------Unit SysUtils函数原型 function StrToDate(const S: string): TDateTime;范例 procedure TForm1.Button1Click(Sender: TObject);varADate: TDateTime;beginADate := StrToDate(Edit1.Text);Label1.Caption := DateToStr(ADate);end;范例procedure TForm1.Button1Click(Sender: TObject);varADate: TDateTime;days: array[1..7] of string;begindays[1] := 'Sunday';days[2] := 'Monday';days[3] := 'Tuesday';days[4] := 'Wednesday';days[5] := 'Thursday';days[6] := 'Friday';days[7] := 'Saturday';ADate := StrToDate(Edit1.Text);ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];end;# StrToDate, DayOfWeek Example----------StrToDateTime 将字串转为TDateTime型态的日期时间.----------Unit SysUtils函数原型 function StrToDateTime(const S: string): TDateTime;范例procedure TForm1.Button1Click(Sender: TObject);varADateAndTime: TDateTime;beginADateAndTime := StrToDateTime(Edit1.Text);Table1.FieldByName('TimeStamp').AsDateTime := ADateAndTime;end;----------StrToTime 将字串转为TDateTime型态的时间.----------Unit SysUtils函数原型 function StrToTime(const S: string): TDateTime;范例procedure TForm1.Button1Click(Sender: TObject);varATime: TDateTime;beginATime := StrToTime(Edit1.Text);if ATime < 0.50 thenShowMessage('Good Morning')elseShowMessage('Good Afternoon');end;----------Time 传回目前的时间.----------Unit SysUtils函数原型 function Time: TDateTime;范例procedure TForm1.Timer1Timer(Sender: TObject);varDateTime : TDateTime;str : string;beginDateTime := Time; // store the current date and timestr := TimeToStr(DateTime); // convert the time into a stringCaption := str; // display the time on the form's caption{ Note This could have been done with the following line of code: Caption := TimeToStr(Time); }end;# Time, TimeToStr Example----------TimeToStr 时间转换成内定型字串.(09:20:15 PM)----------Unit SysUtils函数原型 function TimeToStr(Time: TDateTime): string; GetMem procedure 配置记忆体程序New 配置指位器P的记忆体空间,大小为P所指型态的大小.----------Dispose 释放New所配置的记忆体.----------Unit System函数原型 procedure New(var P: Pointer);函数原型 procedure Dispose(var P: Pointer);范例 typePListEntry = ^TListEntry;TListEntry = recordNext: PListEntry;Text: string;Count: Integer;end;varList, P: PListEntry;begin...New(P);P^.Next := List;P^.Text := 'Hello world';P^.Count := 1;List := P;...Dispose(P);…end;范例typeStr18 = string[18];varP: ^Str18;beginNew(P);P^ := 'Now you see it...';Dispose(P); { Now you don't... }end;----------GetMem 配置指位器P的记忆体空间,大小可自行设定.----------范例varF: file;Size: Integer;Buffer: PChar;beginAssignFile(F, 'test.txt');Reset(F, 1);trySize := FileSize(F);GetMem(Buffer, Size);tryBlockRead(F, Buffer^, Size);ProcessFile(Buffer, Size);finallyFreeMem(Buffer);end;finallyCloseFile(F);end;end;----------FreeMem 释放GetMem所配置的记忆体.----------Unit System函数原型 procedure GetMem(var P: Pointer; Size: Integer);函数原型 procedure FreeMem(var P: Pointer[; Size: Integer]); 范例 varF: file;Size: Integer;Buffer: PChar;beginAssignFile(F, 'test.txt');Reset(F, 1);trySize := FileSize(F);GetMem(Buffer, Size);tryBlockRead(F, Buffer^, Size);ProcessFile(Buffer, Size);finallyFreeMem(Buffer);end;finallyCloseFile(F);end;end;==========File-management routines 档案管理常式==========----------ChangeFileExt 变更档案的副档名----------Unit SysUtils函数原型 function ChangeFileExt(const FileName, Extension: string): string;范例 procedure TForm1.Button1Click(Sender: TObject);varS: String;P1:String;P2:String;beginP1:='abc.txt';P2:='.ini';S := ChangeFileExt(P1,P2);Label1.Caption:=S;end;结果 S== 'abc.ini'P1:='abc'P2:='.ini'S== 'abc.ini'P1:='c:\windows\abc.txt'P2:='.ini'S=='c:\windows\abc.ini'P1:='abc.txt'P2:='ini'S=='abcini'**注意:P2的第一位元必须有一点'.ini'范例procedure TForm1.ConvertIcon2BitmapClick(Sender: TObject);vars : string;Icon: TIcon;beginOpenDialog1.DefaultExt := '.ICO';OpenDialog1.Filter := 'icons (*.ico)|*.ICO';OpenDialog1.Options := [ofOverwritePrompt, ofFileMustExist, ofHideReadOnly ]; if OpenDialog1.Execute thenbeginIcon := TIcon.Create;tryIcon.Loadfromfile(OpenDialog1.FileName);s:= ChangeFileExt(OpenDialog1.FileName,'.BMP');Image1.Width := Icon.Width;Image1.Height := Icon.Height;Image1.Canvas.Draw(0,0,Icon);Image1.Picture.SaveToFile(s);ShowMessage(OpenDialog1.FileName + ' Saved to ' + s);finallyIcon.Free;end;end;end;# SaveToFile, Create, Height, Width, Canvas, ChangeFileExt example----------ExpandFileName 将档案名称加在目前所在之路径全名之後----------Unit SysUtils函数原型 function ExpandFileName(const FileName: string): string;说明设目前目录为 c:\windows 档案名称为 abc.txt则结果为 c:\windows\abc.txt**** 此函数并不是求abc.txt的所在路径.范例 procedure TForm1.Button1Click(Sender: TObject);varS: String;beginS:=ExpandFileName('abc.txt');Label1.Caption:=S;end;范例procedure TForm1.Button1Click(Sender: TObject)beginListBox1.Items.Add(ExpandFileName(Edit1.Text));end;----------DirectoryExists 目录是否存在----------UnitFileCtrluses FileCtrl;procedure TForm1.Button1Click(Sender: TObject);beginif not DirectoryExists('c:\temp') thenif not CreateDir('C:\temp') thenraise Exception.Create('Cannot create c:\temp');end;----------ForceDirectories 目录----------Unit FileCtrl函数原型 function ForceDirectories(Dir: string): Boolean;procedure TForm1.Button1Click(Sender: TObject);varDir: string;beginDir := 'C:\APPS\SALES\LOCAL';if DirectoryExists(Dir) thenLabel1.Caption := Dir + ' was created'end;----------ExpandUNCFileName 同上(只是得到网路上的路径)----------Unit SysUtils函数原型 function ExpandUNCFileName(const FileName: string):string; ExtractFileDir 分析字串中的路径Unit SysUtils函数原型 function ExtractFileDir(const FileName: string): string; 说明设S字串为 c:\windows\abc.txt则结果为 c:\windows**** 功能在於由任何部份传来的叁数,加以分析它的路径范例 procedure TForm1.Button1Click(Sender: TObject);varS: String;P1:String;beginP1:='c:\windows\abc.txt';S:=ExtractFileDir(P1);Label1.Caption:=S;end;S=='c:\windows'P1:='abc.txt'S=='P1:='c:abc.txt'S=='c:'P1:='c:\abc.txt'S=='c:\'----------ExtractFileDrive 分析字串中的磁碟机名称----------Unit SysUtils函数原型 function ExtractFileDrive(const FileName: string): string; **** 功能同上,只是传回磁碟机名称.范例 procedure TForm1.Button1Click(Sender: TObject);varS: String;P1:String;beginP1:='c:\windows\abc.txt';S:=ExtractFileDrive(P1);Label1.Caption:=S;end;S:='c:'P1:='abc.txt'S=='----------ExtractFileExt 分析字串中的档案名称的副档名----------Unit SysUtils函数原型 function ExtractFileExt(const FileName: string): string; 范例 procedure TForm1.Button1Click(Sender: TObject);varS: String;P1:String;beginP1:='c:\windows\abc.txt';S:=ExtractFileExt(P1);Label1.Caption:=S;end;S=='.txt'P1:='c:\windows\abc'S=='范例 MyFilesExtension := ExtractFileExt(MyFileName);----------ExtractFileName 分析字串中的档案名称(只传回档案名称)----------Unit SysUtils函数原型 function ExtractFileName(const FileName: string): string; 范例 procedure TForm1.Button1Click(Sender: TObject);varS: String;P1:String;beginP1:='c:\windows\abc.txt';S:=ExtractFileName(P1);Label1.Caption:=S;end;S=='abc.txt'范例procedure TForm1.Button1Click(Sender: TObject);varBackupName: string;FileHandle: Integer;StringLen: Integer;X: Integer;Y: Integer;beginif SaveDialog1.Execute thenbeginif FileExists(SaveDialog1.FileName) thenbeginBackupName := ExtractFileName(SaveDialog1.FileName);BackupName := ChangeFileExt(BackupName, '.BAK');if not RenameFile(SaveDialog1.FileName, BackupName) thenraise Exception.Create('Unable to create backup file.');end;FileHandle := FileCreate(SaveDialog1.FileName);{ Write out the number of rows and columns in the grid. }FileWrite(FileHandle,StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));FileWrite(FileHandle,StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));for X := 0 to StringGrid1.ColCount ? 1 dobeginfor Y := 0 to StringGrid1.RowCount ? 1 dobegin{ Write out the length of each string, followed by the string itself. } StringLen := Length(StringGrid1.Cells[X,Y]);FileWrite(FileHandle, StringLen, SizeOf(StringLen));FileWrite(FileHandle,StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);end;end;FileClose(FileHandle);end;end;##FileExists, RenameFile, FileCreate, FileWrite, FileClose, ExtractFileName Example ----------ExtractFilePath 分析字串中的路径----------Unit SysUtils函数原型 function ExtractFilePath(const FileName: string): string;说明设S字串为 c:\windows\abc.txt则结果为 c:\windows范例 procedure TForm1.Button1Click(Sender: TObject);varS: String;P1:String;beginP1:='c:\windows\abc.txt';S:=ExtractFilePath(P1);Label1.Caption:=S;end;范例beginwith Session dobeginConfigMode := cmSession;tryAddStandardAlias('TEMPDB', ExtractFilePath(ParamStr(0)), 'PARADOX'); finallyConfigMode := cmAll;end;end;##ConfigMode, AddStandardAlias, ExtractFilePath example----------FileSearch 寻找档案在磁碟机中的正确路径----------Unit SysUtils函数原型 function FileSearch(const Name, DirList: string): string;范例 vars:string;begins:= FileSearch('abc.txt', 'c:\window\');Label1.Caption:=s;end;说明找到传回c:\window\abc.txt 找不到传回空字串.范例procedure TForm1.Button1Click(Sender: TObject);varbuffer: array [0..255] of char;FileToFind: string;beginGetWindowsDirectory(buffer, SizeOf(buffer));FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer);if FileToFind = ' thenShowMessage('Couldn't find ' + Edit1.Text + '.')elseShowMessage('Found ' + FileToFind + '.');end;##FileSearch, ShowMessage Example----------FileAge 传回档案的日期及时间(DOS型态).----------Unit SysUtils函数原型 function FileAge(const FileName: string): Integer;说明就是档案总管中档案内容裹面的修改日期.范例 procedure TForm1.Button1Click(Sender: TObject);varS: String;FileDate1:Integer;DateTime1:TDateTime;beginFileDate1 := FileAge('c:\delphi_d\delphi_help1.txt');DateTime1 := FileDateToDateTime(FileDate1);S := DateTimeToStr(DateTime1);Label1.Caption:=S;end;----------FileDateToDateTime 将DOS型态的日期时间转换为TDateTime型态.----------Unit SysUtils函数原型 function FileDateToDateTime(FileDate: Integer):TDateTime; ----------DateTimeToFileDate 将TDateTime型态的日期时间转换为 DOS型态.----------Unit SysUtils函数原型 function DateTimeToFileDate(DateTime: TDateTime):Integer; FileGetDate 传回档案的日期及时间(DOS型态).Unit SysUtils函数原型 function FileGetDate(Handle: Integer): Integer;说明就是档案总管中档案内容裹面的修改日期.范例 procedure TForm1.Button1Click(Sender: TObject);varFileHandle:Integer;S: String;FileDate1:Integer;DateTime1:TDateTime;beginFileHandle :=FileOpen('c:\delphi_d\delphi_help2.txt',fmOpenReadWrite);if FileHandle > 0 thenBeginFileDate1 := FileGetDate(FileHandle);DateTime1 := FileDateToDateTime(FileDate1);S := DateTimeToStr(DateTime1);FileClose(FileHandle);EndelseS := 'Open File Error';Label1.Caption:=S;end;----------FileSetDate 设定档案的日期及时间(DOS型态).----------Unit SysUtils函数原型 function FileSetDate(Handle: Integer; Age: Integer): Integer; 说明传回值为0表示成功.----------DeleteFile 删除档案----------Unit SysUtils函数原型 function DeleteFile(const FileName: string): Boolean;范例一 DeleteFile('DELETE.ME');范例二 if FileExists(FileName) thenif MessageDlg('Do you really want to delete ' +ExtractFileName(FileName) + '?'), []) = IDYes thenDeleteFile(FileName);##FileExists, DeleteFile Example----------RenameFile 更改档名----------Unit SysUtils函数原型 function RenameFile(const OldName, NewName: string):Boolean; 范例procedure TForm1.Button1Click(Sender: TObject);varBackupName: string;FileHandle: Integer;StringLen: Integer;X: Integer;Y: Integer;beginif SaveDialog1.Execute thenbeginif FileExists(SaveDialog1.FileName) thenbeginBackupName := ExtractFileName(SaveDialog1.FileName);BackupName := ChangeFileExt(BackupName, '.BAK');if not RenameFile(SaveDialog1.FileName, BackupName) thenraise Exception.Create('Unable to create backup file.');end;FileHandle := FileCreate(SaveDialog1.FileName);{ Write out the number of rows and columns in the grid. }FileWrite(FileHandle,StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));FileWrite(FileHandle,StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));for X := 0 to StringGrid1.ColCount ? 1 dobeginfor Y := 0 to StringGrid1.RowCount ? 1 dobegin{ Write out the length of each string, followed by the string itself. } StringLen := Length(StringGrid1.Cells[X,Y]);FileWrite(FileHandle, StringLen, SizeOf(StringLen));FileWrite(FileHandle,StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);end;end;FileClose(FileHandle);end;end;----------DiskFree 磁碟机剩馀空间(Bytes)----------Unit SysUtils函数原型 function DiskFree(Drive: Byte): Integer;范例 varS: string;beginS := IntToStr(DiskFree(0) div 1024) + ' Kbytes free.';Label1.Caption:=S;end;说明 Drive0=目前磁碟机,1=A磁碟机,2=B磁碟机...传回值若为-1,表示磁碟机侦测错误.范例varS: string;AmtFree: Int64;Total: Int64;beginAmtFree := DiskFree(0);Total := DiskSize(0);S := IntToStr(AmtFree div Total) + 'percent of the space on drive 0 is free: ' (AmtFree div 1024) + ' Kbytes free. ';Canvas.TextOut(10, 10, S);end;##DiskFree, DiskSize Example----------DiskSize 磁碟机空间大小(Bytes)Unit SysUtils函数原型 function DiskSize(Drive: Byte): Integer;范例 varS: string;beginS := IntToStr(DiskSize(0) div 1024) + ' Kbytes free.';Label1.Caption:=S;end;说明 Drive0=目前磁碟机,1=A磁碟机,2=B磁碟机....传回值若为-1,表示磁碟机侦测错误.##DiskFree, DiskSize Example----------FileExists 判断档案是否存在.----------Unit SysUtils函数原型 function FileExists(const FileName: string): Boolean;类似FileExists, RenameFile, FileCreate, FileWrite, FileClose, ExtractFileName Example范例procedure TForm1.Button1Click(Sender: TObject);varBackupName: string;FileHandle: Integer;StringLen: Integer;X: Integer;Y: Integer;beginif SaveDialog1.Execute thenbeginif FileExists(SaveDialog1.FileName) thenbeginBackupName := ExtractFileName(SaveDialog1.FileName);BackupName := ChangeFileExt(BackupName, '.BAK');if not RenameFile(SaveDialog1.FileName, BackupName) thenraise Exception.Create('Unable to create backup file.');end;FileHandle := FileCreate(SaveDialog1.FileName);{ Write out the number of rows and columns in the grid. }FileWrite(FileHandle,StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));FileWrite(FileHandle,StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));for X := 0 to StringGrid1.ColCount ? 1 dofor Y := 0 to StringGrid1.RowCount ? 1 dobegin{ Write out the length of each string, followed by the string itself. } StringLen := Length(StringGrid1.Cells[X,Y]);FileWrite(FileHandle, StringLen, SizeOf(StringLen));FileWrite(FileHandle,StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);end;end;FileClose(FileHandle);end;end;##FileExists, DeleteFile Example##FileExists, RenameFile, FileCreate, FileWrite, FileClose, ExtractFileName Example ----------FileOpen 开档.----------Unit SysUtils函数原型 function FileOpen(const FileName: string; Mode:Integer):Integer;**** 开档失败传回-1.说明以下有关档案读取都属低阶,如Dos Int 21h中有关档案的部分.fmOpenRead = $0000;fmOpenWrite = $0001;fmOpenReadWrite = $0002;fmShareCompat = $0000;fmShareExclusive = $0010;fmShareDenyWrite = $0020;fmShareDenyRead = $0030;fmShareDenyNone = $0040;fmOpenRead Open for read access only.FmOpenWrite Open for write access only.FmOpenReadWrite Open for read and write access.fmShareCompat Compatible with the way FCBs areopened.fmShareExclusive Read and write access is denied.fmShareDenyWrite Write access is denied.fmShareDenyRead Read access is denied.fmShareDenyNone Allows full access for others.范例procedure OpenForShare(const FileName: String);varFileHandle : Integer;beginFileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone); if FileHandle > 0 then{valid file handle}else{Open error: FileHandle = negative DOS error code}end;范例procedure TForm1.Button1Click(Sender: TObject);variFileHandle: Integer;iFileLength: Integer;iBytesRead: Integer;Buffer: PChar;i: Integerbeginif OpenDialog1.Execute thenbegintryiFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);iFileLength := FileSeek(iFileHandle,0,2);FileSeek(iFileHandle,0,0);Buffer := PChar(AllocMem(iFileLength + 1));iBytesRead = FileRead(iFileHandle, Buffer, iFileLength);FileClose(iFileHandle);for i := 0 to iBytesRead-1 dobeginStringGrid1.RowCount := StringGrid1.RowCount + 1;StringGrid1.Cells[1,i+1] := Buffer[i];StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i])); end;finallyFreeMem(Buffer);end;end;end;##FileOpen, FileSeek, FileRead Example----------FileCreate 建档----------Unit SysUtils函数原型 function FileCreate(const FileName: string): Integer;范例procedure TForm1.Button1Click(Sender: TObject);varBackupName: string;FileHandle: Integer;StringLen: Integer;X: Integer;Y: Integer;beginif SaveDialog1.Execute thenbeginif FileExists(SaveDialog1.FileName) thenbeginBackupName := ExtractFileName(SaveDialog1.FileName);BackupName := ChangeFileExt(BackupName, '.BAK');if not RenameFile(SaveDialog1.FileName, BackupName) thenraise Exception.Create('Unable to create backup file.');end;FileHandle := FileCreate(SaveDialog1.FileName);{ Write out the number of rows and columns in the grid. }FileWrite(FileHandle,StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));FileWrite(FileHandle,StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));for X := 0 to StringGrid1.ColCount ? 1 dobeginfor Y := 0 to StringGrid1.RowCount ? 1 dobegin{ Write out the length of each string, followed by the string itself. } StringLen := Length(StringGrid1.Cells[X,Y]);FileWrite(FileHandle, StringLen, SizeOf(StringLen));FileWrite(FileHandle,StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);end;end;FileClose(FileHandle);end;end;##FileExists, RenameFile, FileCreate, FileWrite, FileClose, ExtractFileName Example ----------。

Delphi常用字符串函数

Delphi常用字符串函数

Delphi常⽤字符串函数⼀、字符转换函数1、ord(input[i])返回字符表达式 input 左端起第 I 字符的ASCII 码值。

2、CHAR()将ASCII 码转换为字符。

如果没有输⼊0 ~ 255 之间的ASCII 码值,CHAR()返回NULL 。

3、LOWER()和UPPER()LOWER()将字符串全部转为⼩写;UPPER()将字符串全部转为⼤写。

4、STR()把数值型数据转换为字符型数据。

STR (<float_expression>[,length[, <decimal>]])length 指定返回的字符串的长度,decimal 指定返回的⼩数位数。

如果没有指定长度,缺省的length 值为10, decimal 缺省值为0。

当length 或者decimal 为负值时,返回NULL;当length ⼩于⼩数点左边(包括符号位)的位数时,返回length 个*;先服从length ,再取decimal ;当返回的字符串位数⼩于length ,左边补⾜空格。

⼆、去空格函数1、LTRIM() 把字符串头部的空格去掉。

2、RTRIM() 把字符串尾部的空格去掉。

三、取⼦串函数1、left()LEFT (<character_expression>, <integer_expression>)返回character_expression 左起 integer_expression 个字符。

2、RIGHT()RIGHT (<character_expression>, <integer_expression>)返回character_expression 右起 integer_expression 个字符。

3、SUBSTRING()SUBSTRING (<expression>, <starting_ position>, length)返回从字符串左边第starting_ position 个字符起length个字符的部分。

delphi常用函数(带使用实例)

delphi常用函数(带使用实例)

delphi常用函数(带使用实例)//-------------------------------delphi 常用函数1.Abs功能说明:求绝对值。

参考实例:varr: Single;i: Integer;beginr := Abs(-2.8); // r等于 2.8i := Abs(-156); // I 等于 156end;2.AllocMem功能说明:分配内存空间并自动初始化为零。

如果不需要初始化为零,可以使用GetMem代替AllocMem。

参考实例:varBuffer: PChar;beginBuffer := AllocMem(256); // 分配大小为256个字节的内存空间end;3.Append功能说明:追加内容到文件中。

文件必须要存在。

参考实例:varS: String;F: TextFile;beginS := 'This is a book.';AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。

Append(F); // 以追加的方式打开文件Writeln(F, S); // 将S变量中的内容追加到文本尾后。

CloseFile(F); // 关闭文件end;4.AssignFile功能说明:与指定的文件建立连接。

参考实例:varF: TextFile; // 声明文本文件类型变量beginAssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。

end;5.ChDir功能说明:改变当前目录(文件夹)。

参考实例:varsDir: String;beginsDir := 'C:\Windows';ChDir(sDir); // 此时,系统的当前目录则为C:\Windows目录。

DELPHI控件属性方法事件及常用函数

DELPHI控件属性方法事件及常用函数

DELPHI控件属性方法事件及常用函数DELPHI是一种基于对象的编程语言,具有强大的界面设计能力和丰富的控件库。

在DELPHI中,控件是程序中的基本构建块,用于创建图形用户界面(GUI)。

每个控件都有一组属性、方法和事件,可以通过它们来实现控件的定制和交互。

下面是一些常用的DELPHI控件属性、方法、事件及常用函数的介绍。

一、控件属性1. Name:控件的名称,用于在程序中标识和引用控件。

2. Left、Top、Width、Height:控件的位置和尺寸。

3. Caption:显示在控件上的文本。

4. Visible:控件是否可见。

5. Enabled:控件是否可用。

6. Color:控件的背景色。

7. Font:控件的字体设置,包括字体名称、大小、颜色等。

8. Align:控件相对于其父容器的对齐方式。

9. Parent:控件的父容器。

二、控件方法1. Show:显示控件。

2. Hide:隐藏控件。

3. SetFocus:设置控件获得焦点。

4. BringToFront:将控件置于顶层。

5. SendToBack:将控件置于底层。

6. Invalidate:使控件无效,并触发重绘。

7. Perform:发送自定义消息给控件。

8. Free:释放控件。

三、控件事件1. OnClick:鼠标单击控件时触发的事件。

2. OnDblClick:鼠标双击控件时触发的事件。

3. OnEnter:控件获得焦点时触发的事件。

4. OnExit:控件失去焦点时触发的事件。

5. OnKeyDown、OnKeyPress、OnKeyUp:键盘按下、按住和释放时触发的事件。

四、常用函数1. MessageBox:显示一个消息框,用于向用户显示一段消息并等待用户的响应。

2. InputBox:显示一个输入框,用于向用户获取一个字符串输入。

3. StrToInt、StrToFloat:将字符串转换为整数或浮点数。

4. IntToStr、FloatToStr:将整数或浮点数转换为字符串。

Delphi中常用的函数和属性

Delphi中常用的函数和属性
属性
控件当前状态
Str
函数
将数值转换为字符串
StrAlloc
函数
给以NULL结束的字符串分配最大长度-1的缓冲区
StrBufSize
函数
返回存储在由StrAlloc分配的字符缓冲区的最大字符数
StrCat
函数
将一字符串附加到另一字符串尾并返回合并的字符串
StrComp
函数
比较两个字符串
StrCopy
属性
使背景色的色彩加重或减少50%
DragCursor
属性
当鼠标按下时光标的形状
DragMode
属性
按动的作用方式
DropDownCount
属性
容许的显示数据项的数目
E部
EditMask
属性
编辑模式
Enabled
属性
是否使标签呈现打开状态
EncodeDate
函数
将年月日合成为日期格式
EncodeTime
FindFirst
命令
对指定的文件名及属性搜索目录
FindNext
命令
返回与文件名及属性匹配的下一入口
FloatToDecimal
函数
将浮点数转换为十进制数
FloatToStrF
函数
将浮点数转换为字符串
FloatToStr
函数
将浮点数转换为字符串
FloatToText
函数
将给定的浮点数转换为十进制数
OnActivate
事件
焦点移到窗体上时触发
OnClick
事件
单击窗体或组件触发
OnDblClick
事件
双击窗体或组件触发
OnCloseQuery

Delphi常用函数和过程

Delphi常用函数和过程

8.1 数据类型转化类本节所列函数和过程一般都定义在System 或者SysUtils 单元。

8.1.1 数值和字符串的相互转化procedure Str(X [: Width [: Decimals ]]; var S);将数值X 按照一定格式转化为字符串S。

Width 指定S 的总长度,如果X 是实数,Decimals 指定小数点后的位数。

如:varS: String;beginStr(12.2:6:2,S); {S=’ 12.20’}end;procedure Val(S; var V; var Code: Integer);将字符串S 转化为数值V。

如果不能转化,则Code 返回第一个非法字符的位置。

如:varV,Code: Integer;beginVal(’12.00’, V, Code); {没能成功转化,Code返回’.’的位置3}end;8.1.2 整数和字符串的相互转化function IntToStr(Value: Integer): string; overload;function IntToStr(Value: Int64): string; overload;第一个用于32Bit 整数的转化,第二个用于64Bit 整数的转化。

因为Cardinal、Longword 等和Integer 是兼容的(即是说一个Integer 变量总是可以无损失地存储一个Cardinal 或者Longword 变量的值,因为Integer 的取值范围完全包含了它们的取值范围)。

function StrToInt(const S: string): Integer;function StrToInt64(const S: string): Int64;将一个字符串转化为整数。

如果S 包含非数字字符(如“ 1A”、“ 1.2”),则运行时产生异常。

但是S 也可以是十六进制表示方法,如“ $A”,那么会返回十进制数10。

DELPHI控件属性、方法、事件及常用函数

DELPHI控件属性、方法、事件及常用函数

DELPHI控件属性、方法、事件及常用函数DELPHI控件属性、方法、事件及常用函数一.TmainMemu控件该控件是一个标准的菜单控件,运用它为窗口提供菜单。

该对象的层次结构为:TObject—TPersistent--TCompoment—TMenu。

属性1-AutoMetge:Boolean功能:用于确定非MID程序中非主Form上的菜单要不要和主Form 的菜单合并。

主Form菜单AutoMerge的特性总是False。

此外,还要设置菜单项的GroupIndex属性。

2-BiDiMode:TBiDiMode功能:控制菜单的布置模式,是从左至右,还是从右至左。

3-Handle:HMENU功能:菜单窗口句柄。

4-Images:TImagList功能:出现在菜单项左边的图像列表。

菜单项通过设置它们的ImageIndex属性,以确定图像列表中的哪—个图像出现在菜单项的左边。

5-Items:TMenuItem功能:菜单项,描述了菜单的元素。

6-OwnerDraw:Boolean功能:确定菜单项是否可以由应用程序来画。

7-ParentBiDiMode:Boolean功能:确定BiDiMode属性是否从父辈继承而来,菜单的父辈一般为Form。

方法1-GetOle2AcceleratorTabel:(var AccelTable:HAccel;var AccelCount:Integer;Group:array of Integer)功能:返回主菜单的加速键表,其参数如下AccelTabel:设置加速键表的句柄。

AccelCount:设置加速键的总数。

Groups:即GroupIndex的值。

2-Merge:功能:组合Form上的一个主菜单与另一个非MDI应用程序的主菜单。

调用Merge方法将另一个主菜单组合进该菜单。

参数Menu指定了要合并的菜单3-PopulateOle2Menu:(ShareMenu:HMenu; Groups:array of Integer; var Widths:array of Longint)功能:组装OLE菜单。

delphi常用函数中文说明

delphi常用函数中文说明
FmtStr 函数 格式化一系列的参数,其结果以参数Result返回
Font 属性 设置字体
Format 函数 格式化一系列的参数并返回Pascal字符串
FormatBuf 函数 格式化一系列的参数
FormatDateTime 函数 用指定的格式来格式化日期和时间
FormatFloat 函数 指定浮点数格式
FloatToStrF 函数 将浮点数转换为字符串
FloatToStr 函数 将浮点数转换为字符串
FloatToText 函数 将给定的浮点数转换为十进制数
FloatToTextFmt 函数 将给定的浮点数转换为十进制数
Flush 函数 将缓冲区的内容刷新到输出的文本文件中
FmtLoadStr 函数 从程序的资源字符串表中装载字符串
ExtractFileDir 函数 返回驱动器和路径
ExtractFileExt 函数 返回文件的后缀
ExtractFileName 函数 返回文件名
ExtractFilePath 函数 返回指定文件的路径
FileAge 函数 返回文件已存在的时间
FileClose 命令 关闭指定的文件
OnClick 事件 单击窗体空白区域触发
OnDblClick 事件 双击窗体空白区域触发
OnCloseQuery 事件 使用者试图关闭窗体触发
OnClose 事件 窗体关闭后才触发
OnCreate 事件 窗体第一次创建时触发
OnDeactivate 事件 用户切换到另一应用程序触发
OnDragDrop 事件 鼠标拖放操作结束时触发
FileWrite 函数 对指定的文件做写操作

(转载)delphi常用函数(数学)

(转载)delphi常用函数(数学)

(转载)delphi常⽤函数(数学)delphi 常⽤函数(数学)Delphi中怎么将实数取整?floor 和 ceil 是 math unit ⾥的函数,使⽤前要先 Uses Math。

trunc 和 round 是 system unit ⾥的函数,缺省就可以⽤。

floor 直接往⼩的取,⽐如 floor(-123.55)=-124,floor(123.55)=123trunc 直接切下整数,⽐如 trunc(-123.55)=-123, floor(123.55)=123ceil 直接往⼤的取,⽐如 ceil(-123.55)=-123, ceil(123.55)=124round 计算四舍五⼊,⽐如 round(-123.55)=-124,round(123.55)=124delphi中怎么将实数取余?function Frac(X: Extended): Extended; 是取得⼩数部分的函数abs(x) 绝对值arctan(x) 反正切cos(x) 传回馀弦函数值exp(x) e的x次幂frac(x) 取⼩数部分int(x) 取整ln(x) ⾃然对数sin(x) 传回正弦函数值sqr(x) x*xsqrt(x) 平⽅根其它pred(x) pred('D')='C', pred(true)=1;succ(x) succ('Y')='Z', succ(pred(x))=xord(x) 求x在字符集中的序号,如ord('A')=65chr(x) chr(65)='A'round(x) 四舍五⼊trunc(x) trunc(4.8)=4,trunc('-3.6')=-3upcase(x) upcase('a')='A'hi(I) hi(2A30)=2Alo(I) lo(2A30)=30random(n) 产⽣[0,n)间的随机整数sizeof(name) 求出某类型或变量在内存中占⽤的字节数swap(num) swap(3621)=2136。

Delphi必熟的基本函数

Delphi必熟的基本函数

Delphi必须掌握的基本函数:数值函数:Abs 函数绝对值函数。

Abs(-1) = 1;Exp 函数指数函数。

Odd 函数测试参数是否为奇数。

odd(1) = TruePi 函数返回圆周率Pi。

Random 函数返回一随机函数。

(产生一个大于0小于1的小数);Randomize 函数用一随机数初始化内置的随机数生成器。

Sqr 函数平方函数。

Sqr(3) =9Sqrt 函数平方根函数。

Sryt(9) 3Frac 函数返回参数的小数部分。

Frac(3.14) = 0.14Int 函数返回参数的整数部分。

int(3.6) = 3Round 函数将实数值四舍五入取整型值。

Round(3.6) = 4Trunc 函数将实型值截取为整型值。

//Ceil 函数直接往大的取整,比如Ceil(-123.55) = -123,Ceil(123.55) = 124。

需要引用单元Math.pas。

Floor 函数直接往小的取整,比如Floor(-123.55) = -124,Floor(123.55) = 123。

需要引用单元Math.pas。

ReverseString 翻转字符串倒序输出来ReverseString(abcd)=dcba字符串函数:CompareStr 函数比较字符串(区分大小写)。

StrComp 函数比较两个字符串(区分大小写)。

StrIComp 函数比较两个字符串(不区分大小写)。

Concat 函数合并字符串。

Copy 函数返回一字符串的子串。

Delete 函数从字符串中删除子串。

Insert 函数在字符串中插入子串。

Pos 函数在字符串中搜索子串。

Format 函数格式化一系列的参数并返回Pascal字符串。

FormatDateTime 函数用指定的格式来格式化日期和时间。

formatdatetime('c', Now)字符c以短时间格式显示时间,即全部是数字的表示。

d对应时间中的日期,dd是输出两位的日期。

delphi函数

delphi函数
标准函数和过程 ( 1 ) Date() : 函 数 返 回 系 统 当 前 日 期 , 无 参 数 , 返 回 数 据 是 TDateTime型。 ( 2 ) Time() : 函 数 返 回 系 统 当 前 时 间 , 无 参 数 , 返 回 数 据 是 TDateTime型。 (3)Now():函数返回系统当前日期和时间,无参数,返回数据是 TDateTime型。 (4)StrToDate('日期字符串') :字符串转换为日期时间函数,返回 数据是TDateTime型; StrToTime('时间字符串'):参数为时间串,返回数据是TDateTime型; StrToDateTime('日期时间型串'):参数为日期时间串,返回数据是 TDateTime型。如: StrToDate('10/1/2004'); StrToTime('12:50:24'); StrToDateTime('10/1/2004 12:00:00');
(5)日期时间转换为字符串的函数,返回值为字 符串,பைடு நூலகம்: TimeToStr(参数):将时间数据转换为字符串返回; DateToStr(参数):将日期数据转换为字符串返回; DateTimeTostr(参数) :将日期时间数据转换为 字符 串返回。 此外,还有Hourof、Minuteof、Secondof、 FormatDateTime等。
(1)合并字符串函数,Concat(s1,s2[,s3,s4,….])。 (2)取子串函数,Copy(字符串,开始位置,长度)。 (3)取左子串,LeftStr(字符串, 长度)。 (4)取右子串,RightStr(字符串, 长度)。 (5)判断一个子串在一个字符串中的起始位置,Pos(字 符串A,字符串B), 如:Pos(‘abc’, ‘axabcdef’)的值为3。 (6)去除字符串的左空格,TrimLeft(字符串) 。 (7)去除字符串的右空格,TrimRight(字符串) 。 (8)去除字符串的左、右空格,Trim(字符串) 。 (9)取的字符串的长度,Length(字符串)。 (10)字符串转为大写的函数,UpperCase(字符串)。

Delphi函数大全

Delphi函数大全

Delphi函数大全Delphi函数大全首部function Languages: TLanguages; $[功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考type例子12a12c12a12c.参考例子:= IsValidIdent;━━━━━━━━━━━━━━━━━━━━━首部function IntT oStr(Value: Integer): string; overload; $[首部function IntT oStr(Value: Int64): string; overload; $[功能返回整数Value转换成字符串说明Format('%d', [Value])参考function例子:= IntToStr;━━━━━━━━━━━━━━━━━━━━━首部function IntT oHex(V alue: Integer; Digits: Integer): string; overload; $[首部function IntT oHex(V alue: Int64; Digits: Integer): string; overload; $[功能返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 说明参数Digits指定字符最小宽度;最小宽度不足时将用0填充参考function例子:= IntToHex, ;━━━━━━━━━━━━━━━━━━━━━首部function StrToInt(const S: string): Integer; $[功能返回字符串S转换成整数说明字符串非整数表达时将引起异常参考procedure例子:= StrT oInt;━━━━━━━━━━━━━━━━━━━━━首部function StrT oIntDef(const S: string; Default: Integer): Integer; $[功能返回字符串S转换成整数说明字符串非整数表达时则返回默认值Default参考procedure例子:= StrT oIntDef, 0);━━━━━━━━━━━━━━━━━━━━━首部function TryStrToInt(const S: string; out Value: Integer): Boolean; $[功能返回字符串S转换成整数V alue是否成功说明字符串非整数表达时返回False并且Value将输出为0参考procedure例子..);打开失败则返回负数参考function例子xe'参考function ;function例子:= ExtractFileExt;━━━━━━━━━━━━━━━━━━━━━首部function ExpandFileName(const FileName: string): string; $[功能返回文件名的完整表示说明ExpandFileName('')='C:\Program Files\Borland\Delphi6\Projects\'参考function例子:= ExpandFileName;━━━━━━━━━━━━━━━━━━━━━首部function ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string; $[功能分情况返回文件名的完整表示说明type TFilenameCaseMatch = (mkNone, mkExactMatch, mkSingleMatch, mkAmbiguous); 参考function ;function ;function 例子.;获取失败则返回-1参考function例子:= DiskFree;━━━━━━━━━━━━━━━━━━━━━首部function DiskSize(Drive: Byte): Int64; $[功能返回驱动器全部空间说明参数Drive为0表示当前路径,为1表示=A驱,为2表示=B 驱...;获取失败则返回-1参考function例子:= DiskSize;━━━━━━━━━━━━━━━━━━━━━首部function FileDateToDateTime(FileDate: Integer): TDateTime; $[功能返回将文件日期时间类型转换日期时间类型说明FileDate非法是将触发异常参考function ;function例子<参见FileAge>━━━━━━━━━━━━━━━━━━━━━首部function DateTimeToFileDate(DateTime: TDateTime): Integer; $[功能返回将日期时间类型转换文件日期时间类型说明年份在1980到2107之外则返回0参考function ;function例子<参见FileSetDate>━━━━━━━━━━━━━━━━━━━━━首部function GetCurrentDir: string; $[功能返回当前操作目录说明[注意]调用文件对话框会改变当前操作目录参考function例子:= GetCurrentDir;━━━━━━━━━━━━━━━━━━━━━首部function SetCurrentDir(const Dir: string): Boolean; $[ 功能返回设置当前操作目录是否成功说明[注意]调用文件对话框会改变当前操作目录参考function例子:= SetCurrentDir;━━━━━━━━━━━━━━━━━━━━━首部function CreateDir(const Dir: string): Boolean; $[功能返回创建目录是否成功说明不支持多级目录;已经存在则返回False参考function例子:= CreateDir;━━━━━━━━━━━━━━━━━━━━━首部function RemoveDir(const Dir: string): Boolean; $[ 功能返回删除目录是否成功说明必须是空目录参考function例子:= RemoveDir;━━━━━━━━━━━━━━━━━━━━━首部function StrLen(const Str: PChar): Cardinal; $[功能返回指针字符串的长度说明当指针字符串Str为nil时将触发异常参考例子:= StrLen(PChar);━━━━━━━━━━━━━━━━━━━━━首部function StrEnd(const Str: PChar): PChar; $[功能返回指针字符串的结尾说明当指针字符串Str为nil时将触发异常参考例子:= StrEnd(PChar) - ;━━━━━━━━━━━━━━━━━━━━━首部function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): PChar; $[ 功能返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中说明Dest没有分配资源将触发异常s参考function例子255] of Char;beginStrECopy(StrECopy(vBuffer, PChar), PChar);:= vBuffer;end;255] of Char;beginStrLCopy(vBuffer, PChar, ;:= vBuffer;end;255] of Char;beginStrPCopy(vBuffer, PChar);:= vBuffer;end;255] of Char;beginStrPLCopy(vBuffer, , ;:= vBuffer;end;255] of Char;beginStrPCopy(vBuffer, ;StrCat(vBuffer, PChar);:= vBuffer;end;255] of Char;beginStrPCopy(vBuffer, ;StrLCat(vBuffer, PChar, ;:= vBuffer;end;2005-7-26 摘要] 类型Format('x=%d', [12]); 3f, []); f', [5, ]); d', [12]); x', [12]); 0000C255] of Char;E: Extended;beginE := StrToFloatDef, 0);:= FloatToText(vBuffer, E,fvExtended, ffNumber, , ;:= Copy(vBuffer, 1, ;end;0', 90) = '1,234,567,'参考function例子:= FormatFloat, StrToFloatDef, 0));━━━━━━━━━━━━━━━━━━━━━首部function FormatCurr(const Format: string; Value: Currency): string; $[功能返回货币类型以指定格式字符串Format转换成字符串说明FormatCurr(',.00', 90) = '1,234,567,'参考function例子:= FormatCurr, StrToCurrDef, 0));━━━━━━━━━━━━━━━━━━━━━首部function FloatToTextFmt(Buf: PChar; const Value; ValueType: TFloatValue; Format:PChar): Integer; $[功能返回浮点数以指定格式字符串Format转换成指针字符串的内存大小说明ValueType指定无类型参数Value的类型参考例子255] of Char;E: Extended;beginE := StrToFloatDef, 0);:= FloatToTextFmt(vBuffer, E,fvExtended, PChar);:= Copy(vBuffer, 1, ;end;7] of string =('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');begin:= cWeekCn[DayOfWeek(Now)];end;2002-03-092002年03月09日255] of Char;beginExceptionErrorMessage(Self, Self, vBuffer, 255);Caption := vBuffer;end;, '') = 16参考function ;function例子:= LastDelimiter, ;━━━━━━━━━━━━━━━━━━━━━首部function AnsiCompareFileName(const S1, S2: string): Integer; $[功能返回比较两个文件名说明当S1>S2返回值>0;当S1<s2返回值< bdsfid="265" p=""></s2返回值<>例子:= AnsiCompareFileName, ;━━━━━━━━━━━━━━━━━━━━━首部function SameFileName(const S1, S2: string): Boolean; $[功能返回两个文件名是否相等说明区分大小写参考function例子:= SameFileName, ;━━━━━━━━━━━━━━━━━━━━━首部function AnsiLowerCaseFileName(const S: string): string; $[功能返回小写文件名说明在非多字节字符系统上相当于AnsiLowerCase参考function例子:= AnsiLowerCaseFileName;━━━━━━━━━━━━━━━━━━━━━首部function AnsiUpperCaseFileName(const S: string): string;$[功能返回大写文件名说明在非多字节字符系统上相当于AnsiUpperCase参考function例子:= AnsiUpperCaseFileName;━━━━━━━━━━━━━━━━━━━━━首部function AnsiPos(const Substr, S: string): Integer; $[功能返回子串Substr在字符中第一次出现的位置说明不存在则返回0参考例子:= AnsiPos, ;━━━━━━━━━━━━━━━━━━━━━首部function AnsiStrPos(Str, SubStr: PChar): PChar; $[功能返回指针子串Substr在指针字符中第一次出现的指针位置说明不存在则返回nil参考function例子:= AnsiStrPos(PChar, PChar);━━━━━━━━━━━━━━━━━━━━━首部function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[ 功能返回在指针字符串Str搜索字符Chr最后一个出现的地址说明支持多字节字符系统;AnsiStrRScan('', '.') = ''参考function例子:= AnsiStrScan(PChar, '.');━━━━━━━━━━━━━━━━━━━━━首部function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[ 功能返回在指针字符串Str搜索字符Chr第一个出现的地址说明支持多字节字符系统;AnsiStrRScan('', '.') = '.'参考function例子:= AnsiStrScan(PChar, '.');━━━━━━━━━━━━━━━━━━━━━首部function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; $[功能返回替换后的字符串说明rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写参考function ;function ;function例子///////Begin StringReplaceprocedure (Sender: TObject);begin'[]'] :=StringReplace, , , []);'[rfReplaceAll]'] :=StringReplace, , , [rfReplaceAll]);'[rfIgnoreCase]'] :=StringReplace, , , [rfIgnoreCase]);'[rfReplaceAll, rfIgnoreCase]'] :=StringReplace, , , [rfReplaceAll, rfIgnoreCase]);end;///////End StringReplace━━━━━━━━━━━━━━━━━━━━━首部function WrapText(const Line, BreakStr: string; const BreakChars: TSysCharSet; MaxCol: Integer): string; overload; $[ 首部function WrapText(const Line: string; MaxCol: Integer = 45): string; overload; $[功能返回对字符串自动换行说明Result := WrapText(Line, sLineBreak, [' ', '-', #9], MaxCol);参考function ;function例子:= WrapText, ;━━━━━━━━━━━━━━━━━━━━━首部function FindCmdLineSwitch(const Switch: string; constChars: TSysCharSet; IgnoreCase: Boolean): Boolean; overload; $[ 首部function FindCmdLineSwitch(const Switch: string): Boolean; overload; $[首部function FindCmdLineSwitch(const Switch: string; IgnoreCase: Boolean): Boolean; overload; $[功能返回程序命令参数是否找到说明Result := FindCmdLineSwitch(Switch, SwitchChars, True);参考function ;function ;function例子:= FindCmdLineSwitch;━━━━━━━━━━━━━━━━━━━━━首部procedure FreeAndNil(var Obj); $[功能释放对象Obj并赋为空说明如果对象已经释放资源将触发异常参考type例子///////Begin FreeAndNilprocedure (Sender: TObject);varTemp: TObject;beginTemp := ;;ShowMessage(Format('%p', [Pointer(Temp)]));Temp := ;FreeAndNil(Temp);ShowMessage(Format('%p', [Pointer(Temp)]));end;///////End FreeAndNil━━━━━━━━━━━━━━━━━━━━━首部function Supports(const Instance: IInterface; const IID:TGUID; out Intf): Boolean; overload; $[首部function Supports(const Instance: TObject; const IID: TGUID; out Intf): Boolean; overload; $[首部function Supports(const Instance: IInterface; const IID: TGUID): Boolean; overload; $[首部function Supports(const Instance: TObject; const IID: TGUID): Boolean; overload; $[首部function Supports(const AClass: TClass; const IID: TGUID): Boolean; overload; $[功能返回对象是否支持指定的接口说明Result := (IID) <> nil;参考type例子━━━━━━━━━━━━━━━━━━━━━首部function CreateGUID(out Guid: TGUID): HResult; $[功能返回创建全局标识是否成功说明返回S_OK表示成功参考function例子///////Begin CreateGUIDprocedure (Sender: TObject);varvGUID: TGUID;beginCreateGUID(vGUID);:= GUIDT oString(vGUID);end;///////End CreateGUID━━━━━━━━━━━━━━━━━━━━━首部function StringToGUID(const S: string): TGUID; $[功能返回字符串S转换成全局标识说明如果字符串非法将触发异常参考fuction例子:= GUIDT oString(StringT oGUID);━━━━━━━━━━━━━━━━━━━━━首部function GUIDToString(const GUID: TGUID): string; $[功能返回全局标识GUID转换成字符串说明参考fuction例子:= GUIDT oString(StringT oGUID);━━━━━━━━━━━━━━━━━━━━━首部function IsEqualGUID(const guid1, guid2: TGUID): Boolean; $[功能返回两个全局标识是否相同说明function IsEqualGUID; external '' name 'IsEqualGUID';参考例子:= IsEqualGUID(StringToGUID, StringToGUID);━━━━━━━━━━━━━━━━━━━━━首部function LoadPackage(const Name: string): HMODULE; $[功能返回载入包资源说明参考function ;function ;function例子━━━━━━━━━━━━━━━━━━━━━首部procedure UnloadPackage(Module: HMODULE); $[功能取消载入包资源说明参考function ;function例子━━━━━━━━━━━━━━━━━━━━━首部procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer; InfoProc: TPackageInfoProc); $[ 功能返回包的信息说明参考例子━━━━━━━━━━━━━━━━━━━━━首部function GetPackageDescription(ModuleName: PChar): string; $[功能返回包的描述说明参考function ;function例子━━━━━━━━━━━━━━━━━━━━━首部procedure InitializePackage(Module: HMODULE); $[功能初始化包说明参考function例子━━━━━━━━━━━━━━━━━━━━━首部procedure FinalizePackage(Module: HMODULE); $[功能终止化包说明参考function例子━━━━━━━━━━━━━━━━━━━━━首部procedure RaiseLastOSError; $[功能触发操作系统的最后一个异常说明如果没有出现异常则默认调用Api函数异常参考function例子RaiseLastOSError;━━━━━━━━━━━━━━━━━━━━━首部procedure RaiseLastWin32Error; deprecated; $[功能触发Win32系统的最后一个异常说明如果没有出现异常则默认调用Api函数异常参考function ;例子RaiseLastWin32Error;━━━━━━━━━━━━━━━━━━━━━首部function Win32Check(RetVal: BOOL): BOOL; platform; $[ 功能返回检测调用系统Api函数返回结果说明如果RetVal为False则触发异常参考function例子:= Win32Check;━━━━━━━━━━━━━━━━━━━━━首部procedure AddTerminateProc(TermProc: TTerminateProc); $[ 功能添加一个退出过程到系统中说明执行AddTerminateProc(nil)将导致系统异常参考const例子///////Begin AddT erminateProcfunction NewTerminateProc: Boolean;beginResult := True;ShowMessage('NewTerminateProc');end;procedure (Sender: TObject);beginAddTerminateProc(NewTerminateProc);end;///////End AddTerminateProc━━━━━━━━━━━━━━━━━━━━━首部function CallTerminateProcs: Boolean; $[功能返回调用退出过程是否成功说明不建议调用参考const例子CallTerminateProcs;━━━━━━━━━━━━━━━━━━━━━首部function GDAL: LongWord; $[功能说明参考例子━━━━━━━━━━━━━━━━━━━━━首部procedure RCS; $[说明参考例子━━━━━━━━━━━━━━━━━━━━━首部procedure RPR; $[功能说明参考例子━━━━━━━━━━━━━━━━━━━━━首部function SafeLoadLibrary(const Filename: string; ErrorMode: UINT = SEM_NOOPENFILEERRORBOX): HMODULE; $[功能返回安全方式载入动态连接库资源说明<参见LoadLibrary>参考function例子━━━━━━━━━━━━━━━━━━━━━首部function GetEnvironmentVariable(const Name: string): string; overload; $[功能返回过程环境变量说明配合SetEnvironmentVariable函数使用参考function例子:= GetEnvironmentVariable;///////Begin GetEnvironmentVariableprocedure (Sender: TObject);beginSetEnvironmentVariable(PChar, PChar);:= GetEnvironmentVariable;end;///////End GetEnvironmentVariable━━━━━━━━━━━━━━━━━━━━━首部function InterlockedIncrement(var I: Integer): Integer; $[ 功能说明Kylix函数参考例子━━━━━━━━━━━━━━━━━━━━━首部function InterlockedDecrement(var I: Integer): Integer; $[功能说明Kylix函数参考例子━━━━━━━━━━━━━━━━━━━━━首部function InterlockedExchange(var A: Integer; B: Integer): Integer; $[说明Kylix函数参考例子━━━━━━━━━━━━━━━━━━━━━首部function InterlockedExchangeAdd(var A: Integer; B: Integer): Integer; $[ 功能说明Kylix函数参考例子━━━━━━━━━━━━━━━━━━━━━。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

一、数据类型转换函数1在我们编写程序当中,根据不同情况,会使用到多种数据类型。

当要对不同的类型进行操作时,必须要将不同的类型转换成同样的类型。

因此熟练地掌握数据类型的转换是非常重要的。

1.FloatToStr功能说明:该函数用于将“浮点型”转换成“字符型”。

参考实例:Edit1.Text := FloatToStr(1.981);2.IntToStr功能说明:该函数用于将“整数型”转换成“字符型”。

参考实例:S := IntToStr(10);(注:S为String类型变量。

)3.IntToHex功能说明:该函数用于将“十进制”转换成“十进制”。

该函数有二个参数1。

第一个参数为要转换的十进制数据,第二个参数是指定使用多少位来显示十六进制数据。

参考实例:Edit1.Text := IntToHex('100', 2);执行结果,Edit1.Text等于64。

注意:Delphi没有提供专门的“十六进制”转换为“十进制”的函数。

使用StrToInt函数可以实现这个功能。

具体代码是:I := StrToInt('S\' + '64'); 这时I等于100。

加上一个'S\'即可将“十六进制”转换为“十进制”。

4.StrToInt功能说明:该函数用于将“字符型”转换成“整数型”。

参考实例:I := StrToInt('100');注意:不能转换如StrToInt('ab')或StrToInt('好')这样的类型,因为他们并不存在数字型。

5.StrToFloat功能说明:该函数用于将“字符型”转换成“浮点型”。

参考实例:N := StrToFloat(Edit1.Text);注意:Edit1.Text中的内容为1.981(凡在Edit 控件中显示的文本均为字符串)。

N为Double类型,用于保存转换后的浮点型数据。

二、字符串、数组操作函数对字符串及数组的操作,是每个程序员必须要掌握的。

熟练的使用这些函数,在编程时能更加得心应手。

1.Copy功能说明:该函数用于从字符串中复制指定范围中的字符。

该函数有3个参数。

第一个参数是数据源(即被复制的字符串),第二个参数是从字符串某一处开始复制,第三个参数是要复制字符串的长度(即个数)。

最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。

参考实例:varS: String;MyStr: String; // 保存新的字符串beginS := 'I Love China!';//下面将获取I Love China中的“Love”字符串。

MyStr := Copy(S, 3, 4);end;执行结果,MyStr等于“Love”,“Love”字符串在“I Love China!”中第3个位置开始,所以第二个参数为3,“Love”一共有4个字符,所以第三个参数为4。

2.Concat功能说明:连接两个或多个字符串为一个字符串。

参考实例:varS1, S2: String;beginS1 := Concat('A', 'B'); // 连接两个字符串,S1变量等于AB。

S2 := Concat('Borland', ' Delphi', ' 7.0'); // 连接三个字符,S2变量等于Borland Delphi 7.0。

end;3.Delete功能说明:删除字符串中指定的字符串。

该函数有三个参数。

第一个参数为要进行处理的字符串,第二个参数为从何处开始删除,第三个参数为删除的字符个数。

参考实例:varS: String;beginS := 'I Like Reading CPCW.';// 下面的代码将删除S变量中的“C”字符。

Delete(S, 16, 1);end;此时S变量则是I Like Reading PCW.(“C”已经不存在了)。

4.High功能说明:返回数组下标的最大值。

参考实例:vararrText: array[0..9] of Char;i: Integer;begini := High(arrText); // i的值则为9end;5.Insert功能说明:插入一个字符(串)。

该函数有三个参数。

第一个参数为要插入的字符(串),第二个参数为被插入字符串(源字符串),第三个参数为从何处插入。

参考实例:varS: String;beginS := 'Wat is your name?';// 上面句子中的What单词查一个“h”字符,下面使用Insert函数将h添加进去。

Insert('h', S, 2); // 将“h”从第2位处插入。

end;6.LeftStr(所在单元:StrUtils)功能说明:返回字符串左边指定个数的新字符(串)。

该函数有两个参数。

第一个参数为完整的字符串,第二个参数为指定个数。

参考实例:varS, A: String;beginS := 'MSN Messenger';A := LeftStr(S, 3); // 从最左边开始,获取左边的三个字符。

因此A变量则等于MSN。

end;7.Length功能说明:该函数用于统计指定字符串的长度(即个数)。

varnLen1, nLen2: Integer; // 用于保存字符串长度beginnLen1 := Length('CPCW');nLen2 := Length('电脑报');end;执行结果,nLen1等于4,nLen2等于6。

由于一个汉字相当于两个字符的长度,所以3个汉字的长度为6。

8.Low功能说明:返回数组下标的最小值。

参考实例:vararrText: array[1..9] of Char;i: Integer;begini:= High(arrText); // i的值则为1 end;9.LowerCase功能说明:将字符(串)中的英文字符转换为小写。

varS, A: String;beginS := 'ABC';A := UpperCase(S); // 经过UpperCase函数转换后,A则等于abc。

end;10.MidStr(所在单元:StrUtils)功能说明:返回指定范围内的字符串。

该函数有三个参数。

第一个参数为源字符串,第二个参数为起点,第三个参数为结束点。

通过第二、第三个参数则可指定要复制字符串的范围。

Copy函数与此函数类似。

MidStr主要用于处理含有中文字符的字符串。

参考实例:varS: String;H: String;beginS := MidStr('China', 1, 2); // S变量为ChH := MidStr('电脑报', 1, 1); // H变量为“电”。

如果使用Copy函数,则应是H := Copy('电脑报, 1, 2),否则返回的将不是“电”字。

因此在使用操作含有中文的字符串时,最好使用MidStr。

end;11.Pos功能说明:查找字符(串)所在位置。

该函数有二个参数。

第一个参数为要查找的字符(串),第二个参数为被查找字符(串)。

参考实例:varnPos: Integer; // 用于保存查找的字符所在位置beginnPos := Pos('Like', 'I Like Reading!');end;此时nPos等于3。

如果没有查找到,则nPos为0。

注意:Pos函数在查找时是要区分字符大小的。

如果要实现不区分大小,那么需要使用UpperCase或LowerCase函数将两个参数的字符(串)转换为“大写”或“小写”再进行查找。

另外还有一个查找字符(串)的函数----AnsiPos,该函数的使用方法与Pos函数完全一样。

当你查找的是汉字时,最好使用AnsiPos函数。

12.RightStr(所在单元:StrUtils)功能说明:返回字符串右边指定个数的新字符(串)。

该函数有两个参数。

第一个参数为完整的字符串,第二个参数为指定个数。

参考实例:varS, A: String;beginS := 'MSN Messenger';A := RightStr(S, 3); // 从最右边开始,获取右边的三个字符。

因此A变量则等于ger。

end;13.SetLength功能说明:设置字符串或动态数组长度。

该函数有两个参数。

第一个参数为要设置的字符串变量或动态数组变量,第二个参数为指定的长度,其取值范围在0到255之间。

参考实例:varS: String;arrText: array of Char; // 定义一个动态数组beginSetLength(S, 10); // 当设置后,S变量只能赋值长度为10的字符串。

SetLength(arrText, 10); // 只有使用SetLength为动态数组分配内存空间后才能使用动态数组。

这句代码的作用相当于arrText: array[0..9] of Charend;14.StrPCopy功能说明:将字符串复制到字符数组中。

该函数有两个参数。

第一个参数为“目标数组”,第二个参数为“字符串”。

参考实例:vararrChar: array[0..255] of Char; // 这里声明了长度为256的Char型数组beginStrPCopy(arrChar, 'Come on, baby!');end;15.Trim功能说明:删除字符串左右两边的空格(无论左右两边有多少个空格均被全部删除)。

参考实例:varS: String;beginS := ' Delphi 7.0 ';S := Trim(S);end;16.TrimLeft功能说明:删除字符串左边的空格(无论左边有多少个空格均被全部删除)。

参考实例:S := TrimLeft(' Delphi');17.TrimRight功能说明:删除字符串左边的空格(无论左边有多少个空格均被全部删除)。

参考实例:S := TrimRight('Delphi ');18.UpperCase功能说明:将字符(串)中的英文字符转换为大写。

参考实例:varS, A: String;beginS := 'abc';A := UpperCase(S); // 经过UpperCase函数转换后,A则等于ABC。

end;三、文件、磁盘操作函数软件大多都要对文件、磁盘进行操作。

相关文档
最新文档