当前位置：搜档网 › Delphi7皮肤控件的安装及使用过程

Delphi7皮肤控件的安装及使用过程

1、安装过程

（1）启动delphi7，点击“File-Open”

（2）选择皮肤控件所在的文件夹下的WinSkin7.dpk文件。

（3）点击“Complie”然后点“Install”即可。安装后弹出对话框如下图：

（4）安装后工具栏添加一个皮肤控件：如下：

（5）编译项目时“File not found: 'WinSkinStore.dcu”错误的解决办法：

把这个包下所有的DCU文件全拷到你的DLEPHI安装目录下delphi\lib下面就可以了。

我的安装目录如下：C:\Program Files\Borland\Delphi7\Lib

经测试，使用将dcu文件Copy到Lib目录下的方法是可以的。编译正常了。

或者：

（在delphi的Tools->envirenment options->library->library paths中加上你

WinSkinStore, WinSkinData文件所在路径，原理同上。）

2、使用过程：

该控件组包括两个控件：

SkinData和SkinStore。

下面开始使用SkinData即可进行皮肤的更换。SkinStore用于更深层次的使用。

在窗体上添加SkinData后，设置属性：SkinFile为你的皮肤文件（即.skn文件）。然后设置Active 为true即可。（其它属性不用做修改）如下图：

DEMO运行效果如下：

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函数大全

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)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字符串处理函数

【字符串函数大全】首部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.sodocs.net/doc/9618494759.html,pareString 例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText结尾说明不区分大小写参考function https://www.sodocs.net/doc/9618494759.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函数大全 (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 位操作的函数(修改了一下，更靠近使用习惯) ///// unit BitControl; interface /// /||| INT32 INT16 BYTE |||///// /// /|||第…. 8 7 6 5 4 3 2 1 位|||///// /// /||| …… B7 B6 B5 B4 B3 B2 B1 B0 |||///// uses SysUtils; type TBitCount = (Bit_8 = 8, Bit_16 = 16, Bit_32 = 32); // getbit方法可以输入一个数,查询指定位是1还是0. function getbit(number: Integer; // 要查询位的数 nBit: Byte; // 要查数的第几位 BitCount: TBitCount // 是输入的数的位数,8,16,32 ): Byte; // 函数返回的是要查的数的第几位的值 // SetBit设置一个数的第几位的值为1或0. function SetBit(number: Integer; // 要设置位的数 nBit: Byte; // 数的第几位 BitCount: TBitCount; // 数的位数,8,16,32 value: Byte // 要置1或0,Value只能输入1或0. ): Integer; // 返回修改位后的数 // 取得一个数中从第几个位开始取多少个位的值 function getbits(number: Integer; // 要取位的数 nBit, // 从第几位开始取位 iBit: Byte; // 取多少位 BitCount: TBitCount // 数的位数,8,16,32 ): Integer; // 返回取位后的数 // 这个函数可以把一个数转换为二进制值的字符串 function int2bin(number: Integer; // 要转换的数 BitCount: TBitCount // 数的位数,8,16,32 ): string; // 返回转换后的字符串 implementation /// ////////////////////////////////////////////////////////////////////////////// function getbit(number: Integer; nBit: Byte; BitCount: TBitCount): Byte; begin GetBit := number;

Delphi操作EXCEL函数整理

一、使用单元： Use :EXCEL 2000, ComObj 二、定义 var ExcelApp,Sheet,Range: Variant; 注释： ExcelApp 为定义的Excel 对象 Sheet 为定义的工作表（Sheet）对象 Range 为定义的工作表范围三、关于Excel 对象创建初始化以及工作表、工作表范围的初始化 1. 创建excel对象： ExcelApp := CreateOleObject( 'Excel.Application' ); 2. 显示当前窗口： ExcelApp.Visible := True; 3. 更改Excel 标题栏： ExcelApp.Caption := '应用程序调用Microsoft Excel'; 4. 添加新工作簿： ExcelApp.WorkBooks.Add; 5 打开已存在的工作簿： ExcelApp.WorkBooks.Open(FilePath); 6.设置工作簿默认工作表张数 ExcelApp.SheetsInNewWorkbook := 1; 7.设置工作表名称 ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum].Name := PName; 8.工作表初始化 Sheet:= ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum]; 9.工作表范围初始化 Range := Sheet.Range['A1:DL1'] ; 10.设置第2个工作表为活动工作表： ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 三、单元格赋值设置数值类型 1. 给单元格赋值： ExcelApp.Cells[row, column].Value := '第一行第四列'; 或 Sheet.Cells[row, column] := ‘第一行第四列’; 2 清除第一行第四列单元格公式：

DELPHI中Format函数功能及用法详解

