delphi常用函数

合集下载

delphi left函数

delphi left函数

delphi left函数【1.Delphi左移函数概述】在Delphi编程语言中,左移函数(Left Function)是一种字符串处理函数,主要用于对字符串进行左移操作。

通过左移,我们可以将字符串中的字符按照指定的位数移动到左侧,右侧空出的位置用空字符("0")填充。

左移操作在字符串处理中非常常见,例如在实现字符串加密、编码转换等功能时会用到左移操作。

【2.左移函数的语法和参数】Delphi中的左移函数如下:```function Left(const S: string; Count: Integer): string;```- S:表示要进行左移操作的字符串。

- Count:表示要将字符串左移的位数。

如果Count为负数,则表示从字符串右侧开始左移。

【3.左移函数的应用场景】左移函数在以下场景中具有实用价值:1.加密:通过对明文进行左移操作,可以实现对字符的加密。

例如,将明文字符串左移若干位,可以得到密文字符串。

2.编码转换:在不同的编码系统中,字符的编码值可能不同。

通过对字符串进行左移操作,可以实现编码的转换。

3.数据填充:在某些场景下,我们需要将数据按照特定的格式进行填充。

通过左移操作,可以实现对字符串的填充。

【4.左移函数的实用示例】以下是一个左移函数的实用示例:```delphifunction Encrypt(const PlainText: string; Key: Integer): string;vari: Integer;ShiftedText: string;beginShiftedText := PlainText;for i := 1 to Key dobeginShiftedText := Left(ShiftedText, Length(ShiftedText) - 1) + Right(ShiftedText, 1);end;EncryptedText := ShiftedText;end;procedure TForm1.Button1Click(Sender: TObject);begin// 原始字符串PlainText := "Hello, World!";// 密钥Key := 3;// 加密EncryptedText := Encrypt(PlainText, Key);// 显示结果Memo1.Lines.Add("原始字符串:" + PlainText);Memo1.Lines.Add("加密后:" + EncryptedText);end;```在这个示例中,我们定义了一个名为Encrypt的函数,用于对字符串进行加密。

delphi中ord的用法 -回复

delphi中ord的用法 -回复

delphi中ord的用法-回复Delphi 中的ord 函数用于返回字符的ASCII 值。

在这篇文章中,我将逐步回答有关Delphi 中ord 函数的一些常见问题。

我们将从介绍ord 函数开始,深入探讨其功能和用法,并通过一些示例来帮助读者更好地理解。

1. 什么是ord 函数?ord 函数是一个在Delphi 中非常常用的函数,用于返回字符的ASCII 码值。

通过ord 函数,可以将一个字符转换为对应的整数值。

2. ord 函数的语法是什么?ord 函数的语法非常简单,只包含一个参数——要转换的字符。

它的一般形式如下:ord(ch: Char): Integer;其中,ch 是要转换的字符,返回值是字符的ASCII 码值。

3. ord 函数能接受哪些类型的参数?ord 函数可以接受任何Char 类型的参数,包括字符常量、字符变量和字符表达式。

只要参数是一个有效的字符,无论是在代码中直接写出的还是从其他地方获取的,都可以传递给ord 函数。

4. ord 函数的返回值的数据类型是什么?ord 函数返回一个整数值,因此其返回值的数据类型为Integer。

5. ord 函数的功能是什么?ord 函数的主要功能是将一个字符转换为对应的ASCII 码值。

ASCII 码(American Standard Code for Information Interchange)是一种最古老且广泛使用的字符编码标准,用于在计算机中表示字符。

6. ord 函数的常见用途有哪些?ord 函数在Delphi 中有许多用途。

以下是一些常见的例子:- 对输入进行合法性验证:可以使用ord 函数来验证用户输入是否是一个有效的字符,以避免潜在的错误或异常。

- 字符操作:通过比较字符的ASCII 码值,可以实现对字符的排序、查找和替换等操作。

- 字符串处理:在字符串中,将字符转换为整数值可以方便地进行数值计算和运算。

7. ord 函数的示例使用场景有哪些?以下是一些示例使用场景,可用ord 函数解决:- 判断一个字符是否为字母:通过和ord('A')、ord('Z') 或ord('a')、ord('z') 进行比较,可以判断一个字符是否是大写字母或小写字母。

delphi中的三角函数

delphi中的三角函数

delphi中的三角函数
Delphi是一种常用的编程语言,其中包含许多数学函数,其中就包括
三角函数。

三角函数是高中数学中的基础知识,在计算机编程中也是
经常用到的函数。

