当前位置：文档库 › Delphi日期函数及日期加减

Delphi日期函数及日期加减

Delphi日期函数、日期加减

Delphi里有现成的函数可以实现日期加减，是在DateUtils单元里的。function IncYear(const AValue: TDateTime;

const ANumberOfYears: Integer = 1): TDateTime;

// function IncMonth is in SysUtils

function IncWeek(const AValue: TDateTime;

const ANumberOfWeeks: Integer = 1): TDateTime;

function IncDay(const AValue: TDateTime;

const ANumberOfDays: Integer = 1): TDateTime;

function IncHour(const AValue: TDateTime;

const ANumberOfHours: Int64 = 1): TDateTime;

function IncMinute(const AValue: TDateTime;

const ANumberOfMinutes: Int64 = 1): TDateTime;

function IncSecond(const AValue: TDateTime;

const ANumberOfSeconds: Int64 = 1): TDateTime;

function IncMilliSecond(const AValue: TDateTime;

const ANumberOfMilliSeconds: Int64 = 1): TDateTime;

Day 开头的函数

●

Unit

DateUtils

function DateOf(const Avalue: TDateTime): TDateTime;

描述

使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个

只带有日期的 TDateTime 类型变量。

例如：

showmessage(DateTimetostr(dateof(now())));

你得到的是 2003/03/19

而 showmessage(DateTimetostr((now())));

得到的是 2003/03/19 10:50:49

●function DateTimeToStr(DateTime: TDateTime): string;

描述

DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个

字符串，使用给定的全局变量 ShortDateFormat 的格式，时间部分按照

给定的全局变量 LongTimeFormat 的格式。

其中 DateTime 为零的部分将不会显示出来。

例如：

Short DateFormat:=’yyyy mm dd’;

showmessage(DateTimetostr((now())));

你将得到：2003 03 19 10:50:49

●procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);

描述：

DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式

转化成字符串，并保存在Result中。

对于Format的格式类型，请看 Date-Time format strings 的帮助。

例如：

DateTimeToString(result,’yyyy mm dd’,now());

那么 result的结果为：2003 03 19 10:50:49

●procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);

描述：

有时为了调用API函数来使用系统时间，你可以使用 DateTimeToSystemTime 方法，来将一个TDateTime 类型的时间变量转换成一个 TSystemTime 类型的系统时间。

●function DateTimeToUnix(const Avalue: TDateTime ): Int64;

描述：

使用 DateTimeToUnix 函数来将一个 TDateTime 型时间变量转换成一个相应的 Unix 格式

的日期和时间。

Unix date-and-time values are encoded as the number of seconds that have elapsed

since midnight at the start of January 1, 1970.

●function DateToStr(Date: TDateTime): string;

描述：

使用 DateToStr 函数能得到 TDateTime 日期时间类型的日期部分。日期的转换格式依赖于

全局变量 ShortDateFormat。

●function DayOf(const Aval ue: TDateTime): Word;

描述：

对于给定的TDateTime类型的日期时间，使用 DayOf 函数能得到该日期是该月份的第几天。

该函数的返回数值在 1 到 31 之间

注意：DayOf 函数得到的结果与 DayOfTheMonth 相同。

例如：

showmessage(inttostr(dayof(now)));

得到的是：19 （今天是某月19日）

●function DayOfTheMonth(const Avalue: TDateTime): Word;

与 DayOf 相同。

●function DayOfTheWeek(const Avalue: TDateTime): Word;

描述：

对于给定的TDateTime类型的日期时间，使用 DayOfTheWeek 函数能得到该日期是该星期的

第几天。DayOfTheWeek 函数的返回数值为 1 到 7，其中 1 表示星期一，而 7 表示星期日。

注意：DayOfTheWeek 是 ISO 8601 标准的（此标准为星期一是一周的第一天）。对于一周

的第一天是星期日的标准，如果想获得星期数，请使用 DayOfWeek 函数。

Tip: To make the return value more readable, use the Day of week constants.

●function DayOfTheYear(const Avalue: TDateTime): Word;

描述：

根据给定的日期时间参数Avalue，使用 DayOfTheYear 函数能得到在该日期所在的年份中，该

日期按照顺序所计算的天数。因此，作为TDateTime类型的变量“1月1日”在该函数所得到的