DELPHI中Format函数功能及用法详解DELPHI中Format函数功能及用法详解function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能：返回按指定方式格式化一个数组常量的字符形式说明这个函数是Delphi中用得最多的函数，现在就列举几个例子以得到直观的理解 "%" [索引":"] ["-"] [宽度] ["." 摘要] 类型它是以"%"开始,而以"类型"结束，"类型"表示一个具体的类型。中间是用来格式化"类型"的指令字符，是可选的。总结一下Format的用法: -------------------------------------------------------------------------------------- Format('x=%d', [12]); //'x=12' //最普通 Format('x=%3d', [12]); //'x= 12' //指定宽度 Format('x=%f', [12.0]); //'x=12.00' //浮点数 Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 Format('x=%8.2f'[12.0]) // 'x= 12.00' ; Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 Format('x=%.5d', [12]); //'x=00012' //前面补充0 Format('x=%.5x', [12]); //'x=0000C' //十六进制 Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 Format('x=%p', [nil]); //'x=00000000' //指针 Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 Format('x=%%', []); //'x=%' //得到"%" S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 -------------------------------------------------------------------------------------- ===================详细用法======================= 先来看看type,type可以是以下字符： d 十制数，表示一个整型值 u 和d一样是整型值，但它是无符号的，而如果它对应的值是负的，则返回时是一个2的32次方减去这个绝对值的数,如： Format('this is %u',[－2]); 返回的是：this is 4294967294

delphi笔记-内部函数参数

Delphi内部函数--

参数传递自定义过程procedure p1（a：integer，var b：real，const c:string）a,b,c 为形式参数调用过程p1(a1, b1, c1 ) a1,b1,c1为实际参数传递数值定义过程定义过程或函数时，在形参前不加保留字或加const Procedure swap1(a , b :integer) 或Procedure swap1(const a , b :integer) var c :integer begin c:=a；a:=b;b:=c; end；{a,b数值交换} 函数中用语句swap1(a1,b1)调用过程swap1(a , b :integer)，实参a1，b1数值传递给形参a，b，然后a，b数值交换，但运算后实参a1，b1数值不变，不进行交换传递地址 Procedure swap2(var a , b :integer) 或Procedure swap2(out a , b :integer) var c :integer 即定义过程或函数时，在形参前加保留字var或out begin begin c:=a；a:=b;b:=c; end；{a,b数值交换} 形参前加var后实参和形参公用内存地址，将实参的内存地址传递给形参，语句swap2(a2,b2)调用swap2(var a , b :integer)后内存中数值改变形参a,b数值交换，同时实参a2,b2的数值也交换

Delphi 参数作用范围 Project1 参数作用范围从小到大：过程/函数级，单元级、程序级；过程/函数级：在Function或Procedure内部定义的标示符，作用范围局限在该Function 或Procedure内，其它的Function或Procedure不能调用。局部变量单元级：在每个单元的Implementation部分声明的标示符，作用范围包括该单元的所有Function和Procedure，其它Unit的Function和Procedure不能调用。单元全局变量程序级：在每个单元的Interface部分声明的标示符，作用范围最大，可以被其它unit的Function和Procedure调用。程序全局变量调用方法如下：如果在Unit A中访问Unit B在Interface部分声明的变量VarofUnitB，首先在UnitA的Uses子句中加入UnitB，其次在访问VarOfUnitB时，加上限定UnitB.VarOfUnitB,又称限定标示符，语法格式如下： <单元名>.<标示符>

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);

在Delphi中字符串查找函数

在Delphi中字符串查找函数 Delphi提供的字符串函数里有一个Pos函数，它的定义是：它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。使用pos函数来查找字符第一次出现的位置 var str1:string; i,j:integer; begin str1:='dsf4654f6ad' ; j:=pos('<',str1);//在字符串str1中查找"<" if j<>0 then //得到的j是字符串中出现的位置，是整型 showmessage('<'+'在第'+inttostr(j)+'个位置'); //第十个位置 end; =============================================== 首部function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas 功能返回指针字符串Str2在Str1中第一个出现的地址说明没有找到则返回空指针;StrPos('12345', '3') = '345' 参考例子Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); =================================================== StrScan : 返回一个字符在一个 PChar 串中第一次出现的位置指针;

StrRScan : 返回一个字符在一个 PChar 串中最后一次出现的位置指针; StrPos : 返回一个 PChar 串在另一个 PChar 串中第一次出现的位置指针. //给你尝试一下，简单分隔一下吧。 program Project1; {$APPTYPE CONSOLE} uses SysUtils, Classes; function GetMainStrs(ATalks: string): TStrings; Var p1, p2, l2, l1: Integer; str: string; begin Result := TStringList.Create(); l1 := Length('：'); //分隔符的长度 l2 := Length('；'); //分隔符的长度 while(ATalks <> '') do begin p1 := Pos('：', ATalks); p2 := Pos('；', ATalks); if (p1>0) and (p2>0) then begin if (p1