在Delphi中,三角函数包括sin、cos、tan、asin、acos、atan等函数。

这些函数可以用来计算三角形的各种属性,如边长、角度、面积等。

其中,sin函数用来计算一个角度的正弦值,cos函数用来计算一个角度的余弦值,tan函数用来计算一个角度的正切值。

例如,sin(30)可
以计算出30度角的正弦值,cos(45)可以计算出45度角的余弦值,tan(60)可以计算出60度角的正切值。

另外,asin、acos、atan函数则是反三角函数,可以计算出一个给定正弦值、余弦值或正切值所对应的角度。

例如,asin(0.5)可以计算出
正弦值为0.5所对应的角度,acos(0.5)可以计算出余弦值为0.5所对
应的角度,atan(1)可以计算出正切值为1所对应的角度。

除了以上函数外,Delphi中还有许多其他用于数学计算的函数,如pow、sqrt、exp等等,您可以在实际编程过程中根据需要灵活使用。

总之,三角函数在计算机编程中是极其重要的,而Delphi作为一种广泛使用的编程语言,自然也包括了三角函数的各种实现。

在实际编程
过程中,合理运用这些函数,可以方便地进行各种三角形的计算及其
他数学运算。

以上是Delphi中的三角函数及其使用方法的介绍,希望对您有所帮助。

delphi 时间间隔函数

delphi 时间间隔函数

delphi 时间间隔函数【原创实用版】目录一、delphi 时间间隔函数概述二、delphi 时间间隔函数的具体使用方法三、delphi 时间间隔函数的实际应用案例四、delphi 时间间隔函数的优点与局限性正文一、delphi 时间间隔函数概述delphi 是一种广泛使用的编程语言,提供了许多方便的时间和日期函数。

其中,时间间隔函数是一类非常重要的函数,用于计算两个时间点之间的时间差。

这些函数可以帮助程序员在处理日期和时间相关的问题时更加灵活和高效。

二、delphi 时间间隔函数的具体使用方法在 delphi 中,有几个常用的时间间隔函数,包括 yearspan、monthspan、weekspan 和 dayspan。

这些函数位于 dateutils 单元中,需要首先引入该单元。

以下是这些函数的具体使用方法:1.yearspan(datetime1, datetime2):返回 datetime1 和datetime2 之间的年数。

2.monthspan(datetime1, datetime2):返回 datetime1 和datetime2 之间的月数。

3.weekspan(datetime1, datetime2):返回 datetime1 和datetime2 之间的周数。

4.dayspan(datetime1, datetime2):返回 datetime1 和 datetime2之间的天数。

这些函数的返回值都是整数,表示时间间隔的数量。

在使用这些函数时,需要注意传入的日期时间参数的格式,确保它们是有效的日期时间值。

三、delphi 时间间隔函数的实际应用案例delphi 的时间间隔函数在实际应用中非常实用。

例如,在一个时间管理程序中,可以使用这些函数来计算任务之间的时间差,以便更好地安排时间和资源。

另外,在数据分析和统计领域,这些函数也可以帮助程序员计算数据中的时间间隔,以便更好地理解数据的变化趋势。

delphi 二元比较函数 -回复

delphi 二元比较函数 -回复

delphi 二元比较函数-回复Delphi 是一种高级、面向对象的编程语言,常用于构建Windows 平台下的应用程序。

在Delphi 中,二元比较函数指的是用于比较两个值的函数,返回一个比较结果。

为了更好地理解和掌握Delphi 中的二元比较函数,本文将详细介绍其用法、常见的比较操作符、自定义的比较函数以及一些在实际开发中的使用案例。

首先,让我们来了解一下Delphi 中的二元比较函数的用法。

Delphi 提供了一系列的比较操作符,包括相等(=)、大于(>)、小于(<)、大于等于(>=)、小于等于(<=)和不等于(<>)。

这些操作符可以用于比较数值、字符串、日期等不同类型的数据。

比如,我们可以使用以下方式比较两个整数a 和b 的大小:delphiif a > b thenShowMessage('a is greater than b')else if a < b thenShowMessage('a is less than b')elseShowMessage('a is equal to b');在上面的例子中,如果a 的值大于b,则会弹出一个消息框显示"a is greater than b"。

如果a 小于b,则会显示"a is less than b"。

否则,显示"a is equal to b"。

除了使用比较操作符,我们还可以自定义比较函数来实现特定的比较逻辑。

Delphi 提供了一个Compare 函数,用于比较两个值的大小。

此函数接受两个参数,返回一个整型的比较结果。