结果为 1 ，“1月2日”所得到的结果为 2，“2月1日”所得到的结果就为 32，依次类推。

●function DayOfWeek(Date: TDateTime): Integer;

Description

DayOfWeek returns the day of the week of the specified date as an integer between

1 and 7, where Sunday is the first day of the week and Saturday is the seventh.

Note: DayOfWeek is not compliant with the ISO 8601 standard, which defines Monday

as the first day of the week. For an ISO 8601 compliant version, use the DayOfTheWeek function instead.

描述：

按照给定的TDateTime类型的参数Date，DayOfWeek 函数得到一周中的第几天，从1到7。

这里星期日是一周的第一天，而星期六是第七天。

●function DaysBetween(const ANow, AThen: TDateTime): Integer;

描述：

根据两个TDateTime类型的日期时间变量 ANow 和 AThen，DaysBetween函数能得到两者之间的

天数的差距。

DaysBetween 仅仅根据天数的不同来计算。因此，对于 1999年12月31日下午11点59分到2000年1月1日 11点58分，该函数得到的结果是 0，因为两者之间的时间差别还差 1 分钟才到1 天。

●function DaysInAMonth(const AYear, AMonth: Word): Word;

描述：

对于各定的年份和月份，DaysInAMonth 函数能得到该月份的总天数。

年份应该为从 1 到 9999

月份应该为从 1 到 12

●function DaysInAYear(const AYear: Word): Word;

描述：

对于给定的年份，DaysInAYear函数能得到该年份的总天数。

年份应该为 1 到 9999。

●function DaysInMonth(const Avalue: TDateTime): Word;

描述：

根据给定的TDateTime类型的时间日期参数Avalue，DaysInMonth函数能得到该月份的总天数。

●function DaysInYear(const Avalue: TDateTime): Word;

描述：

根据给定的TDateTime类型的时间日期参数Avalue，DaysInYear函数能得到该年份的总天数。

●function DaySpan(const ANow, AThen: TDateTime): Double;

描述：

根据两个TDateTime类型的日期时间参数ANow和AThen，DaySpan能得到在天数上的差距。

与 DaysBetween 函数不同，DaysBetween 函数只是计算整的天数，而 DaySpan函数会

将不足一天的数也得到。

注意：此函数返回的数值为 Double 型。

☆ Month 开头的函数

●function Mo nthOf(const Avalue: TDateTime): Word;

描述：

根据给定的TDateTime类型的时间日期参数Avalue，MonthOf函数能得到该年份的该月份数。MonthOf返回数值为 1 到 12。

注意：MonthOf函数得到的数值与MonthOfTheYear函数相同

●function MonthOfTheYear(const Avalue: TDateTime): Word;

与MonthOf函数相同。

●function MonthsBetwee n(const ANow, AThen: TDateTime): Integer;

描述：

根据两个给定的TDateTime类型的参数ANow和AThen，MonthsBetween函数能得到两个日期在月份上差距数。因为月份的天数是不同的，所以 MonthsBetween 函数返回的是一个近似值，该近似

值基于每个月份为 30.4375 天。不足一个月的数字将不被计算。

因此，例如，对于 2月1日到 2月28日，MonthsBetween 返回的数值为 0。

同样，对于 2月1日到 3月1日，MonthsBetween 返回的数值也是 0。

●function MonthSpan(const ANow, AThen: TDateTime): Double;

描述：

值基于每个月份为 30.4375 天。与 MonthsBetween 函数不同，MonthsBetween函数不计算不足

一个月的数字，MonthSpan函数将会得到不足一个月的数字。

注意：此函数返回的类型为 Double

●function MonthStr(DateTime: TDateTime): string;

Description

HTTP message headers permit several formats for the representation of date and time values. MonthStr converts a TDateTime value into a string representing the month. MonthStr allows server applications to work with date values taken from HTTP request messages, without worrying about the details of how they are formatted.

☆ Week 开头的函数

●function WeekOf(const Avalue: TDateTime): Word;

描述：

根据TDateTime类型的日期时间参数AValu，WeekOf函数会得到该星期为一年的第几个

星期。

●function WeeksInAYear(const AYear: Word): Word;

描述：

WeeksInAYear 函数根据年份得到在该年份中共包含多少个星期。

●function WeeksBetween(const ANow, AThen: TDateTime): Integer;