Delphi Math单元函数

Delphi Math单元函数(2011-12-22 22:05:57)转载▼ 标签：杂谈分类：delphi 这个单元包含高性能的算术、三角、对数、统计和金融方面的计算及FPU程序函数用于补充Delphi语言System.pas 单元中的数学常规程序函数注意 1) 对于有些函数，这个单元中涉及的概念或常数由Earl F. Glynn (https://www.sodocs.net/doc/9618494759.html,) 和Ray Lischner (https://www.sodocs.net/doc/9618494759.html,)提供。 2) 所有的角度参数三角函数的结果都用弧度表示 3) 下列大部分的三角和对数程序直接的映射到Intel 80387 FPU 4) 浮点机指令、输入域、输出范围和错误处理主要由FPU 硬件决定 5) 汇编程序中的代码支持Pentium FPU 管线体系  常数 IEEE 浮点类型的范围, 包括非正规的 1) MinSingle = 1.5e-45; 最小Single数 2) MaxSingle = 3.4e+38; 最大Single数 3) MinDouble = 5.0e-324; 最小Double数 4) MaxDouble = 1.7e+308; 最大Double数 5) MinExtended = 3.4e-4932; 最小Extended数 6) MaxExtended = 1.1e+4932; 最大Extended数 7) MinComp = -9.223372036854775807e+18; 最小Comp数 8) MaxComp = 9.223372036854775807e+18; 最大Comp数下列常数不应当被用于比较关系，仅仅用于分配。若要用于比较关系请使用IsNan 和IsInfinity 函数。（已提供在后面） 9) NaN = 0.0 / 0.0; 非数(*$EXTERNALSYM NaN*) (*$HPPEMIT 'static const Extended NaN = 0.0 / 0.0;'*) 10) Infinity = 1.0 / 0.0; 正无穷大(*$EXTERNALSYM Infinity*) (*$HPPEMIT 'static const Extended Infinity = 1.0 / 0.0;'*) 11) NegInfinity = -1.0 / 0.0; 负无穷大(*$EXTERNALSYM NegInfinity*) (*$HPPEMIT 'static const Extended NegInfinity = -1.0 / 0.0;'*) 一、三角函数 1) 函数ArcCos(const X: Extended): Extended; （IN: |X| <= 1 OUT: [0..PI] 弧度） 2) 函数ArcSin(const X: Extended): Extended; （IN: |X| <= 1 OUT: [-PI/2..PI/2] 弧度） 3) 函数ArcTan2(const Y, X: Extended): Extended; IN: |Y| < 2^64, |X| < 2^64, X <> 0 OUT: [-PI..PI] 弧度）。计算ArcTan(Y/X), 并且返回一个正确象限内的角度 4) 过程SinCos(const Theta: Extended; var Sin, Cos: Extended) register； SinCos：比分别调用Sin 和Cos 计算同一个角度快两倍 5) 函数Tan(const X: Extended): Extended; 6) 函数Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 } 7) 函数Secant(const X: Extended): Extended; { 1 / cos(X) } 8) 函数Cosecant(const X: Extended): Extended; { 1 / sin(X) } 9) 函数Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) } 二、角度单位换算程序 1) 函数RadToDeg(const Radians: Extended): Extended; { 度数:= 弧度* 180 / PI } 2) 函数RadToGrad(const Radians: Extended): Extended; { 梯度:= 弧度* 200 / PI }

Delphi7皮肤控件的安装及使用过程

Delphi函数清单

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

Delphi函数大全

(DELPHI)API函数大全

delphi常用函数大全

Delphi字符串处理函数

Delphi函数大全 (2)

delphi的函数手册

Delphi 位操作的函数

Delphi操作EXCEL函数整理

DELPHI中Format函数功能及用法详解

delphi笔记-内部函数参数

Delphi7基本函数

在Delphi中字符串查找函数

Delphi Math单元函数

相关文档

最新文档

Delphi7皮肤控件的安装及使用过程

Delphi函数清单

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

Delphi函数大全

(DELPHI)API函数大全

delphi常用函数大全

Delphi字符串处理函数

Delphi函数大全 (2)

delphi的函数手册

Delphi 位操作的函数

Delphi操作EXCEL函数整理

DELPHI中Format函数功能及用法详解

delphi笔记-内部函数参数

Delphi7基本函数

在Delphi中字符串查找 函数

Delphi Math单元函数

相关文档

最新文档

在Delphi中字符串查找函数