当第一个参数小于第二个参数时,返回一个负数;当两个参数相等时,返回0;当第一个参数大于第二个参数时,返回一个正数。

下面是一个使用自定义比较函数的示例:delphifunction MyCompare(a, b: Integer): Integer;beginif a > b thenResult := 1else if a < b thenResult := -1elseResult := 0;end;varx, y: Integer;beginx := 10;y := 5;if MyCompare(x, y) > 0 thenShowMessage('x is greater than y')else if MyCompare(x, y) < 0 thenShowMessage('x is less than y')elseShowMessage('x is equal to y');end;在上面的例子中,我们定义了一个名为MyCompare 的比较函数,用于比较两个整数的大小。

Delphi7.0的常用函数与过程

Delphi7.0的常用函数与过程

Delphi7.0的常用函数与过程2.1.4 Delphi 7中的运算符与表达式Delphi 7 有8 类运算符,本章主要学习算术运算符、字符串运算符和位运算符。

其他运算符将在以后的章节中学习。

1.算术运算符算术运算符是用户最熟悉的,类似算术中的加减乘除等。

Delphi 7中有8个算术运算符,具体含义如下。

(1)取正运算符“+”:单目运算符,表示对一个数值型数据取正,例如+5的值为5。

另外,取正运算符可以省略。

(2)取负运算符“-”:也是单目运算符。

例如对5取负,其值为-5。

(3)加法运算符“+”:与数学上的加法相同。

加法运算符与取正运算符符号相同,但含义不同。

例如3+5的值为8。

(4)减法运算符“-”:与数学上的减法含义相同。

也请注意减法运算符与取负运算符的异同。

(5)乘法运算符“*”:表示对两个数值型数据相乘,与数学中的乘法相同。

例如:3*5 的值为15。

(6)除法运算符“/”:与数学上的除法含义相同。

例如3/5 的值为“0.6”。

另外,除法运算的结果总是实型数据。

(7)整除运算符“div”:只能对两个整数进行除法运算,结果为整型数据。

例如5 div 3 的值为1,而“5 div 2.0”是不合法的。

(8)取余运算符“mod”:对两个整数相除,结果为余数。

例如5 mod 3的值为2。

1,数学类函数包括绝对值函数,取整数函数,取小数函数,平方函数,平方根函数,三角函数,指数函数,对数函数和随机函数等。

(1)绝对值函数:Abs(x) 返回x的绝对值,x是整型或实型数据例:x := Abs(-1); //这是一个赋值语句,先计算赋值号右边函数的值(为1)再赋给x.(2)取整数函数例:(3)取小数函数返回x的小数部分,x为实型数据例:(4)平方函数返回实型数据x的平方值,x为实型数据(5)平方根函数返回非负实数x的算术平方根,x为非负实数,返回值也为非负实数例:(6)三角函数返回以弧度为单位的x的正弦函数值,x的单位为弧度返回以弧度为单位的x的余弦函数值,x的单位为弧度ArcTan(x):Extended;返回x的反正切函数值,x的单位为弧度例:(7)指数函数返回值为e x,参数x为实型数据例:(8)自然对数函数Ln(x) := Real;返回x的自然对数值,参数x为正实数,其它对数函数可以由换底公式导出。

delphi7常用函数

函数由一句或多句代码组成,可以实现某个特定的功能。

使用函数可以使代码更加易读、易懂,加快编程速度及减少重复代码。

过程与函数类似,过程与函数最重要的区别在于,过程没有返回值,而函数能有返回值。

在Delphi 7.0中,已为我们定义好了非常多的函数,大致分类有6种:数据类型转换函数、字符串、数组操作函数、文件、磁盘操作函数、内存、指针操作函数、数学运算函数、日期函数。

在Delphi中调用函数,一般情况下可以直接使用函数即可,但由于有一些函数未包含在Uses 中列出的单元中(默认单元有Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs;),所以需要我们手动添加单元。

比如,MidStr函数就未包含在这些单元中,MidStr所属单元在StrUtils中,因此我们将StrUtils添加Uses中即可。

在本手册中,凡是未包含在默认列出的单元中的函数,都标明了其所属的单元,使用时应当注意。

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

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

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

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

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

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

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

该函数有二个参数。

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

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

delphi中move对数组的使用

Delphi是一种基于Object Pascal语言的集成开发环境,被广泛应用于Windows评台的软件开发中。

在Delphi中,move是一个非常常用的函数,用于对数组进行批量数据的移动操作。

在本文中,我们将探讨在Delphi中如何使用move函数对数组进行操作。

1. move函数概述move函数是Delphi中的一个内置函数,其作用是将指定长度的数据块从源位置区域复制到目标位置区域。