描述：

根据两个TDateTime类型的日期时间参数ANow和AThen，WeeksBetween函数将得到这两个时间在星期上的差数。如果差数不足一个星期，则忽略掉。

●function WeekSpan(const ANow, AThen: TDateTime): Double;

描述：

根据两个TDateTime类型的日期时间参数ANow和AThen，WeeksBetween函数将得到这两个时间在星期上的差数。如果差数不足一个星期，则WeekSpan函数不会忽略掉。

注意：此函数的返回类型为 Double

☆ Year 开头的函数

●function YearOf(const Avalue: TDateTime): Word;

描述：

根据给定的TDateTime类型的日期时间参数Avalue，YearOf函数能得到该日期的年份数字。YearOf函数返回的数值为从 1 到 9999

●function YearsBetween(const ANow, AThen: TDateTime): Integer;

描述：

根据两个给定的TDateTime类型的参数ANow和AThen，YearsBetween函数能得到两个日期在年份上差距数。因为年份的天数是不同的，所以 YearsBetween 函数返回的是一个近似值，该近似

值基于每年的天数为 365.25 天。不足的一年的差距将不会被计算。

因此例如：对于 1月1日和12月31日，如果这两个日期在同一年，则 YearsBetween 返回数值为 0；如果这两个日期在临近的年份，则 YearsBetween 函数返回数值为 1。

●function YearSpan(const ANow, AThen: TDateTime): Double;

描述：

值基于每年的天数为 365.25 天。与 YearsBetween 函数不同，YearsBetween函数将忽略掉不

足一年的数字，而 YearSpan 将计算不足一年的数字。

注意：该函数返回类型为Double

●function Yesterday: TDateTime;

描述：

Yesterday函数能得到当前日期的前一天的日期，返回数值中不包括时间部分。

例如：

当前日期是 2003/3/19

则 showmessage(datetimetostr(Yesterday));

将得到 2003/3/18

☆日期的合成

●function EncodeDate(Year, Month, Day: Word): TDateTime;

描述：

EncodeDate函数将根据参数年份、月份、日子而得到一个TDateTime类型的时间变量。

●function EncodeD ateDay(const AYear, ADayOfYear: Word): TDateTime;

描述：

EncodeDateDay将根据参数年份和天数，而得到一个TDateTime类型的时间变量。

其中AYear 为 1 到 9999。

ADayOfYear 为日子在该年份顺序排列的天数，例如，1月1日时，ADayOfYear为1，

2月2日时，ADayOfYear为2，3月1日时，ADayOfYear为32。

●function EncodeDateMonthWeek(const AY ear, AMonth, AWeekOfMonth: Word; const ADayOfWeek: Word =

1): TDateTime;

描述：

EncodeDateMonthWeek 函数将根据参数年份、月份、星期数，星期几，来得到一个TDateTime类型

的时间变量。

其中AYear 为 1 到 9999。

其中AMonth 为 1 到 12。

AWeekOfMonth是在该月份的星期数，1 表示第一个星期，可能包含4天或更多的天数。

注意，一个月的第一天如果是星期5，星期6或星期日，用表示这三天的AMonth数值必须设定

为上一个月份的数字，同时 AWeekOfMonth 要设为在上一个月所在的星期数。

同样，如果一个月的最后一天是星期1，星期2，或星期3，那么用表示这三天的AMonth数值

必须设定为下一个月份的数字，同时 AWeekOfMonth 为 1。

ADayOfWeek表示星期几，星期一为1，星期二为2。

●function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, AS econd, AMilliSecond:

Word):TDateTime;

描述：

EncodeDateTime 根据参数年份、月份、日子、小时、分、秒、毫秒来得到一个TDateTime类型

日期时间。

●function EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 1): TDateTime;

描述：

EncodeDateWeek 根据参数年份、星期数、星期几来得到一个TDateTime类型日期时间。

AWeekOfYear是在该年份的星期数，1 表示第一个星期，可能包含4天或更多的天数。

注意，一年的第一天如果是星期5，星期6或星期日，用表示这三天的AYear数值必须设定

为上一个年份的数字，同时 AWeekOfYear 要设为在上一个年所在的星期数。

同样，如果一年的最后一天是星期1，星期2，或星期3，那么用表示这三天的AYear数值