move函数的定义如下:procedure move(const source; var dest; count: Integer);其中,source是源位置区域的指针,dest是目标位置区域的指针,count是要移动的字节数。

可以看出,move函数是一个过程(procedure),没有返回值。

2. move函数的使用在Delphi中,我们可以通过直接调用move函数来对数组进行数据的批量移动操作。

以下是一个简单的示例:varsourceArr: array[0..3] of Integer;destArr: array[0..3] of Integer;beginsourceArr[0] := 1;sourceArr[1] := 2;sourceArr[2] := 3;sourceArr[3] := 4;move(sourceArr, destArr, SizeOf(sourceArr));end;在这个示例中,我们创建了两个长度为4的整型数组sourceArr和destArr,然后通过move函数将sourceArr中的数据复制到destArr 中。

需要注意的是,在调用move函数时,需要使用SizeOf函数来获取数组的大小,以确保正确的数据复制操作。

3. move函数的优势相对于传统的for循环遍历数组的方式,使用move函数对数组进行数据的移动操作具有多个优势:(1) 效率高:由于move函数是内置函数,经过了底层的优化和性能调整,因此其执行速度通常比手动编写的循环要快。

delphi pos使用方法

delphi pos使用方法Delphi中的POS函数是一个非常常用的函数,用于查找子字符串在字符串中的位置。

它的使用方法非常简单,只需要传入两个参数即可。

下面我们来详细介绍一下Delphi中POS函数的使用方法。

我们需要了解一下POS函数的定义和参数。

POS函数的定义如下:```function Pos(SubStr, Str: string): Integer;```其中,SubStr是要查找的子字符串,而Str是要在其中查找的字符串。

POS函数的返回值是SubStr在Str中第一次出现的位置,如果找不到则返回0。

接下来,我们来看一些具体的使用示例。

示例1:查找子字符串在字符串中的位置```varStr: string;SubStr: string;Pos: Integer;beginStr := 'Hello, World!';Pos := Pos(SubStr, Str);if Pos > 0 thenShowMessage('子字符串在字符串中的位置是:' + IntToStr(Pos))elseShowMessage('未找到子字符串');end;```在这个示例中,我们定义了一个字符串Str和一个子字符串SubStr,然后使用POS函数查找SubStr在Str中的位置。

如果找到了,则显示子字符串在字符串中的位置;如果未找到,则显示未找到子字符串的提示。

示例2:查找子字符串在字符串中的位置(忽略大小写)```varStr: string;SubStr: string;Pos: Integer;beginStr := 'Hello, World!';Pos := Pos(AnsiLowerCase(SubStr), AnsiLowerCase(Str));if Pos > 0 thenShowMessage('子字符串在字符串中的位置是:' + IntToStr(Pos))elseShowMessage('未找到子字符串');end;```在这个示例中,我们通过调用AnsiLowerCase函数将字符串转为小写,然后再使用POS函数进行查找。

delphi中常用math函数库

const { Ranges of the IEEE floating point types, including denormals }MinSingle = 1.5e-45;MaxSingle = 3.4e+38;MinDouble = 5.0e-324;MaxDouble = 1.7e+308;MinExtended = 3.4e-4932;MaxExtended = 1.1e+4932;MinComp = -9.223372036854775807e+18;MaxComp = 9.223372036854775807e+18;{ The following constants should not be used for comparison, onlyassignments. For comparison please use the IsNan and IsInfinity functionsprovided below. }NaN = 0.0 / 0.0;(*$EXTERNALSYM NaN*)(*$HPPEMIT 'static const Extended NaN = 0.0 / 0.0;'*)Infinity = 1.0 / 0.0;(*$EXTERNALSYM Infinity*)(*$HPPEMIT 'static const Extended Infinity = 1.0 / 0.0;'*)NegInfinity = -1.0 / 0.0;(*$EXTERNALSYM NegInfinity*)(*$HPPEMIT 'static const Extended NegInfinity = -1.0 / 0.0;'*){ Trigonometric functions }//三角函数与反函数function ArcCos(const X: Extended): Extended; { IN: |X| <= 1 OUT: [0..PI] radians } function ArcSin(const X: Extended): Extended; { IN: |X| <= 1 OUT: [-PI/2..PI/2] radians }{ ArcTan2 calculates ArcTan(Y/X), and returns an angle in the correct quadrant.IN: |Y| < 2^64, |X| < 2^64, X <> 0 OUT: [-PI..PI] radians }function ArcTan2(const Y, X: Extended): Extended;{ SinCos is 2x faster than calling Sin and Cos separately for the same angle }procedure SinCos(const Theta: Extended; var Sin, Cos: Extended) register;function Tan(const X: Extended): Extended;function Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 }function Secant(const X: Extended): Extended; { 1 / cos(X) }function Cosecant(const X: Extended): Extended; { 1 / sin(X) }function Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) }{ Angle unit conversion routines }//角度转换函数function RadToDeg(const Radians: Extended): Extended; { Degrees := Radians * 180 / PI } function RadToGrad(const Radians: Extended): Extended; { Grads := Radians * 200 / PI } function RadToCycle(const Radians: Extended): Extended;{ Cycles := Radians / 2PI }function DegToRad(const Degrees: Extended): Extended; { Radians := Degrees * PI / 180} function DegToGrad(const Degrees: Extended): Extended;function DegToCycle(const Degrees: Extended): Extended;function GradToRad(const Grads: Extended): Extended; { Radians := Grads * PI / 200 } function GradToDeg(const Grads: Extended): Extended;function GradToCycle(const Grads: Extended): Extended;function CycleToRad(const Cycles: Extended): Extended; { Radians := Cycles * 2PI } function CycleToDeg(const Cycles: Extended): Extended;function CycleToGrad(const Cycles: Extended): Extended;{ Hyperbolic functions and inverses }//双曲函数和反函数function Cot(const X: Extended): Extended; { alias for Cotan }function Sec(const X: Extended): Extended; { alias for Secant }function Csc(const X: Extended): Extended; { alias for Cosecant }function Cosh(const X: Extended): Extended;function Sinh(const X: Extended): Extended;function Tanh(const X: Extended): Extended;function CotH(const X: Extended): Extended;function SecH(const X: Extended): Extended;function CscH(const X: Extended): Extended;function ArcCot(const X: Extended): Extended; { IN: X <> 0 }function ArcSec(const X: Extended): Extended; { IN: X <> 0 }function ArcCsc(const X: Extended): Extended; { IN: X <> 0 }function ArcCosh(const X: Extended): Extended; { IN: X >= 1 }function ArcSinh(const X: Extended): Extended;function ArcTanh(const X: Extended): Extended; { IN: |X| <= 1 }function ArcCotH(const X: Extended): Extended; { IN: X <> 0 }function ArcSecH(const X: Extended): Extended; { IN: X <> 0 }function ArcCscH(const X: Extended): Extended; { IN: X <> 0 }{ Logarithmic functions }//对数函数function LnXP1(const X: Extended): Extended; { Ln(X + 1), accurate for X near zero } function Log10(const X: Extended): Extended; { Log base 10 of X } function Log2(const X: Extended): Extended; { Log base 2 of X } function LogN(const Base, X: Extended): Extended; { Log base N of X }{ Exponential functions }//指数函数{ IntPower: Raise base to an integral power. Fast. }function IntPower(const Base: Extended; const Exponent: Integer): Extended register;{ Power: Raise base to any power.For fractional exponents, or |exponents| > MaxInt, base must be > 0. }function Power(const Base, Exponent: Extended): Extended;{ Miscellaneous Routines }//日常{ Frexp: Separates the mantissa and exponent of X. }procedure Frexp(const X: Extended; var Mantissa: Extended; var Exponent: Integer) register;{ Ldexp: returns X*2**P }function Ldexp(const X: Extended; const P: Integer): Extended register;{ Ceil: Smallest integer >= X, |X| < MaxInt }function Ceil(const X: Extended):Integer;{ Floor: Largest integer <= X, |X| < MaxInt }function Floor(const X: Extended): Integer;{ Poly: Evaluates a uniform polynomial of one variable at value X.The coefficients are ordered in increasing powers of X:Coefficients[0] + Coefficients[1]*X + ... + Coefficients[N]*(X**N) } function Poly(const X: Extended; const Coefficients: array of Double): Extended;{-----------------------------------------------------------------------Statistical functions.//统计函数Common commercial spreadsheet macro names for these statistical and financial functions are given in the comments preceding each function.-----------------------------------------------------------------------}{ Mean: Arithmetic average of values. (A VG): SUM / N }function Mean(const Data: array of Double): Extended;{ Sum: Sum of values. (SUM) }function Sum(const Data: array of Double): Extended register;function SumInt(const Data: array of Integer): Integer register;function SumOfSquares(const Data: array of Double): Extended;procedure SumsAndSquares(const Data: array of Double;var Sum, SumOfSquares: Extended) register;{ MinV alue: Returns the smallest signed value in the data array (MIN) } function MinV alue(const Data: array of Double): Double;function MinIntV alue(const Data: array of Integer): Integer;function Min(const A, B: Integer): Integer; overload;function Min(const A, B: Int64): Int64; overload;function Min(const A, B: Single): Single; overload;function Min(const A, B: Double): Double; overload;function Min(const A, B: Extended): Extended; overload;{ MaxV alue: Returns the largest signed value in the data array (MAX) } function MaxV alue(const Data: array of Double): Double;function MaxIntV alue(const Data: array of Integer): Integer;function Max(const A, B: Integer): Integer; overload;function Max(const A, B: Int64): Int64; overload;function Max(const A, B: Single): Single; overload;function Max(const A, B: Double): Double; overload;function Max(const A, B: Extended): Extended; overload;{ Standard Deviation (STD): Sqrt(V ariance). aka Sample Standard Deviation } function StdDev(const Data: array of Double): Extended;{ MeanAndStdDev calculates Mean and StdDev in one call. }procedure MeanAndStdDev(const Data: array of Double; var Mean, StdDev: Extended);{ Population Standard Deviation (STDP): Sqrt(PopnV ariance).Used in some business and financial calculations. }function PopnStdDev(const Data: array of Double): Extended;{ V ariance (V ARS): TotalV ariance / (N-1). aka Sample V ariance }function V ariance(const Data: array of Double): Extended;{ Population V ariance (V AR or V ARP): TotalV ariance/ N }function PopnV ariance(const Data: array of Double): Extended;{ Total V ariance: SUM(i=1,N)[(X(i) - Mean)**2] }function TotalV ariance(const Data: array of Double): Extended;{ Norm: The Euclidean L2-norm. Sqrt(SumOfSquares) }function Norm(const Data: array of Double): Extended;{ MomentSkewKurtosis: Calculates the core factors of statistical analysis:the first four moments plus the coefficients of skewness and kurtosis.M1 is the Mean. M2 is the V ariance.Skew reflects symmetry of distribution: M3 / (M2**(3/2))Kurtosis reflects flatness of distribution: M4 / Sqr(M2) }procedure MomentSkewKurtosis(const Data: array of Double;var M1, M2, M3, M4, Skew, Kurtosis: Extended);{ RandG produces random numbers with Gaussian distribution about the mean. Useful for simulating data with sampling errors. }function RandG(Mean, StdDev: Extended): Extended;{-----------------------------------------------------------------------General/Misc use functions-----------------------------------------------------------------------}{ Extreme testing }// Like an infinity, a NaN double value has an exponent of 7FF, but the NaN// values have a fraction field that is not 0.function IsNan(const A V alue: Double): Boolean; overload;function IsNan(const A V alue: Single): Boolean; overload;function IsNan(const A V alue: Extended): Boolean; overload;// Like a NaN, an infinity double value has an exponent of 7FF, but the// infinity values have a fraction field of 0. Infinity values can be positive// or negative, which is specified in the high-order, sign bit.function IsInfinite(const A V alue: Double): Boolean;{ Simple sign testing }typeTV alueSign = -1..1;constNegativeV alue = Low(TV alueSign);ZeroV alue = 0;PositiveV alue = High(TV alueSign);function Sign(const A V alue: Integer): TV alueSign; overload;function Sign(const A V alue: Int64): TV alueSign; overload;function Sign(const A V alue: Double): TV alueSign; overload;{ CompareFloat & SameFloat: If epsilon is not given (or is zero) we willattempt to compute a reasonable one based on the precision of the floatingpoint type used. }function CompareV alue(const A, B: Extended; Epsilon: Extended = 0): TV alueRelationship; overload; function CompareV alue(const A, B: Double; Epsilon: Double = 0): TV alueRelationship; overload; function CompareV alue(const A, B: Single; Epsilon: Single = 0): TV alueRelationship; overload; function CompareV alue(const A, B: Integer): TV alueRelationship; overload;function CompareV alue(const A, B: Int64): TV alueRelationship; overload;function SameV alue(const A, B: Extended; Epsilon: Extended = 0): Boolean; overload;function SameV alue(const A, B: Double; Epsilon: Double = 0): Boolean; overload;function SameV alue(const A, B: Single; Epsilon: Single = 0): Boolean; overload;{ IsZero: These will return true if the given value is zero (or very very veryclose to it). }function IsZero(const A: Extended; Epsilon: Extended = 0): Boolean; overload;function IsZero(const A: Double; Epsilon: Double = 0): Boolean; overload;function IsZero(const A: Single; Epsilon: Single = 0): Boolean; overload;{ Easy to use conditional functions }function IfThen(A V alue: Boolean; const A True: Integer; const AFalse: Integer = 0): Integer; overload; function IfThen(A V alue: Boolean; const A True: Int64; const AFalse: Int64 = 0): Int64; overload; function IfThen(A V alue: Boolean; const A True: Double; const AFalse: Double = 0.0): Double; overload;{ V arious random functions }function RandomRange(const AFrom, A To: Integer): Integer;function RandomFrom(const A V alues: array of Integer): Integer; overload;function RandomFrom(const A V alues: array of Int64): Int64; overload;function RandomFrom(const A V alues: array of Double): Double; overload;{ Range testing functions }function InRange(const A V alue, AMin, AMax: Integer): Boolean; overload;function InRange(const A V alue, AMin, AMax: Int64): Boolean; overload;function InRange(const A V alue, AMin, AMax: Double): Boolean; overload;{ Range truncation functions }function EnsureRange(const A V alue, AMin, AMax: Integer): Integer; overload;function EnsureRange(const A V alue, AMin, AMax: Int64): Int64; overload;function EnsureRange(const A V alue, AMin, AMax: Double): Double; overload;{ 16 bit integer division and remainder in one operation }procedure DivMod(Dividend: Integer; Divisor: Word;var Result, Remainder: Word);{ Round to a specific digit or power of ten }{ ADigit has a valid range of 37 to -37. Here are some valid examplesof ADigit values...3 = 10^3 = 1000 = thousand's place2 = 10^2 = 100 = hundred's place1 = 10^1 = 10 = ten's place-1 = 10^-1 = 1/10 = tenth's place-2 = 10^-2 = 1/100 = hundredth's place-3 = 10^-3 = 1/1000 = thousandth's place }typeTRoundToRange = -37..37;function RoundTo(const A V alue: Double; const ADigit: TRoundToRange): Double;{ This variation of the RoundTo function follows the asymmetric arithmeticrounding algorithm (if Frac(X) < .5 then return X else return X + 1). Thisfunction defaults to rounding to the hundredth's place (cents). }function SimpleRoundTo(const A V alue: Double; const ADigit: TRoundToRange = -2): Double;。

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