必须设定为下一个年份的数字，同时 AWeekOfYear 为 1。

ADayOfWeek表示星期几，星期一为1，星期二为2。

●function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

描述：

EncodeTime函数根据参数小时、分、秒、毫秒得到个一个TDateTime数值。

☆日期的分解

●procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

描述：

DecodeDate从一个TDateTime类型参数Date中分解出得到年份、月份、日子。

●proc edure DecodeDateDay(const Avalue: TDateTime; out AYear, ADayOfYear: Word);

描述：

DecodeDateDay 方法会根据TDateTime类型参数Avalue 得到相应的年份和日期总数。

ADayOfYear：1月1日，此数值为1；1月2日，此数值为2。

●procedure DecodeDateMonthWeek(const Avalue: TDateTime; out AYear, AMonth, AWeekOfMo nth,

ADayOfWeek: Word);

描述：

DecodeDateMonthWeek方法根据TDateTime类型参数Avalue 得到相应的年份、月份、月份中的第几

个

星期、星期几

AYear：年份

AMonth：月份，1 到 12

AWeekOfMonth：在该月份中的第几个星期

ADayOfWeek：星期几。星期一为1。

●procedure DecodeDateTime(const Avalue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute,

ASecond, AMilliSecond: Word);

描述：

DecodeDateTime 方法根据TDateTime类型参数Avalue 得到相应的年份、月份、日子、小时、分、秒、

毫秒。

●procedure DecodeDateWeek(const Avalue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word);

描述：

DecodeDateWeek方法根据TDateTime类型参数Avalue 得到相应的年份、在该年中的第几个星期、星期几。

Delphi函数清单