A B C D E F G H I K L M N O P R S T U V W EditMask

名称 类型 说明 A部 Abort 函数 引起放弃的意外处理

Abs 函数 绝对值函数

AddExitProc 函数 将一过程添加到运行时库的结束过程表中

Addr 函数 返回指定对象的地址

AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列

Align 属性 使控件位于窗口某部分

Alignment 属性 控件标签的文字位置

AllocMem 函数 在堆栈上分配给定大小的块

AllowGrayed 属性 允许一个灰度选择

AnsiCompareStr 函数 比较字符串(区分大小写)

AnsiCompareText 函数 比较字符串(不区分大小写)

AnsiLowerCase 函数 将字符转换为小写

AnsiUpperCase 函数 将字符转换为大写

Append 函数 以附加的方式打开已有的文件

ArcTan 函数 余切函数

AssignFile 函数 给文件变量赋一外部文件名

Assigned 函数 测试函数或过程变量是否为空

AutoSize 属性 自动控制标签的大小

Application.ActivateHint(Point(X,Y)); 函数 激活hint

B部 BackgroundColor 属性 背景色

BevelInner 属性 控件方框的内框方式

BevelOuter 属性 控件方框的外框方式

BevelWidth 属性 控件方框的外框宽度

BlockRead 函数 读一个或多个记录到变量中

BlockWrite 函数 从变量中写一个或多个记录

BorderStyle 属性 边界类型

BorderWidth 属性 边界宽度 Break 命令 终止for、while、repeat循环语句

Brush 属性 画刷

C部 Caption 属性 标签文字的内容

ChangeFileExt 函数 改变文件的后缀

ChDir 函数 改变当前目录

Checked 属性 确定复选框选中状态

Chr 函数 返回指定序数的字符

CloseFile 命令 关闭打开的文件

Color 属性 标签的颜色

Columns 属性 显示的列数

CompareStr 函数 比较字符串(区分大小写)

Concat 函数 合并字符串

Continue 命令 继续for、while、repeat的下一个循环

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

Cos 函数 余弦函数

Ctl3D 属性 是否具有3D效果

CreateDir 函数 新建一个目录(父目录必须存在)

Cursor 属性 鼠标指针移入后的形状

D部 Date 函数 返回当前的日期

DateTimeToFileDate 函数 将DELPHI的日期格式转换为DOS的日期格式

DateTimeToStr 函数 将日期时间格式转换为字符串

DateTimeToString 函数 将日期时间格式转换为字符串

DateToStr 函数 将日期格式转换为字符串

DayOfWeek 函数 返回星期的数值

Dec 函数 递减变量值