[标准函数和过程] 首部 procedure Abort;$[SysUtils 功能引起放弃的意外处理。说明不显示任何错误信息。首部 function Abs(N: ): ;$[System 功能返回参数N的绝对值。说明函数结果与参数有相同类型，参数可以是整型也可以是浮点型。 ## Abs(-12) = 12；Abs(-12.03) = 12.03 首部 procedure AddExitProc(Proc: TProcedure);$[SysUtils 功能将旧版本某一过程添加到当前版本运行的库的结束过程表中。说明只能向下兼容，不能用在当前使用版本的首部 function Addr(X): Pointer;$[System 功能返回指定对象的内存地址。说明地址运算符 @ 可以产生与Addr相同的结果。首部 procedure AddTerminateProc(TermProc: TTerminateProc);$[SysUtils 功能将一过程添加到运行时库的终止过程表中。说明 Delphi 在程序结束时将终止该程序的全部进程，可以终止的进程都放在终止过程表中，程序通过结束终止过程表所有的进程来实现终止全部进程的目的。首部 function AdjustLineBreaks(const S: string): string;$[SysUtils 功能将给定字符串的行分隔符调整为Cr/Lf序列。说明首部 function AllocMem(Size: Cardinal): Pointer;$[SysUtils 功能在堆栈上分配给定大小为 Size字节的块，即在内存里开辟Size 大小的空间。说明 Cardinal 0..4294967295 32位无符号整数首部 function AnsiCompareFileName(const S1, S2: string): Integer;$[SysUtils 功能比较两个文件名的大小。不区分大小写。说明条件返回值 S1 > S2 | > 0 S1 < S2 | < 0 S1 = S2 | = 0 首部 function AnsiCompareStr(const S1, S2: string): Integer;$[SysUtils 功能比较两个字符串的大小。要区分大小写。说明参见AnsiCompareFileName。首部 function AnsiCompareText(const S1, S2: string): Integer;$[SysUtils 功能返回两个字符串是否相同的状态。不区分大小写。说明参见AnsiCompareFileName。首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char):string;$[SysUtils 功能将引用字串转换成结束引语返回。说明函数支持多字节字符系统[MBCS]。首部 function AnsiLastChar(const S: string): PChar;$[SysUtils 功能取参数S的最后一个字符，并转换成以null结束的字符串指针返回。说明 ##AnsiLastChar(‘Sysoft’) = {‘t\0’}; 首部 function AnsiLowerCase(const S: string): string;$[SysUtils 功能将字符串S转换为小写返回。说明函数支持多字节字符系统[MBCS]。首部 function AnsiLowerCaseFileName(const S: string): string;$[SysUtils 功能将文件名S转换成小写返回说明函数支持多字节字符系统[MBCS]。首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils 功能返回子串Substr出现在主串S中的第一个位置。说明首部 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils 功能返回引用字串的译文说明首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils 功能比较两个指针字符串的大小。要区分大小写。说明参见AnsiCompareFileName。

delphi数学模块函数、过程大全

Delphi如何使用基本的绘图函数绘制统计图

一个windows自带的画图工具是无论如何也不能满足我们的画图需要的，很多效果都需要我们在另外的工具中来实现。这些高级的功能是如何实现的呢，如何操纵一些基本的属性和函数，让它们最终能作出我们想要的效果呢？这里我们以绘制统计图来说明这些问题。解决思路―― 这里，我们暂且先撇开具体的问题，综合地一下讨论画图的问题。画图工具是基本元素的具体实现，对于我们初学者来说，还是有很好的参考价值的，在delphi 5中有一个自带的工程例子“……Borland\Delphi5\Demos\Doc\Graphex”，这个例子可以实现一些基本的绘图功能。对这个例子多加修改，一定会有所收获的。这里就不列出它的详细代码了，有心的读者可以自己找到这个例子。我这里只是想综合地讨论这方面的问题。使用DELPHI编写绘图软件的灵魂就在于操作画布,画笔和刷子，尽可能地挖掘它们的属性和相关参数的设置。 (一)画布画布,画笔和刷子之间的关系很明了.其实,画笔和刷子都是画布的一个属性.而画布也只是TForm,TImage,TShape等组件对象的一个属性,专门负责与图象相关的信息打交道.它的主要作用可以概括如下几点: 1.指定使用画笔,刷子和字体的使用类型; 2.绘制和填充指定形状的线或图形; 3.修饰和改变图象; 画布的主要属性有: Brush--指定填充图形和背景的样式 CanvasOrientation--指定画布的定位类型,有coLeftToRight, coRightToLeft两个属性; ClipRect--指定剪切矩形的边界; CopyMode--指定图形图象的复制模式; Font--指定画布上使用的字体; Handle--为画布指定窗口GDI对象的设备描述表; LockCount--指定画布被别的线程锁定的次数; Pen--指定画布上使用的画笔,具体见下面描述; PenPos--指定画笔当前的位置; Pixels--指定当前剪切矩形的象素颜色; TextFlags--指定字体在画布上的显示方式，有ETO_CLIPPED，ETO_OPAQUE，ETO_RTLREADING，ETO_GL YPH_INDEX,ETO_IGNORELANGUAGE,ETO_NUMERICSLOCALETO_NUMERIC SLATIN等值可选; 画布相关的API函数及其注释如下: Arc--按指定方式画一条弧; BrushCopy--把位图复制到指定的画布的矩形中，用画布刷子颜色替换位图的颜色; Chord--按指定方式画弦; CopyRect--从一个矩形区域复制部分图象到另一个矩形区域; Draw--用指定参数在指定位置画图; DrawFocusRect--按指定焦点风格，通过异或操作来绘制一焦点矩形; Ellipse--按指定参数画一椭圆; FillRect--按指定的刷子填充一矩形; FloodFill--使用当前选定的刷子填充指定设备描述表中的一块区域;

delphi自定义函数收集1

本文包含以下自定义函数： 1、Base64编码函数。 2、Base64解码函数。 3、截取汉字子串函数，防止出现半个汉字现象。 4、人民币小写转换为大写函数。 1、Base64编码函数。 //Base64编码函数 function Base64Encode(InputData: string): string; //; Var OutputData: String const Base64TableLength = 64; Base64Table: string[Base64TableLength] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+*'; Pad = '='; var i: integer; CurrentB, PrevB: byte; c: byte; s: char; InputLength: integer; OutputData: string; FilterDecodeInput: Boolean; function ValueToCharacter(value: byte; var character: char): Boolean; //****************************************************************** // 将一个在0..Base64TableLength-1区间内的值，转换为与Base64编码相对应 // 的字符来表示，如果转换成功则返回True //****************************************************************** begin result := true; if (value > Base64TableLength - 1) then result := false else character := Base64Table[value + 1]; end; begin FilterDecodeInput := true; OutputData := ''; InputLength := Length(InputData); i := 1;

DELPHI常用函数说明

一、数据类型转换函数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类型，用于保存转换后的浮点型数据。

Delphi函数大全

Delphi函数大全首部function Languages: TLanguages; $[ 功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考type 例子 12a12c12a12c. 参考例子:= IsValidIdent; ━━━━━━━━━━━━━━━━━━━━━ 首部function IntToStr(Value: Integer): string; overload; $[ 首部function IntToStr(Value: Int64): string; overload; $[ 功能返回整数Value转换成字符串说明Format('%d', [Value]) 参考function 例子:= IntToStr; ━━━━━━━━━━━━━━━━━━━━━ 首部function IntToHex(V alue: Integer; Digits: Integer): string; overload; $[ 首部function IntToHex(V alue: Int64; Digits: Integer): string; overload; $[ 功能返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 说明参数Digits指定字符最小宽度;最小宽度不足时将用0填充参考function 例子:= IntToHex, ; ━━━━━━━━━━━━━━━━━━━━━ 首部function StrToInt(const S: string): Integer; $[ 功能返回字符串S转换成整数说明字符串非整数表达时将引起异常参考procedure 例子:= StrToInt; ━━━━━━━━━━━━━━━━━━━━━ 首部function StrToIntDef(const S: string; Default: Integer): Integer; $[ 功能返回字符串S转换成整数说明字符串非整数表达时则返回默认值Default 参考procedure 例子:= StrToIntDef, 0); ━━━━━━━━━━━━━━━━━━━━━ 首部function TryStrToInt(const S: string; out Value: Integer): Boolean; $[ 功能返回字符串S转换成整数V alue是否成功说明字符串非整数表达时返回False并且Value将输出为0 参考procedure 例子 ..);打开失败则返回负数参考function

DELPHI常用组件

Delphi常用组件的使用目录 1．按钮类组件 1.1Button组件

Button组件位于Standard页。 Button组件的常用属性表属性描述 Cation用于在按钮上显示文本内容 Cancel用来指定按钮是否为取消按钮 Default用于指定按钮是否为默认按钮，在按Enter键时也选中命令按钮Hint设置鼠标在组件上短暂停时在组件旁显示的提示小窗口的内容ShowHint确定是否显示提示文本，默认值是FALSE 1.2Bitbtn组件 Bitbtn组件（位图组件）位于Additional，与Button很相似，只是多了一个位图符号在按钮上（如带有对号的OK，问好的Help等），其某些属性与Button类似，下表为其独有的的特性。（注：此组件不需编写代码） Bitbtn组件的常用属性表属性描述 Kind Kind属性的值就是位图按钮上显示的图标。Kind属性后的下拉列表中有一组默认图标的属性值，有bkCancel（取消）、bkAbort（终止）、bkAll（所有）、 bkClose（关闭）等。 Glyph用于在位图按钮上显示加载后的位图图形 NumGlyphs用于指明位图按钮所能使用位图的个数。在delphi中，最多允许向一个位图按钮提供4个图像文件，用于表示4中不停状态 Layout用于指出位图图形在位图组件上的放置位置 1.3SpeedButton组件 SpeedButton组件（加速按钮）位于Additional，常放置在Panel组件上，用于设计工具栏。它与Bitbtn相似，也可以显示图像和文本，但通常只用于显示图像。 SpeedButton组件的常用属性表属性描述 AllowAllUp用于设置同一组的加速按钮是否具有同时弹起的状态。若设置为FALSE，则当同一组加速按钮中的一个被按下时，其他加速按钮都处于弹起状态，即这组按钮必须有且只有一个处于按下状态 Down用于设置该加速按钮是否处于按下状态，若设置为TRUE，则表示按钮处于按下状态 Flat用于设置在鼠标移动到该按钮上时，按钮是否显示三维效果。为FLASE则不出现 GroupIndex用于将数个加速按钮设置成一组，只需将其值设置成不等于0的数值即可1．4RadioButton组件

《Delphi参考手册》

《Delphi参考手册》 ===========================================================================名称类型说明 --------------------------------------------------------------------------- Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块 AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写）AnsiCompareText函数比较字符串（不区分大小写）AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符 CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数 CompareStr函数比较字符串（区分大小写） Concat函数合并字符串

(DELPHI)API函数大全

(DELPHI)API函数大全 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称WNetGetLastError 获取网络错误的扩展错误信息WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC （统一命名规范）名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 2. API之消息函数 BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置GetMessageTime 取得消息队列中上一条消息处理完毕时的时间PostMessage 将一条消息投递到指定窗口的消息队列PostThreadMessage 将一条消息投递给应用程序RegisterWindowMessage 获取分配给一个字串标识符的消息编号ReplyMessage 答复一个消息 SendMessage 调用一个窗口的窗口函数，将一条消息发给那个窗口SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台CreateFileMapping 创建一个新的文件映射对象 DeleteFile 删除指定文件

delphi常用函数大全

delphi常用函数大全（转） Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块 AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写） AnsiCompareText函数比较字符串（不区分大小写） AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程 BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符 CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数 CompareStr函数比较字符串（区分大小写） Concat函数合并字符串 Continue命令继续for、while、repeat的下一个循环 Copy函数返回一字符串的子串 Cos函数余弦函数 Ctl3D属性是否具有3D效果 Cursor属性鼠标指针移入后的形状 Date函数返回当前的日期 DateTimeToFileDate函数将DELPHI的日期格式转换为DOS的日期格式DateTimeToStr函数将日期时间格式转换为字符串DateTimeToString函数将日期时间格式转换为字符串 DateToStr函数将日期格式转换为字符串

delphi函数参考手册

delphi函数参考手册名称类型说明 abort 函数引起放弃的意外处理 abs 函数绝对值函数 addexitproc 函数将一过程添加到运行时库的结束过程表中addr 函数返回指定对象的地址 adjustlinebreaks 函数将给定字符串的行分隔符调整为cr/lf序列align 属性使控件位于窗口某部分 alignment 属性控件标签的文字位置 allocmem 函数在堆栈上分配给定大小的块 allowgrayed 属性允许一个灰度选择 ansicomparestr 函数比较字符串（区分大小写）ansicomparetext 函数比较字符串（不区分大小写）ansilowercase 函数将字符转换为小写 ansiuppercase 函数将字符转换为大写 append 函数以附加的方式打开已有的文件 arctan 函数余切函数 assignfile 函数给文件变量赋一外部文件名 assigned 函数测试函数或过程变量是否为空 autosize 属性自动控制标签的大小 backgrounddi2001.jpg 属性背景色 beginthread 函数以适当的方式建立用于内存管理的线程bevelinner 属性控件方框的内框方式

bevelouter 属性控件方框的外框方式 bevelwidth 属性控件方框的外框宽度 blockread 函数读一个或多个记录到变量中blockwrite 函数从变量中写一个或多个记录borderstyle 属性边界类型 borderwidth 属性边界宽度 break 命令终止for、while、repeat循环语句 brush 属性画刷 caption 属性标签文字的内容 change 函数改变文件的后缀 chdir 函数改变当前目录 checked 属性确定复选框选中状态 chr 函数返回指定序数的字符 closefile 命令关闭打开的文件 color 属性标签的颜色 columns 属性显示的列数 comparestr 函数比较字符串（区分大小写）concat 函数合并字符串 continue 命令继续for、while、repeat的下一个循环copy 函数返回一字符串的子串 cos 函数余弦函数 ctl3d 属性是否具有3d效果

Delphi字符串处理函数

【字符串函数大全】首部function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能返回两个字符串是否相似说明ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 例子CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否包含子串ASubText 说明不区分大小写参考function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 例子CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText开头说明不区分大小写参考function https://www.wendangku.net/doc/fe3147631.html,pareString 例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText结尾说明不区分大小写参考function https://www.wendangku.net/doc/fe3147631.html,pareString 例子CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas 功能返回字符串AText中用子串AFromText替换成子串AToText的结果说明不区分大小写参考function SysUtils.StringReplace; type SysUtils.TReplaceFlags 例子Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);

Delphi函数大全

Delphi函数大全 Abort 函数引起放弃的意外处理 Abs 函数绝对值函数 AddExitProc 函数将一过程添加到运行时库的结束过程表中Addr 函数返回指定对象的地址 AdjustLineBreaks 函数将给定字符串的行分隔符调整为CR/LF序列Align 属性使控件位于窗口某部分 Alignment 属性控件标签的文字位置 AllocMem 函数在堆栈上分配给定大小的块 AllowGrayed 属性允许一个灰度选择 AnsiCompareStr 函数比较字符串（区分大小写）AnsiCompareText 函数比较字符串（不区分大小写）AnsiLowerCase 函数将字符转换为小写 AnsiUpperCase 函数将字符转换为大写 Append 函数以附加的方式打开已有的文件 ArcTan 函数余切函数 AssignFile 函数给文件变量赋一外部文件名 Assigned 函数测试函数或过程变量是否为空 AutoSize 属性自动控制标签的大小 BackgroundColor 属性背景色 BeginThread 函数以适当的方式建立用于内存管理的线程BevelInner 属性控件方框的内框方式 BevelOuter 属性控件方框的外框方式 BevelWidth 属性控件方框的外框宽度 BlockRead 函数读一个或多个记录到变量中 BlockWrite 函数从变量中写一个或多个记录 BorderStyle 属性边界类型 BorderWidth 属性边界宽度 Break 命令终止for、while、repeat循环语句 Brush 属性画刷 Caption 属性标签文字的内容 ChangeFileExt 函数改变文件的后缀 ChDir 函数改变当前目录 Checked 属性确定复选框选中状态 Chr 函数返回指定序数的字符 CloseFile 命令关闭打开的文件 Color 属性标签的颜色 Columns 属性显示的列数 CompareStr 函数比较字符串（区分大小写） Concat 函数合并字符串 Continue 命令继续for、while、repeat的下一个循环 Copy 函数返回一字符串的子串 Cos 函数余弦函数 Ctl3D 属性是否具有3D效果

Delphi函数大全 (2)

Delphi函数大全 function Int(X:Extended):Extended;//取整 function Round(X:Extended):Int64;//四舍五入function Trunc(X:Extended):Int64;//将小数无条件舍去信息来源:邪恶八进制信息安全团队名称类型说明 ---------------------------------------------------------------------------------- Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写）AnsiCompareText函数比较字符串（不区分大小写）AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录

delphi的函数手册

delphi的函数手册名称类型说明 ---------------------------------------------------------------------------------- Abort函数引起放弃的意外处理 Abs函数绝对值函数AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分Alignment属性控件标签的文字位置AllocMem函数在堆栈上分配给定大小的块AllowGrayed属性允许一个灰度选择AnsiCompareStr函数比较字符串（区分大小写）AnsiCompareText函数比较字符串（不区分大小写）AnsiLowerCase函数将字符转换为小写AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名Assigned函数测试函数或过程变量是否为空AutoSize属性自动控制标签的大小BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程BevelInner属性控件方框的内框方式BevelOuter属性控件方框的外框方式BevelWidth属性控件方框的外框宽度BlockRead函数读一个或多个记录到变量中BlockWrite函数从变量中写一个或多个记录BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句Brush属性画刷 Caption属性标签文字的内容ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数CompareStr函数比较字符串（区分大小写）Concat函数合并字符串 Continue命令继续for、while、repeat的下一个循环Copy函数返回一字符串的子串

Delphi基本语法格式和常用函数讲解

Delphi基本语法格式和常用函数分类：《Delphi中的进制转换(如hex与bin)》 ShowMessage(Format('%d:%d', [pos, length(keys)])+':'+keys); Format('%d:%d:%x', [pos, key_len,byte(pchar(keys)[0])]) // 其中keys 为string类型《delphi快捷键-和vim对应上的快捷键》 delphi延时函数代码！ Delphi文件操作函数 Delphi关于多线程同步的一些方法,信号量,互斥量和临界区 delphi轻松实现原子操作-CreateSemaphore 获得Integer和DWord类型的最大值 ShowMessage(IntToStr(High(Integer))); ShowMessage(IntToStr(High(DWord))); // delphi的sleep()就是一个ms毫秒级延时函数,但是使用sleep会导致程序短暂pending procedure TForm1.delay(MSecs: Integer); //延时函数，MSecs单位为毫秒(千分之1秒) var FirstTickCount, Now: Longint; begin if MSecs <> 0 then begin FirstTickCount := GetTickCount(); repeat Application.ProcessMessages; Now := GetTickCount(); until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount); end; end; var write_semaphore:THandle; write_semaphore:=CreateSemaphore(0, 1, 1, nil); procedure TForm1.Button1Click(Sender: TObject);