DecodeDate 函数 将日期格式分解为年月日

DecodeTime 函数 将时间格式分解为时、分、秒、毫秒

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

DeleteFile 命令 删除文件

DiskFree 函数 返回剩余磁盘空间的大小

DiskSize 函数 返回指定磁盘的容量

Dispose 函数 释放动态变量所占的空间

DisposeStr 函数 释放字符串在堆栈中的内存空间

DirectoryExists 函数 判断目录是否存在.返回值Boolean DitherBackground 属性 使背景色的色彩加重或减少50%

DragCursor 属性 当鼠标按下时光标的形状

DragMode 属性 按动的作用方式

DropDownCount 属性 容许的显示数据项的数目

E部 EditMask 属性 编辑模式

Enabled 属性 是否使标签呈现打开状态

EncodeDate 函数 将年月日合成为日期格式

EncodeTime 函数 将时、分、秒、毫秒合成为时间格式

EndMargin 属性 末尾边缘

Eof 函数 对有类型或无类型文件测试是否到文件尾

Eoln 函数 返回文本文件的行结束状态

Erase 命令 删除外部文件

ExceptAddr 函数 返回引起当前意外的地址

Exclude 函数 从集合中删除一些元素

ExceptObject 函数 返回当前意外的索引

Exit 命令 立即从当前的语句块中退出

Exp 函数 指数函数

ExpandFileName 函数 返回包含绝对路径的字符串

ExtractFileDrive 函数 返回盘符

ExtendedSelect 属性 是否允许存在选择模式,True时,MultiSelect才有意义

ExtractFileDir 函数 返回驱动器和路径

ExtractFileExt 函数 返回文件的后缀

ExtractFileName 函数 返回文件名

ExtractFilePath 函数 返回指定文件的路径

ExtractRelativePath 函数 根据给出的绝对路劲相对于某一绝对路径的相对路径

ExrtractShortPathName 函数 长路径名转为短路径名

F部 FileAge 函数 返回文件已存在的时间

FileClose 命令 关闭指定的文件

FileCreate 命令 用指定的文件名建立新文件

FileDateToDateTime 函数 将DOS的日期格式转换为DELPHI的日期格式

FileExists 函数 检查文件是否存在

FileGatAttr 函数 返回文件的属性

FileGetDate 函数 返回文件的DOS日期时间标记

FileOpen 命令 用指定的存取模式打开指定的文件 FilePos 函数 返回文件的当前指针位置

FileRead 命令 从指定的文件读取

FileSearch 命令 在目录中搜索指定的文件

FileSeek 函数 改变文件的指针

FileSetAttr 函数 设置文件属性

FileSetDate 函数 设置文件的DOS日期时间标记

FileSize 函数 返回当前文件的大小

FileWrite 函数 对指定的文件做写操作

FillChar 函数 用指定的值填充连续字节的数

FindClose 命令 终止FindFirst/FindNext序列

FindFirst 命令 对指定的文件名及属性搜索目录

FindNext 命令 返回与文件名及属性匹配的下一入口

FloatToDecimal 函数 将浮点数转换为十进制数

FloatToStrF 函数 将浮点数转换为字符串

FloatToStr 函数 将浮点数转换为字符串

FloatToText 函数 将给定的浮点数转换为十进制数

FloatToTextFmt 函数 将给定的浮点数转换为十进制数

Flush 函数 将缓冲区的内容刷新到输出的文本文件中

FmtLoadStr 函数 从程序的资源字符串表中装载字符串

FmtStr 函数 格式化一系列的参数,其结果以参数Result返回

ForceDirectories 函数 创建目录,父级目录可以不存在

Font 属性 设置字体

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

FormatBuf 函数 格式化一系列的参数

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

FormatFloat 函数 指定浮点数格式

Frac 函数 返回参数的小数部分

FreeMem 函数 按给定大小释放动态变量所占的空间

G部 GetDir 函数 返回指定驱动器的当前目录

GetCurrentDir 函数 返回当前目录的绝对路径

GetHeapStatus 函数 返回内存管理器的当前状态

GetMem 函数 建立一指定大小的动态变量,并将指针指向该处

GetMemoryManager 函数 返回内存管理器的入口点

Glyph 属性 按钮上的图象

GetCursorPos(p) 函数 取得鼠标的位置

相关文档
最新文档