DELPHI中Format函数功能及用法详解
DELPHI控件属性方法事件及常用函数
![DELPHI控件属性方法事件及常用函数](https://img.taocdn.com/s3/m/87dfa00cf6ec4afe04a1b0717fd5360cba1a8d0a.png)
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中Format函数功能及用法详解
![DELPHI中Format函数功能及用法详解](https://img.taocdn.com/s3/m/21128475a417866fb84a8e45.png)
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' //前面补充0Format('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 4294967294f 对应浮点数e 科学表示法,对应整型数和浮点数,比如Format('this is %e',[-2.22]);返回的是:this is -2.22000000000000E+000,等一下再说明如果将数的精度缩小g 这个只能对应浮点型,且它会将值中多余的数去掉,比如Format('this is %g',[02.200]);返回的是:this is 2.2n 只能对应浮点型,将值转化为号码的形式。
Delphi中Format的使用方法
![Delphi中Format的使用方法](https://img.taocdn.com/s3/m/00b4ea0b443610661ed9ad51f01dc281e53a56ea.png)
Delphi中Format的使用方法vars: string;begin//指令类型 types := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]);//返回: 最大整数是: 2147483647; 最小整数是: -2147483648{ 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 }s := Format('最大的无负号整数是: %u',[High(Cardinal)]);//返回: 最大的无负号整数是: 4294967295{ %u表示一个无负号整数 }s := Format('输入-2的结果是: %u',[-2]);//返回: 输入-2的结果是: 4294967294{ 如果对应 %u 的是个负数, 则返回: 无负号整数最大值 - 这个数的绝对值 + 1 }s := Format('%s! %s',['你好','我是万一']);//返回: 你好! 我是万一{ %s 表示字符串 }s := Format('%f',[Pi]);//返回: Pi的值是: 3.14{ %f 表示浮点数, 保留或凑够两位小数点 }s := Format('%g',[01.2345000]);//返回: 1.2345{ %g 表示浮点数, 会去掉多余的 0 }s := Format('%n',[12345.6789]);//返回: 12,345.68{ %n 表示浮点数, 整数部分使用千位分隔符, 保留两位小数点 }s := Format('%m',[12345.6789]);//返回: ¥12,345.68{ %m 表示浮点数, 加货币记号, 转换结果取决于系统的地域设置 }s := Format('%e',[12345.6789]);//返回: 1.23456789000000E+004{ %e 用科学计数法表示整数或浮点数 }s := Format('%p',[@Self]);//返回: 0012F5BC{ %p 表示指针地址, 用十六进制表示 }s := Format('%x',[255]);//返回: FF{ %x 用十六进制表示一个整数 }//Indexs := Format('%s%s',['万','一']);s := Format('%0:s%1:s',['万','一']);//返回: 万一{ 上面两行的结果是一样的, 0: 对应数组中的第一个值; 1: 对应数组中的第二个值 }s := Format('%1:s%0:s',['万','一']);//返回: 一万{ 翻转了一下顺序 }s := Format('%1:s%0:s%0:s%1:s',['万','一']);//返回: 一万万一{ 反复使用 }//Width 与对齐方式s := Format('%d,%8d,%d',[1,2,3]);//返回: 1, 2,3{ 给第二个值指定了8个字符的宽度, 缺少的用空格填充; 如果指定少了则无效 }s := Format('%d,%-8d,%d',[1,2,3]);//返回: 1,2 ,3{ - 表示左对齐, 默认是右对齐的; - 符号在 Width 前面、Index 后面 }//指定精度 precs := Format('%.9f',[Pi]);//返回: 3.141592654{ 指定小数点的位数, 取值范围1-9, 输入0也当1用 }s := Format('%.5d',[12]);//返回: 00012{ 这是给整数指定位数, 如果小了则无效 }s := Format('%.3s',['Format']);//返回: For{ 给字符串指定位数, 如果大了则无效 }s := Format('%.3e',[123.456]);//返回: 1.23E+002{ 给科学计数法指定位数 }//指令顺序:{ "%" [index ":"] ["-"] [width] ["." prec] type }ShowMessage(s);end;。
delphi 保留小数尾数的方法
![delphi 保留小数尾数的方法](https://img.taocdn.com/s3/m/eba5bce5f424ccbff121dd36a32d7375a517c650.png)
delphi 保留小数尾数的方法在Delphi中保留小数尾数的方法可以通过以下几种方式实现:1. 使用Format函数:可以使用Format函数来格式化数字,通过在格式字符串中指定小数位数来保留小数尾数。
例如:```delphivarnumber: Double;formattedNumber: string;beginnumber := 3.14159;formattedNumber := Format('%.2f', [number]);ShowMessage(formattedNumber); // 输出3.14end;```在上述示例中,'%.2f'表示保留2位小数。
2. 使用RoundTo函数:RoundTo函数可以帮助你按指定的小数位数四舍五入一个数字。
例如:```delphivarnumber: Double;roundedNumber: Double;beginnumber := 3.14159;roundedNumber := RoundTo(number, -2);ShowMessage(FloatToStr(roundedNumber)); // 输出3.14end;```在上述示例中,-2表示保留两位小数。
3. 使用FloatToStrF函数:FloatToStrF函数可以将一个浮点数转换为字符串,并且可以指定小数位数和格式。
例如:```delphivarnumber: Double;formattedNumber: string;beginnumber := 3.14159;formattedNumber := FloatToStrF(number, ffFixed, 10, 2);ShowMessage(formattedNumber); // 输出3.14end;```在上述示例中,ffFixed表示使用固定格式,10表示总位数,2表示小数位数。
Delphi格式化函数:Format.
![Delphi格式化函数:Format.](https://img.taocdn.com/s3/m/679bfabfb0717fd5360cdc81.png)
Format('%0.2d',[1] = '01'; //2表示两位 // formatdatetime('aaa',now;//当前星期formatdatetime('c',now;//以2003-8-16 23:03:23的形式显示当前日期和时间formatdatetime('d',now;//显示当前的日期 1被显示成1 formatdatetime('dd',now;//显示当前的日期 1被显示成01 formatdatetime('ddd',now;//显示当前的星期formatdatetime('ddddd',now;//以2003-8-1的形式显示年月日formatdatetime('dddddd',now;//以2003年8月1日的形式显示年月日formatdatetime('dddddd ddd',now;//以‘2003年8月1日星期五’的形式显示年月日及星期 formatdatetime('e',now;//显示年的最后一位2003被显示成3formatdatetime('ee',now;//显示年的最后二位2003被显示成03formatdatetime('eee',now;//显示年2003被显示成2003 formatdatetime('h',now;//显示小时1被显示成1 formatdatetime('hh',now;//显示小时1被显示成01 formatdatetime('m',now;//显示月1被显示成1 formatdatetime('mm',now;//显示月1被显示成01 formatdatetime('mmm',now;//以‘八月’的形式显示月份formatdatetime('n',now;//显示当前分钟1被显示成1 formatdatetime('nn',now;//显示当前分钟1被显示成01 formatdatetime('s',now;//显示当前秒1被显示成1 formatdatetime('ss',now;//显示当前秒1被显示成01 formatdatetime('t',now;//以1:05的形式显示小时和分钟 formatdatetime('tt',now;//以1:06:13的形式显示小时和分钟和秒formatdatetime('y',now;////显示年的最后二位2003被显示成03formatdatetime('yyy',now;//显示年2003被显示成2003 formatdatetime('z',now;//显示当前毫秒1被显示成1 formatdatetime('zz',now;//显示当前毫秒1被显示成01 formatdatetime('zzz',now;//显示当前毫秒1被显示成001 除上面之外的字母或字符就直接显示。
Delphi格式化函数:Format
![Delphi格式化函数:Format](https://img.taocdn.com/s3/m/3e849020192e45361066f5a3.png)
procedure TForm1.Edit1Enter(Sender: TObject);
begin
(sender as tedit).Color:=clred;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
post;
end;
end;
end;
finally
adoquery1.Bookmark:=bookmark;
end;
end;
(4).Form的一个出现效果。
procedure TForm1.Button1Click(Sender: TObject);
formatdatetime('dddddd ddd',now);//以‘2003年8月1日 星期五’的形式显示年月日及星期
formatdatetime('e',now);//显示年的最后一位2003被显示成3
formatdatetime('ee',now);//显示年的最后二位2003被显示成03
Format('%0.2d',[1]) = '01'; //2表示两位
//
formatdatetime('aaa',now);//当前星期
formatdatetime('c',now);//以2003-8-16 23:03:23的形式显示当前日期和时间
formatdatetime('d',now);//显示当前的日期 1被显示成1
begin
if key=#13 then
个人收集整理的常用DELPHI函数及说明
![个人收集整理的常用DELPHI函数及说明](https://img.taocdn.com/s3/m/4557738502d276a200292e6d.png)
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\'即可将“十六进制”转换为“十进制”。
DelphiFormat格式化数字
![DelphiFormat格式化数字](https://img.taocdn.com/s3/m/365b0efc112de2bd960590c69ec3d5bbfd0ada2f.png)
DelphiFormat格式化数字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=%.*f', [5, 12.0]); //'x=12.00000' //动态配置Format('x=%.5d', [12]); //'x=00012' //前⾯补充0Format('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); //连接字符串\function Format(const Format: string; const Args: array of const): string;Format字符串说明:"%" [index ":"] ["-"] [width] ["." prec] type(1) 格式化字符串必须以%开头(2) [index ":"] 索引指的是Args参数列表中要显⽰的每⼀项的序号。
delphi常用函数大全
![delphi常用函数大全](https://img.taocdn.com/s3/m/5b01054a79563c1ec5da71fe.png)
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函数将日期格式转换为字符串DayOfWeek函数返回星期的数值Dec函数递减变量值DecodeDate函数将日期格式分解为年月日DecodeTime函数将时间格式分解为时、分、秒、毫秒Delete函数从字符串中删除子串DeleteFile命令删除文件DiskFree函数返回剩余磁盘空间的大小DiskSize函数返回指定磁盘的容量Dispose函数释放动态变量所占的空间DisposeStr函数释放字符串在堆栈中的内存空间DitherBackground属性使背景色的色彩加重或减少50%DragCursor属性当鼠标按下时光标的形状DragMode属性按动的作用方式DropDownCount属性容许的显示数据项的数目EditMask属性编辑模式Enabled属性是否使标签呈现打开状态EncodeDate函数将年月日合成为日期格式EncodeTime函数将时、分、秒、毫秒合成为时间格式EndMargin属性末尾边缘Eof函数对有类型或无类型文件测试是否到文件尾Eoln函数返回文本文件的行结束状态Erase命令删除外部文件ExceptAddr函数返回引起当前意外的地址Exclude函数从集合中删除一些元素ExceptObject函数返回当前意外的索引Exit命令立即从当前的语句块中退出Exp函数指数函数ExpandFileName函数返回包含绝对路径的字符串ExtendedSelect属性是否允许存在选择模式,True时,MultiSelect才有意义ExtractFileDir函数返回驱动器和路径ExtractFileExt函数返回文件的后缀ExtractFileName函数返回文件名ExtractFilePath函数返回指定文件的路径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返回Font属性设置字体Format函数格式化一系列的参数并返回Pascal字符串FormatBuf函数格式化一系列的参数FormatDateTime函数用指定的格式来格式化日期和时间FormatFloat函数指定浮点数格式Frac函数返回参数的小数部分FreeMem函数按给定大小释放动态变量所占的空间GetDir返回指定驱动器的当前目录GetHeapStatus返回内存管理器的当前状态GetMem建立一指定大小的动态变量,并将指针指向该处GetMemoryManager返回内存管理器的入口点Glyph函数按钮上的图象Halt停止程序的执行并返回到操作系统Hi返回参数的高地址位High返回参数的上限值Hint属性提示信息Int返回参数的整数部分Include添加元素到集合中Insert在字符串中插入子串IntToHex将整型数转换为十六进制数IntToStr将整型数转换为字符串IOResult返回最新的I/O操作完成状态IsValidIdent测试字符串是否为有效的标识符Items属性默认显示的节点Kind属性摆放样式LargeChange属性最大改变值Layout属性图象布局Length函数返回字符串的动态长度Lines属性缺省显示内容Ln函数自然对数函数Lo函数返回参数的低地址位LoadStr函数从应用程序的可执行文件中装载字符资源LowerCase函数将给定的字符串变为小写Low函数返回参数的下限值Max属性最大值MaxLength属性最大长度Min属性最小值MkDir命令建立一子目录Move函数从源到目标复制字节MultiSelect属性允许同时选择几个数据项Name属性控件的名字New函数建立新的动态变量并设置一指针变量指向他NewStr函数在堆栈上分配新的字符串Now函数返回当前的日期和时间Odd测试参数是否为奇数OnActivate事件焦点移到窗体上时触发onClick事件单击窗体空白区域触发OnDblClick事件双击窗体空白区域触发OnCloseQuery事件使用者试图关闭窗体触发OnClose事件窗体关闭后才触发OnCreate事件窗体第一次创建时触发OnDeactivate事件用户切换到另一应用程序触发OnDragDrop事件鼠标拖放操作结束时触发OnDragOver事件有其他控件从他上面移过触发onMouseDown事件按下鼠标键时触发onMouseUp事件释放鼠标键时触发onMouseMove事件移动鼠标时触发OnHide事件隐藏窗体时触发onKeyDown事件按下键盘某键时触发onKeyPress事件按下键盘上的单个字符键时触发onKeyUp事件释放键盘上的某键时触发OnPaint事件窗体上有新部分暴露出来触发OnResize事件重新调整窗体大小触发OnShow事件在窗体实际显示之前瞬间触发Ord返回序数类的序数OutlineStyle属性类型OutOfMemoryError引起OutOfMemory意外PageIndex属性页索引Pages属性页ParamCount函数返回在命令行上传递给程序的参数数量ParamStr函数返回指定的命令行参数Pen属性画刷设置Pi函数返回圆周率PiPicture属性显示图象PictureClosed属性设置Closed位图PictureLeaf属性设置Leaf位图PictureMinus属性设置Minus位图PictureOpen属性设置Open位图PicturePlus属性设置Plus位图Pos函数在字符串中搜索子串Pred函数返回先前的参数Random函数返回一随机函数Randomize函数用一随机数初始化内置的随机数生成器Read函数对有格式的文件,读一文件组件到变量中;对文本文件,读一个或多个值到一个或多个变量中Readln函数执行Read过程,然后跳到文件下一行ReadOnly属性只读属性ReAllocMem函数分配一动态变量Rename函数重命名外部文件RenameFile函数对文件重命名Reset函数打开已有的文件Rewrite函数建立并打开一新的文件RmDir函数删除空的子目录Round函数将实数值舍入为整型值RunError函数停止程序的执行ScrollBars属性滚动条状态Seek函数将文件的当前指针移动到指定的组件上SeekEof函数返回文件的文件结束状态SeekEoln函数返回文件的行结束状态SelectedColor属性选中颜色SetMemoryManager函数设置内存管理器的入口点SetTextBuf函数给文本文件指定I/O缓冲区Shape属性显示的形状ShowException函数显示意外消息与地址Sin函数正弦函数SizeOf函数返回参数所占的字节数SmallChange属性最小改变值Sorted属性是否允许排序Sqr函数平方函数Sqrt函数平方根函数StartMargin属性开始边缘State属性控件当前状态Str函数将数值转换为字符串StrAlloc函数给以NULL结束的字符串分配最大长度-1的缓冲区StrBufSize函数返回存储在由StrAlloc分配的字符缓冲区的最大字符数StrCat函数将一字符串附加到另一字符串尾并返回合并的字符串StrComp函数比较两个字符串StrCopy函数将一个字符串复制到另一个字符串中StrDispose函数释放堆栈上的字符串StrECopy函数将一字符串复制到另一个字符串并返回结果字符串尾部的指针StrEnd函数返回指向字符串尾部的指针Stretch属性自动适应控件的大小StrFmt函数格式化一系列的参数StrIComp函数比较两个字符串(不区分大小写)StringToWideChar函数将ANSI字符串转换为UNICODE字符串StrLCat函数将一字符串中的字符附加到另一字符串尾并返回合并的字符串StrLComp函数以最大长度比较两个字符串StrLCopy函数将一个字符串中的字符复制到另一个字符串中StrLen函数返回字符串中的字符数StrLFmt函数格式化一系列的参数,其结果中包含有指向目标缓冲区的指针StrLIComp函数以最大长度比较两个字符串(不区分大小写)StrLower函数将字符串中的字符转换为小写StrMove函数将一个字符串中的字符复制到另一个字符串中StrNew函数在堆栈上分配一个字符串StrPas函数将以NULL结束的字符串转换为PASCAL类的字符串StrPCopy函数将PASCAL类的字符串复制为以NULL结束的字符串StrPLCopy函数从PASCAL类的最大长度字符串复制为以NULL结束的字符串StrPos函数返回一个字符串在另一个字符串中首次出现指针StrRScan函数返回字符串中最后出现字符的指针StrScan函数返回字符串中出现首字符的指针StrToDate函数将字符串转换为日期格式StrToDateTime函数将字符串转换为日期/时间格式StrToFloat函数将给定的字符串转换为浮点数StrToInt函数将字符串转换为整型StrToIntDef函数将字符串转换为整型或默认值StrToTime函数将字符串转换为时间格式StrUpper函数将字符串中的字符转换为大写Style属性类型选择Suce函数返回后继的参数Swap函数交换参数的高低地址位Tabs属性标记每一项的内容TabIndex属性标记索引Text属性显示的文本TextToFloat函数将字符串(以NULL结束的格式)转换为浮点数Time函数返回当前的时间TimeToStr函数将时间格式转换为字符串Trim函数从给定的字符串中删除前导和尾部的空格及控制字符TrimLeft函数从给定的字符串中删除首部的空格及控制字符TrimRight函数从给定的字符串中删除尾部的空格及控制字符Trunc函数将实型值截取为整型值Truncate函数截去当前文件位置后的内容UnSelectedColor属性未选中颜色UpCase将字符转换为大写UpperCase将给定的字符串变为大写Val函数将字符串转换为整型值VarArrayCreate函数以给定的界限和维数建立变体数组VarArrayDimCount函数返回给定变体的维数VarArrayHighBound函数返回给定变体数组维数的上界VarArrayLock函数锁定给定的变体数组VarArrayLowBound函数返回给定变体数组维数的下界VarArrayOf函数返回指定变体的数组元素VarArrayRedim函数通过改变上限来调整变体的大小VarArrayUnlock函数解锁指定的变体数组VarAsType函数将变体转换为指定的类型VarCase函数将变体转换为指定的类型并保存他VarClear函数清除指定的变体VarCopy函数将指定的变体复制为指定的变体VarFormDateTime函数返回包含日期时间的变体VarIsArray函数测试变体是否为数组VarIsEmpty函数测试变体是否为UNASSIGNEDVarIsNull函数测试变体是否为NULLVarToDateTime函数将给定的变体转换为日期时间VarType函数将变体转换为指定的类型并保存他Visible属性控件的可见性WantReturns属性为True时,按回车键产生一个回车符;为False时,按下Ctrl+Enter才产生回车符Write命令对有格式的文件,写一变量到文件组件中;对文本文件,写一个或多个值到文件中Writeln命令执行WRITE过程,然后输出一行结束标志WideCharLenToString函数将ANSI字符串转换为UNICODE字符串WideCharLenToStrWar函数将UNICODE字符串转换为ANSI字符串变量WideCharToString函数将UNICODE字符串转换为ANSI字符串WideCharToStrVar函数将UNICODE字符串转换为ANSI字符串变量delphi字符串函数大全函数function AnsiResemblesText(const A Text, 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功能返回字符串A Text是否包含子串ASubText说明不区分大小写参考function StrUtils.AnsiUppercase; function StrUtils.AnsiPos例子CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas功能返回字符串A Text是否以子串ASubText开头说明不区分大小写参考function pareString例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiEndsText(const ASubText, A Text: string): Boolean; $[StrUtils.pas功能返回字符串A Text是否以子串ASubText结尾说明不区分大小写参考function pareString例子CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas 功能返回字符串A Text中用子串AFromText替换成子串AToText的结果说明不区分大小写参考function SysUtils.StringReplace; type SysUtils.TReplaceFlags例子Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiMatchText(const AText: string; const A Values: array of string): Boolean; $[StrUtils.pas功能返回字符串数组A V alues中是否包含字符串A Text说明不区分大小写参考function StrUtils.AnsiIndexText例子CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);━━━━━━━━━━━━━━━━━━━━━函数function AnsiIndexText(const A Text: string; const A Values: array of string): Integer; $[StrUtils.pas功能返回字符串A Text在字符串数组A Values中的位置说明不区分大小写;如果不包含则返回-1参考function SysUtils.AnsiSameText例子SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);━━━━━━━━━━━━━━━━━━━━━函数function AnsiContainsStr(const AText, ASubText: string): Boolean; $[StrUtils.pas功能返回字符串A Text是否包含子串ASubText说明区分大小写参考function StrUtils.AnsiPos例子CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiStartsStr(const ASubText, A Text: string): Boolean; $[StrUtils.pas功能返回字符串A Text是否以子串ASubText开头说明区分大小写参考function SysUtils.AnsiSameStr例子CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiEndsStr(const ASubText, A Text: string): Boolean; $[StrUtils.pas功能返回字符串A Text是否以子串ASubText结尾说明区分大小写参考function SysUtils.AnsiSameStr例子CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiReplaceStr(const AText, AFromText, AToText: string): string; $[StrUtils.pas功能返回字符串A Text中用子串AFromText替换成子串AToText的结果说明区分大小写参考function SysUtils.StringReplace; type SysUtils.TReplaceFlags例子Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiMatchStr(const AText: string; const A Values: array of string): Boolean; $[StrUtils.pas功能返回字符串数组A V alues中是否包含字符串A Text说明区分大小写参考function StrUtils.AnsiIndexStr例子CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);━━━━━━━━━━━━━━━━━━━━━函数function AnsiIndexStr(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas功能返回字符串A Text在字符串数组A Values中的位置说明区分大小写参考function SysUtils.AnsiSameStr例子SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);━━━━━━━━━━━━━━━━━━━━━函数function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas功能返回字符串A Text的ACount个复本说明当ACount为0时返回''参考function System.SetLength例子Edit3.Text := DupeString(Edit1.Text, SpinEdit1.V alue);━━━━━━━━━━━━━━━━━━━━━函数function ReverseString(const A Text: string): string; $[StrUtils.pas功能返回字符串A Text的反序说明ReverseString('1234') = '4321'参考function System.SetLength例子Edit3.Text := ReverseString(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function StuffString(const A Text: string; AStart, ALength: Cardinal; const ASubText: string): string; $[StrUtils.pas功能返回嵌套字符串说明AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd'参考function System.Copy例子Edit3.Text := StuffString(Edit1.Text, SpinEdit1.V alue, SpinEdit2.Value, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function RandomFrom(const A Values: array of string): string; overload; $[StrUtils.pas功能随机返回字符串数组A Values中的一个元素说明之前建议执行Randomize参考function System.Random例子Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']);━━━━━━━━━━━━━━━━━━━━━函数function IfThen(A Value: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas功能返回指定的逻辑字符串说明IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否'参考<NULL>例子Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas功能返回字符串A Text左边的ACount个字符说明LeftStr('123456', 3) = '123'参考function System.Copy例子Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);━━━━━━━━━━━━━━━━━━━━━函数function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas功能返回字符串A Text右边的ACount个字符说明RightStr('123456', 3) = '456'参考function System.Copy例子Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);━━━━━━━━━━━━━━━━━━━━━函数function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas功能返回字符串A Text从AStart开始的ACount个字符说明其实就是Copy参考function System.Copy例子Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);━━━━━━━━━━━━━━━━━━━━━函数function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: Integer; SearchString: String; Options: TStringSearchOptions = [soDown]): PChar; $[StrUtils.pas功能返回第一个搜索到的指针位置说明这函数常用于文本中搜索字符串参考<NULL>例子///////Begin SearchBuffunction SearchEdit(EditControl: TCustomEdit; const SearchString: String;SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean;varBuffer, P: PChar;Size: Word;beginResult := False;if (Length(SearchString) = 0) then Exit;Size := EditControl.GetTextLen;if (Size = 0) then Exit;Buffer := StrAlloc(Size + 1);tryEditControl.GetTextBuf(Buffer, Size + 1);P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength,SearchString, SearchOptions);if P <> nil then beginEditControl.SelStart := P - Buffer;EditControl.SelLength := Length(SearchString);Result := True;end;finallyStrDispose(Buffer);end;end;procedure TForm1.Button1Click(Sender: TObject);varSearchOptions: TStringSearchOptions;beginSearchOptions := [];if CheckBox1.Checked thenInclude(SearchOptions, soDown);if CheckBox2.Checked thenInclude(SearchOptions, soMatchCase);if CheckBox3.Checked thenInclude(SearchOptions, soWholeWord);SearchEdit(Memo1, Edit1.Text, SearchOptions);Memo1.SetFocus;end;///////End SearchBuf━━━━━━━━━━━━━━━━━━━━━函数function Soundex(const AText: string; ALength: TSoundexLength = 4): string; $[StrUtils.pas功能返回探测字符串说明根据探测法(Soundex)可以找到相进的字符串;/genealogy/coding.html参考<NULL>例子Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value);━━━━━━━━━━━━━━━━━━━━━函数function SoundexInt(const AText: string; ALength: TSoundexIntLength = 4): Integer; $[StrUtils.pas功能返回探测整数说明ALength的值越大解码准确率越高参考<NULL>例子SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value);━━━━━━━━━━━━━━━━━━━━━函数function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas功能返回探测整数的解码说明DecodeSoundexInt(SoundexInt('hello')) 相当于Soundex('hello')参考<NULL>例子Edit2.Text := DecodeSoundexInt(SpinEdit2.Value);━━━━━━━━━━━━━━━━━━━━━函数function SoundexWord(const A Text: string): Word; $[StrUtils.pas功能返回探测文字数值说明没有参数ALength已经固定为4参考<NULL>例子SpinEdit2.Value := SoundexWord(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function DecodeSoundexWord(A Value: Word): string; $[StrUtils.pas功能返回探测文字数值的解码说明DecodeSoundexWord(SoundexWord('hello')) 相当于Soundex('hello')参考<NULL>例子Edit2.Text := DecodeSoundexWord(SpinEdit2.Value);━━━━━━━━━━━━━━━━━━━━━函数function SoundexSimilar(const AText, AOther: string; ALength: TSoundexLength = 4): Boolean; $[StrUtils.pas功能返回两个字符串的探测字符串是否相同说明Result := Soundex(A Text, ALength) = Soundex(AOther, ALength)参考<NULL>例子CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, SpinEdit1.Value);━━━━━━━━━━━━━━━━━━━━━函数function SoundexCompare(const AText, AOther: string; ALength: TSoundexLength = 4): Integer; $[StrUtils.pas功能返回比较两个字符串的探测字符串的结果说明Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, ALength))参考function SysUtils.AnsiCompareStr例子SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, SpinEdit1.Value);━━━━━━━━━━━━━━━━━━━━━函数function SoundexProc(const AText, AOther: string): Boolean; $[StrUtils.pas功能调用SoundexSimilar返回两个字符串的探测字符串是否相同说明系统变量AnsiResemblesProc的默认值参考function StrUtils.AnsiResemblesText例子[var AnsiResemblesProc: TCompareTextProc = SoundexProc;]━━━━━━━━━━━━━━━━━━━━━函数function NewStr(const S: string): PString; deprecated; $[SysUtils.pas功能返回一个新的字符串指针地址说明字符串S为空时返回NullStr参考procedure System.New例子////////Begin NewStr,DisposeStrprocedure TForm1.Button1Click(Sender: TObject);varP: PString;beginP := NewStr(Edit1.Text);Edit2.Text := P^;DisposeStr(P);end;////////End NewStr,DisposeStr━━━━━━━━━━━━━━━━━━━━━函数procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas功能释放字符串指针P资源说明配合函数NewStr使用参考procedure System.Dispose例子<如上参见,如下参见>━━━━━━━━━━━━━━━━━━━━━函数procedure AssignStr(var P: PString; const S: string); deprecated; $[SysUtils.pas功能将字符串S更新给字符串指针P说明更新值时会释放以前字符串指针的资源参考function SysUtils.NewStr;function SysUtils.DisposeStr例子////////Begin AssignStrprocedure TForm1.Button1Click(Sender: TObject);varP: PString;beginP := nil;AssignStr(P, Edit1.Text);Edit2.Text := P^;DisposeStr(P);end;////////End AssignStr━━━━━━━━━━━━━━━━━━━━━函数procedure AppendStr(var Dest: string; const S: string); deprecated; $[SysUtils.pas 功能在字符串Dest后追加字符串S说明相当于Dest := Dest + S;Delphi6已经不建议使用参考<NULL>例子////////Begin AppendStrprocedure TForm1.Button1Click(Sender: TObject);varS: string;beginS := Edit2.Text;AppendStr(S, Edit1.Text);Edit2.Text := S;end;////////End AppendStr━━━━━━━━━━━━━━━━━━━━━函数function UpperCase(const S: string): string; $[SysUtils.pas功能返回字符串S的大写形式说明非小写字符不处理参考procedure System.SetLength例子Edit2.Text := UpperCase(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function LowerCase(const S: string): string; $[SysUtils.pas功能返回字符串S的小写形式说明非大写字符不处理参考procedure System.SetLength例子Edit2.Text := LowerCase(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas功能返回比较两个字符说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写参考<NULL>例子SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; $[SysUtils.pas功能返回比较两个内存指针说明CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), PChar('12c'), 3)=False参考<NULL>例子CheckBox1.Checked := CompareMem(Self, Form1, 8);━━━━━━━━━━━━━━━━━━━━━函数function CompareText(const S1, S2: string): Integer; $[SysUtils.pas功能返回比较两个字符串说明不区分大小写参考<NULL>例子SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function SameText(const S1, S2: string): Boolean; $[SysUtils.pas功能返回两个字符串是否相等说明不区分大小写参考<NULL>例子CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiUpperCase(const S: string): string; $[SysUtils.pas功能返回字符串S的大写形式说明ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变参考function Windows.CharUpperBuff例子Edit2.Text := AnsiUpperCase(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiLowerCase(const S: string): string; $[SysUtils.pas功能返回字符串S的小写形式说明非大写字符不处理参考function Windows.CharLowerBuff例子Edit2.Text := AnsiLowerCase(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas功能反回比较两个字符串说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写参考function pareString例子SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas功能返回两个字符串是否相等说明区分大小写参考function SysUtils.AnsiCompareStr例子CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas功能反回比较两个字符串说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写参考function pareString例子SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas功能返回两个字符串是否相等说明不区分大小写参考function SysUtils.AnsiCompareText例子CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas功能返回比较两个指针字符串说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写参考function pareString例子SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))━━━━━━━━━━━━━━━━━━━━━函数function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas功能返回比较两个指针字符串说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 参考function pareString例子SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text))━━━━━━━━━━━━━━━━━━━━━函数function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas功能返回比较两个指针字符串指定长度说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 参考function pareString例子SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━函数function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas功能返回比较两个指针字符串指定长度说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写参考function pareString例子SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)━━━━━━━━━━━━━━━━━━━━━函数function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas功能返回指针字符串小写形式说明非大写字符不处理参考function Windows.CharLower例子Edit2.Text := AnsiStrLower(PChar(Edit1.Text));━━━━━━━━━━━━━━━━━━━━━函数function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas功能返回指针字符串大写形式说明非小写字符不处理参考function Windows.CharUpper例子Edit2.Text := AnsiStrUpper(PChar(Edit1.Text));━━━━━━━━━━━━━━━━━━━━━函数function AnsiLastChar(const S: string): PChar; $[SysUtils.pas功能返回字符串S的最后一个指针字符说明当字符串S为空串则返回空指针参考function SysUtils.ByteType例子Edit2.Text := AnsiLastChar(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas功能返回指针字符串P的最后一个指针字符说明当字符串P为空空指针则返回空指针参考function SysUtils.ByteType例子Edit2.Text := AnsiLastChar(PChar(Edit1.Text));━━━━━━━━━━━━━━━━━━━━━函数function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas功能返回双字节字符串的大写形式说明WideChar双字节字符参考function Windows.CharUpperBuffW例子Edit2.Text := WideUpperCase(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas功能返回双字节字符串的小写形式说明我怎么就测试不出来呢参考function Windows.CharLowerBuffW例子Edit2.Text := WideLowerCase(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function WideCompareStr(const S1, S2: WideString): Integer; $[SysUtils.pas 功能返回比较两个双字节字符串说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写参考function pareStringW例子SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas功能返回两个双字节字符串是否相同说明区分大小写参考function SysUtils.WideCompareStr例子CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function WideCompareText(const S1, S2: WideString): Integer; $[SysUtils.pas 功能返回比较两个双字节字符串说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写参考function pareStringW例子SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function WideSameText(const S1, S2: WideString): Boolean; $[SysUtils.pas功能返回两个双字节字符串是否相同说明不区分大小写参考function SysUtils.WideCompareText例子CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text);━━━━━━━━━━━━━━━━━━━━━函数function Trim(const S: string): string; overload; $[SysUtils.pas函数function Trim(const S: WideString): WideString; overload; $[SysUtils.pas功能返回除去字符串S左右不可见字符说明小于#32的字符看作不可见字符参考function System.Copy例子Edit2.Text := Trim(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function TrimLeft(const S: string): string; overload; $[SysUtils.pas函数function TrimLeft(const S: WideString): WideString; overload; $[SysUtils.pas功能返回除去字符串S左边不可见字符说明小于#32的字符看作不可见字符参考function System.Copy例子Edit2.Text := TrimLeft(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function TrimRight(const S: string): string; overload; $[SysUtils.pas函数function TrimRight(const S: WideString): WideString; overload; $[SysUtils.pas功能返回除去字符串S右边不可见字符说明小于#32的字符看作不可见字符参考function System.Copy例子Edit2.Text := TrimRight(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function QuotedStr(const S: string): string; $[SysUtils.pas功能返回字符串S在pascal中的表现形式说明单引号中的一个单引号将转成两个参考procedure System.Insert例子Edit2.Text := QuotedStr(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils.pas功能返回字符串S以字符Quote为引号的表现形式说明AnsiQuotedStr('hello"world', '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"'参考function SysUtils.AnsiStrScan例子Edit2.Text := AnsiQuotedStr(Edit1.Text, '"');━━━━━━━━━━━━━━━━━━━━━函数function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; $[SysUtils.pas功能返回以字符Quote为引号的表现形式原形说明表现形式非法时Src不变否则为空参考function SysUtils.AnsiStrScan例子///////Begin AnsiExtractQuotedStrprocedure TForm1.Button1Click(Sender: TObject);varP: PChar;beginP := PChar(Edit1.Text);Edit2.Text := AnsiExtractQuotedStr(P, '"');Edit3.Text := P;end;///////End AnsiExtractQuotedStr━━━━━━━━━━━━━━━━━━━━━函数function AnsiDequotedStr(const S: string; AQuote: Char): string; $[SysUtils.pas功能返回以字符AQuote为引号的表现形式原形说明表现形式非法时则返回S参考function SysUtils.AnsiExtractQuotedStr例子Edit2.Text := AnsiDequotedStr(Edit1.Text, '"');━━━━━━━━━━━━━━━━━━━━━函数function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): string; $[SysUtils.pas功能返回将给定字符串的行分隔符调整为CR/LF序列说明AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2' #13#10参考function SysUtils.StrNextChar例子<NULL>━━━━━━━━━━━━━━━━━━━━━函数function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas功能返回字符串Ident是否是正确的标识符说明标识符::字母|下划线[字母|下划线|数字]...参考<NULL>例子CheckBox1.Checked := IsValidIdent(Edit1.Text);━━━━━━━━━━━━━━━━━━━━━函数function IntToStr(Value: Integer): string; overload; $[SysUtils.pas函数function IntToStr(Value: Int64): string; overload; $[SysUtils.pas功能返回整数Value转换成字符串说明Format('%d', [Value])参考function SysUtils.FmtStr例子Edit2.Text := IntToStr(SpinEdit1.Value);━━━━━━━━━━━━━━━━━━━━━函数function IntToHex(Value: Integer; Digits: Integer): string; overload; $[SysUtils.pas。
delphi formatfloat用法
![delphi formatfloat用法](https://img.taocdn.com/s3/m/2c9abd6c2bf90242a8956bec0975f46527d3a787.png)
delphi formatfloat用法Delphi中的FormatFloat函数用于将浮点数格式化为字符串。
该函数的语法如下:```function FormatFloat(const Format: string; Value: Extended): string;```FormatFloat函数接受两个参数:Format和Value。
Format是一个字符串,用于指定返回结果的格式。
Value是要格式化的浮点数。
Format参数可以包含以下占位符以指定要显示的数字的不同部分:- `0`:用实际数字填充,如果该位没有数字则用0填充。
- `#`:用实际数字填充,如果该位没有数字则不显示。
- `.`:小数点占位符。
- `,`:千位分隔符。
- `.`:用于指定小数点的位置。
- `%`:用于显示百分比。
以下是一些示例,展示了FormatFloat函数的用法:```delphivarnumber: Extended;formattedString: string;beginnumber := 1234.5678;formattedString := FormatFloat('0', number); // 输出:1235formattedString := FormatFloat('#.00', number); // 输出:1234.57formattedString := FormatFloat('0.00', number); // 输出:1234.57formattedString := FormatFloat('0,0.00', number); // 输出:1,234.57formattedString := FormatFloat('#%', number); // 输出:123456.78%end;```在上述示例中,number是要格式化的浮点数。
delphi浮点数转字符串 格式
![delphi浮点数转字符串 格式](https://img.taocdn.com/s3/m/eeedfa193a3567ec102de2bd960590c69ec3d8bd.png)
delphi浮点数转字符串格式摘要:一、引言二、delphi 浮点数转字符串函数介绍1.函数原型2.函数参数3.函数功能三、delphi 浮点数转字符串实例1.实例代码2.实例运行结果四、总结正文:一、引言在编程过程中,我们经常需要将浮点数转换为字符串。
在Delphi 中,可以使用Format 函数实现这一功能。
本文将详细介绍Delphi 中浮点数转字符串的格式以及具体实例。
二、delphi 浮点数转字符串函数介绍1.函数原型在Delphi 中,可以使用Format 函数将浮点数转换为字符串。
Format 函数的原型如下:```function Format(const Format: string; const Args: array of const): string;```2.函数参数Format 函数需要两个参数:- Format:表示格式字符串,用于指定字符串的格式。
- Args:表示参数数组,用于提供需要转换的浮点数等数据。
3.函数功能Format 函数将根据格式字符串和参数数组中的数据,生成一个符合指定格式的字符串。
其中,浮点数转换为字符串的格式可以使用以下语法:```Format("浮点数格式字符串", [浮点数])```三、delphi 浮点数转字符串实例1.实例代码下面是一个使用Format 函数将浮点数转换为字符串的实例:```delphiprogram Project1;function FormatFloat(const Format: string; const Value: Extended): string;beginResult := Format(Format, [Value]);end;varFValue: Extended = 123.456;beginWriteLn(FormatFloat("%1.2f", FValue)); // 输出:123.46 ReadLn;end.```2.实例运行结果上述代码的运行结果为:```123.46```四、总结本文介绍了Delphi 中浮点数转字符串的格式以及具体实例。
delphi函数说明
![delphi函数说明](https://img.taocdn.com/s3/m/b4df336f9b6648d7c1c7461f.png)
Abort 函数引起放弃的意外处理Abs(real) 函数绝对值函数AddExitProc 函数将一过程添加到运行时库的结束过程表中Addr(variant) 函数返回指定对象的地址AdjustLineBreaks 函数将给定字符串的行分隔符调整为CR/LF序列AllocMem 函数在堆栈上分配给定大小的块AllowGrayed 属性允许一个灰度选择AnsiCompareStr(s1,s2) 函数比较字符串(区分大小写)返回 >0 ; =0 ; <0AnsiCompareText 函数比较字符串(不区分大小写)AnsiLowerCase(Str) 函数将字符转换为小写 (8位ASCii字符)//LowerCase(s) : 7位ASCii字符AnsiUpperCase(Str) 函数将字符转换为大写 //UpperCase(s)Append 函数以附加的方式打开已有的文件ArcTan 函数余切函数AssignFile 函数给文件变量赋一外部文件名Assigned 函数测试函数或过程变量是否为空AssignFile(file;fileName:String)BeginThread 函数以适当的方式建立用于内存管理的线程BevelInner 属性控件方框的内框方式BevelOuter 属性控件方框的外框方式BevelWidth 属性控件方框的外框宽度BlockRead 函数读一个或多个记录到变量中BlockWrite 函数从变量中写一个或多个记录Break 命令终止for、while、repeat循环语句 //continue 循环从下一次开始Brush 属性画刷BlockReadBlockWriteCos 函数余弦函数ChangeFileExt 函数改变文件的后缀ChDir 函数改变当前目录Checked 属性确定复选框选中状态Chr 函数返回指定序数的字符数字==> ASCIICloseFile 命令关闭打开的文件Columns 属性显示的列数CompareStr 函数比较字符串(区分大小写)Concat 函数合并多个字符串Continue 命令继续for、while、repeat的下一个循环ClrEol() 清除当前光标处到行末的字符ClrScr() 清除CRT窗口,光标到窗口左上角cursorTo(x,y:integer)continue 循环从下一次开始, break :中断循环Copy 函数返回一字符串的子串Insert(src,s,index)Delete(String,Index,count)Date 函数返回当前的日期DateTimeToFileDate 函数将DELPHI的日期格式转换为DOS的日期格式DateTimeToStr 函数将日期时间格式转换为字符串DateTimeToString 函数将日期时间格式转换为字符串DateToStr 函数将日期格式转换为字符串DayOfWeek 函数返回星期的数值Dec(x,n) 函数递减变量值DecodeDate 函数将日期格式分解为年月日DecodeTime 函数将时间格式分解为时、分、秒、毫秒Delete 函数从字符串中删除子串DeleteFile 命令删除文件DiskFree 函数返回剩余磁盘空间的大小DiskSize 函数返回指定磁盘的容量Dispose 函数释放动态变量所占的空间DisposeStr 函数释放字符串在堆栈中的内存空间DitherBackground 属性使背景色的色彩加重或减少50% DropDownCount 属性容许的显示数据项的数目DoneWinCRT //释放CRT窗口EditMask 属性编辑模式Enabled 属性是否使标签呈现打开状态EncodeDate 函数将年月日合成为日期格式TryEncodeDate 函数将年月日合成为日期格式EncodeTime 函数将时、分、秒、毫秒合成为时间格式Exclude(s:set of T;I:T) //从集合中删除元素 I EndMargin 属性末尾边缘Eof 函数对有类型或无类型文件测试是否到文件尾Eoln 函数返回文本文件的行结束状态Erase 命令删除外部文件ExceptAddr 函数返回引起当前意外的地址Exclude 函数从集合中删除一些元素ExceptObject 函数返回当前意外的索引Exit 命令立即从当前的语句块中退出Exp(x)= LOG(X) 函数指数函数 //ln(x) //自然对数ExpandFileName 函数返回包含绝对路径的字符串ExtendedSelect 属性是否允许存在选择模式,True时,MultiSelect才有意义ExtractFileDir 函数返回驱动器和路径ExtractFileExt 函数返回文件的后缀ExtractFileName 函数返回文件名ExtractFilePath 函数返回指定文件的路径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(F) 函数将缓冲区的内容刷新到输出的文本文件中,确保文件写入FmtLoadStr 函数从程序的资源字符串表中装载字符串FmtStr 函数格式化一系列的参数,其结果以参数Result返回Font 属性设置字体Format 函数格式化一系列的参数并返回Pascal字符串FormatBuf 函数格式化一系列的参数FormatDateTime 函数用指定的格式来格式化日期和时间 FormatDateTime('yyyy mmmm',MyDate) 返回如【2008 十二月】FormatFloat 函数指定浮点数格式Frac 函数返回参数的小数部分Free , FreeMem(P,size) 函数按给定大小释放动态变量所占的空间* Frac(X: Extended): Extended //返回 X 的小数部分 ( 123.567 =>0.567 )* Int(X: Extended): Extended //返回 x 的整数部分 ( 123.567 =>123.0 )* Round(X: Extended): Int64; //四舍五入返回整数 ( 123.567 =>124 )* Trunc(X: Extended): Int64; //返回 x 的整数部分 ( 123.567 =>123 )GetDir 返回指定驱动器的当前目录GetHeapStatus 返回内存管理器的当前状态GetMem 建立一指定大小的动态变量,并将指针指向该处GetMemoryManager 返回内存管理器的入口点Glyph 函数按钮上的图象GotoXY(x,y)Halt 停止程序的执行并返回到操作系统Hi 返回参数的高地址位 // Lo(x)High 返回参数的上限值 // Low(x)Hint 属性提示信息Int 返回参数的整数部分Include(s:set of T; I:T) 添加元素 I 到集合 T 中Insert(src,s,index) 将 src 插入的 s 的 index 位置IntToHex 将整型数转换为十六进制数IntToStr 将整型数转换为字符串IOResult 返回最新的I/O操作完成状态IsValidIdent 测试字符串是否为有效的标识符Items 属性默认显示的节点InitWinCRTIsLeapYear(year:word) 函数返回是否闰年Kind 属性摆放样式KeyPressed ReadKeyLargeChange 属性最大改变值Layout 属性图象布局Length 函数返回字符串的动态长度Lines 属性缺省显示内容Ln 函数自然对数函数Lo 函数返回参数的低地址位LoadStr 函数从应用程序的可执行文件中装载字符资源Low 函数返回参数的下限值Max 属性最大值MaxAvail MemAvailMaxLength 属性最大长度Min 属性最小值MkDir 命令建立一子目录Move 函数从源到目标复制字节MultiSelect 属性允许同时选择几个数据项Name 属性控件的名字New 函数建立新的动态变量并设置一指针变量指向他NewStr 函数在堆栈上分配新的字符串Now 函数返回当前的日期和时间Odd 测试参数是否为奇数 ofs(x)OnActivate 事件焦点移到窗体上时触发OnClick 事件单击窗体空白区域触发OnDblClick 事件双击窗体空白区域触发OnCloseQuery 事件使用者试图关闭窗体触发OnClose 事件窗体关闭后才触发OnCreate 事件窗体第一次创建时触发OnDeactivate 事件用户切换到另一应用程序触发OnDragDrop 事件鼠标拖放操作结束时触发OnDragOver 事件有其他控件从他上面移过触发OnMouseDown 事件按下鼠标键时触发OnMouseUp 事件释放鼠标键时触发OnMouseMove 事件移动鼠标时触发OnHide 事件隐藏窗体时触发OnKeyDown 事件按下键盘某键时触发OnKeyPress 事件按下键盘上的单个字符键时触发OnKeyUp 事件释放键盘上的某键时触发OnPaint 事件窗体上有新部分暴露出来触发OnResize 事件重新调整窗体大小触发OnShow 事件在窗体实际显示之前瞬间触发Ord 返回序数类的序数OutlineStyle 属性类型OutOfMemoryError 引起OutOfMemory意外PageIndex 属性页索引Pages 属性页ParamCount 函数返回在命令行上传递给程序的参数数量ParamStr 函数返回指定的命令行参数Pen 属性画刷设置Pi 函数返回圆周率PiPicture 属性显示图象PictureClosed 属性设置Closed位图PictureLeaf 属性设置Leaf位图PictureMinus 属性设置Minus位图PictureOpen 属性设置Open位图PicturePlus 属性设置Plus位图Pos 函数在字符串中搜索子串Pred 函数返回先前的参数ptr(Seg,Ofs) //取得 Seg 偏移 Ofs 后的地址Random 函数返回一随机函数Randomize 函数用一随机数初始化内置的随机数生成器Read 函数对有格式的文件,读一文件组件到变量中;对文本文件,读一个或多个值到一个或多个变量中Readln 函数执行Read过程,然后跳到文件下一行ReadOnly 属性只读属性ReAllocMem 函数分配一动态变量Rename 函数重命名外部文件RenameFile 函数对文件重命名Reset 函数打开已有的文件Rewrite 函数建立并打开一新的文件RmDir 函数删除空的子目录Round 函数将实数值舍入为整型值RunError 函数停止程序的执行ReadKeyScrollBars 属性滚动条状态Seek 函数将文件的当前指针移动到指定的组件上SeekEof 函数返回文件的文件结束状态SeekEoln 函数返回文件的行结束状态SelectedColor 属性选中颜色SetMemoryManager 函数设置内存管理器的入口点SetTextBuf 函数给文本文件指定I/O缓冲区Shape 属性显示的形状ShowException 函数显示意外消息与地址Sin 函数正弦函数SizeOf 函数返回参数所占的字节数SmallChange 属性最小改变值Sorted 属性是否允许排序Sqr 函数平方函数Sqrt 函数平方根函数StartMargin 属性开始边缘State 属性控件当前状态Str 函数将数值转换为字符串StrAlloc 函数给以NULL结束的字符串分配最大长度-1的缓冲区StrBufSize 函数返回存储在由StrAlloc分配的字符缓冲区的最大字符数StrCat(Dest,src) 函数将一字符串附加到另一字符串尾并返回合并的字符串, src 连接到 Dest 后StrCopy(Dest,src) 函数将一个字符串复制到另一个字符串中, src 拷贝到 Dest StrDispose 函数释放堆栈上的字符串StrECopy(Dst,src) 函数将一字符串复制到另一个字符串并返回结果字符串尾部的指针StrPCopy(Dst,src) 函数将PASCAL类的字符串复制为以NULL结束的字符串StrEnd(Pchar) 函数返回指向字符串尾部的指针Stretch 属性自动适应控件的大小StrFmt 函数格式化一系列的参数StrLFmt 函数格式化一系列的参数,其结果中包含有指向目标缓冲区的指针StringToWideChar 函数将ANSI字符串转换为UNICODE字符串strLCat(Dest,src,MaxLen) 函数将一字符串中的字符附加到另一字符串尾并返回合并的字符串strLCopy(Dst,src,MaxLen) 函数将一个字符串中的字符复制到另一个字符串中StrLen(str) 函数返回字符串中的字符数 //不包含 Null 结束符StrMove 函数将一个字符串中的字符复制到另一个字符串中StrNew 函数在堆栈上分配一个字符串StrPas 函数将以NULL结束的字符串转换为PASCAL类的字符串strDispose(str) strPos(pChar)succ(x) x的后续值StrPLCopy 函数从PASCAL类的最大长度字符串复制为以NULL结束的字符串StrPos 函数返回一个字符串在另一个字符串中首次出现指针StrRScan(str,char) 函数返回字符串中最后出现字符的指针 ,char 在 str 中最后一次出现的位置StrScan(str,char) 函数返回字符串中出现首字符的指针, char 在 str 中首次出现的位置StrToDate 函数将字符串转换为日期格式StrToDateTime 函数将字符串转换为日期/时间格式StrToFloat 函数将给定的字符串转换为浮点数StrToInt 函数将字符串转换为整型StrToIntDef 函数将字符串转换为整型或默认值StrToTime 函数将字符串转换为时间格式StrUpper 函数将字符串中的字符转换为大写StrLower 函数将字符串中的字符转换为小写Suce 函数返回后继的参数Swap 函数交换参数的高低地址位 , 高底字节交换strComp(const Str1, Str2 : PChar): Integer; 区分大小写比较StrIComp(const Str1, Str2:PChar): Integer; 不区分大小写比较StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal):Integer; 区分大小写比较以最大长度比较两个字符串StrLIComp(const Str1, Str2: PChar;MaxLen: Cardinal):Integer; 不区分大小写比较以最大长度比较两个字符串* SelectNext(ActiveControl,True,True); 模拟Tab键向下* SelectNext(ActiveControl,false,True); 模拟Tab键向上Tabs 属性标记每一项的内容TabIndex 属性标记索引Text 属性显示的文本TextToFloat 函数将字符串(以NULL结束的格式)转换为浮点数Time 函数返回当前的时间TimeToStr 函数将时间格式转换为字符串Trim 函数从给定的字符串中删除前导和尾部的空格及控制字符TrimLeft 函数从给定的字符串中删除首部的空格及控制字符TrimRight 函数从给定的字符串中删除尾部的空格及控制字符Trunc 函数将实型值截取为整型值Truncate 函数截去当前文件位置后的内容trackCursor 滚动 CRT 窗口使光标可见UnSelectedColor 属性未选中颜色UpCase 将字符转换为大写UpperCase 将给定的字符串变为大写 //AnsiUpperCase(s)LowerCase 函数将给定的字符串变为小写 //AnsiLowerCase(s)Val(s,v,code) 函数将字符串转换为整型值,将 s 串中从第一位开始的数字写入 V , 第 code 位非数字VarArrayCreate 函数以给定的界限和维数建立变体数组VarArrayDimCount 函数返回给定变体的维数VarArrayHighBound 函数返回给定变体数组维数的上界VarArrayLock 函数锁定给定的变体数组VarArrayLowBound 函数返回给定变体数组维数的下界VarArrayOf 函数返回指定变体的数组元素VarArrayRedim 函数通过改变上限来调整变体的大小VarArrayUnlock 函数解锁指定的变体数组VarAsType 函数将变体转换为指定的类型VarCase 函数将变体转换为指定的类型并保存他VarClear 函数清除指定的变体VarCopy 函数将指定的变体复制为指定的变体VarFormDateTime 函数返回包含日期时间的变体VarIsArray 函数测试变体是否为数组VarIsEmpty 函数测试变体是否为UNASSIGNEDVarIsNull 函数测试变体是否为NULLVarToDateTime 函数将给定的变体转换为日期时间VarType 函数将变体转换为指定的类型并保存他Visible 属性控件的可见性WantReturns 属性为True时,按回车键产生一个回车符;为False时,按下Ctrl+Enter 才产生回车符Write 命令对有格式的文件,写一变量到文件组件中;对文本文件,写一个或多个值到文件中Writeln 命令执行WRITE过程,然后输出一行结束标志WideCharLenToString 函数将ANSI字符串转换为UNICODE字符串WideCharLenToStrWar 函数将UNICODE字符串转换为ANSI字符串变量WideCharToString 函数将UNICODE字符串转换为ANSI字符串WideCharToStrVar 函数将UNICODE字符串转换为ANSI字符串变量WhereX WhereY 当前光标 x,y。
delphi浮点数转字符
![delphi浮点数转字符](https://img.taocdn.com/s3/m/f78a8b995122aaea998fcc22bcd126fff7055d2e.png)
delphi浮点数转字符摘要:1.引言2.Delphi浮点数转字符的背景和意义3.Delphi浮点数转字符的方法3.1 使用Format函数3.2 使用IntToStr函数3.3 使用FormatFloat函数4.方法的比较和选择5.总结正文:Delphi浮点数转字符是编程中常见的需求,将浮点数以字符形式展示可以更直观地展现数据,便于调试和分析。
本文将介绍三种Delphi浮点数转字符的方法,并比较它们的使用场景和优缺点。
首先,使用Format函数是一种常用的浮点数转字符方法。
Format函数可以将浮点数按照指定的格式转换为字符串。
例如,将浮点数123.456转换为字符串"123.456",可以使用以下代码:```varValue: Double;Str: String;beginValue := 123.456;Str := Format("%f", [Value]);end;```其次,使用IntToStr函数也可以实现浮点数转字符。
虽然IntToStr函数主要用于将整数转换为字符串,但通过类型转换,它同样可以实现浮点数转字符。
例如,将浮点数123.456转换为字符串"123.456",可以使用以下代码:```varValue: Double;Str: String;beginValue := 123.456;Str := IntToStr(Trunc(Value));Str := Str + "." + IntToStr(Frac(Value));end;```最后,使用FormatFloat函数是另一种浮点数转字符的方法。
FormatFloat函数可以将浮点数按照指定的格式转换为字符串。
例如,将浮点数123.456转换为字符串"123.456",可以使用以下代码:```varValue: Double;Str: String;beginValue := 123.456;Str := FormatFloat("%f", Value);end;```这三种方法各有优缺点。
Delphi中Format的字符串格式化使用说明
![Delphi中Format的字符串格式化使用说明](https://img.taocdn.com/s3/m/b769bc2c86c24028915f804d2b160b4e777f8152.png)
Delphi中Form at的字符串格式化使用说明一、Format函数的用法Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:functi on Format(constFormat: string; constArgs: arrayof const): string; overlo ad;事实上For mat方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,但并不多用,所以这里只对第一个介绍:functi on Format(constFormat: string; constArgs: arrayof const): string; overlo ad; Format参数是一个格式字符串,用于格式化A rgs里面的值的。
Args又是什么呢,它是一个变体数组,即它里面可以有多个参数,而且每个参数可以不同。
如以下例子:Format('my name is %6s',['wind']);返回后就是my name is wind现在来看Fo rmat参数的详细情况:Format里面可以写普通的字符串,比如'my name is' 但有些格式指令字符具有特殊意义,比如"%6s"格式指令具有以下的形式:"%" [index":"] ["-"] [width] ["." prec] type它是以"%"开始,而以type结束,type表示一个具体的类型。
中间是用来格式化typ e类型的指令字符,是可选的。
delphi 中 Format 用法总汇
![delphi 中 Format 用法总汇](https://img.taocdn.com/s3/m/61cd2f2679563c1ec5da71a6.png)
delphi 中 Format 用法总汇Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,但并不多用,所以这里只对第一个介绍:function Format(const Format: string; const Args: array of const): string; overload;Format参数是一个格式字符串,用于格式化Args里面的值的。
Args又是什么呢,它是一个变体数组,即它里面可以有多个参数,而且每个参数可以不同。
如以下例子:Format('my name is %6s',['wind']);返回后就是my name is wind现在来看Format参数的详细情况:Format里面可以写普通的字符串,比如'my name is',但有些格式指令字符具有特殊意义,比如"%6s"格式指令具有以下的形式:"%" [index ":"] ["-"] [width] ["." prec] type它是以"%"开始,而以type结束,type表示一个具体的类型。
中间是用来格式化type类型的指令字符,是可选的。
先来看看type,type可以是以下字符:d 十制数,表示一个整型值u 和d一样是整型值,但它是无符号的,而如果它对应的值是负的,则返回时是一个2的32次方减去这个绝对值的数,如:Format('this is %u',[-2]);返回的是:this is 4294967294f 对应浮点数e 科学表示法,对应整型数和浮点数,比如Format('this is %e',[-2.22]);返回的是:this is -2.22000000000000E+000,等一下再说明如果将数的精度缩小g 这个只能对应浮点型,且它会将值中多余的数去掉,比如Format('this is %g',[02.200]);返回的是:this is 2.2n 只能对应浮点型,将值转化为号码的形式。
delphi常用属性说明和使用方法
![delphi常用属性说明和使用方法](https://img.taocdn.com/s3/m/6735f20c52ea551810a6872b.png)
常用【属性】Action:该属性是与组件关联的行为,允许应用程序集中响应用户命令Anchors:与组件连接的窗体的位置点Align:确定组件的对齐方式AutoSize:确定组件是否自动调整其大小BiDiMode:(所有组件)为从右向左写的语言提供支持BoundsRect:定义组件边框矩形(只适用于运行时)Borderwidth:(窗口化组件)边框的宽度BorberStyle:设置组件边框形状(样式)Brush:可确定组件的风格和颜色Caption:使用该属性可指定标注组件的文本字符串ClassName:该方法可得到对象的类名,我一直用它来得到数据库中字段的类型,在其它的方面还没有用到ClientHeight:可读取和设置组件客户区域的像素高度ClientRect:可返回组件客户区的大小,为一个矩形ClientWidth:可读取和设置组件客户区域的像素宽度Color:组件的背景颜色Components:列出了该组件中所有的子组件,并可以对它们进行访问ComponentIndex:(所有组件)当前组件在其主组件所有的从组件列表中的位置(只适用于运行时) ComponentCount:显示该组件拥有的子组件数 (只适用于运行时)Constraints:(所有组件)在改变大小操作期间限定组件)的最大与最小尺寸ConstrolCount:(所有组件)当前组件的子组件数目(只适用于运行时)Controls:(所有组件)当前组件的子组件数组(只适用于运行时)Create:构造一个对象实例,分配内存,并不初始化Ctrl3D:设置组件边框是否为3D模式,若BORDERSTYLE设置为BSNONE则此属性无效Cursor:指定指针的图像(鼠标经过组件时光标所显示的形状)Destroy:销毁一个对象实例DragCursor:拖动时,鼠标的形状DragKing:可获取或设置组件是拖动还是停靠操作,分别对应Drag和DockDragMode:设置组件拖动模式。
Delphi类库-FormatFloat函数
![Delphi类库-FormatFloat函数](https://img.taocdn.com/s3/m/bfb432a3b0717fd5360cdc48.png)
.FormatFloat 的用法常用的声明:function FormatFloat(const Format: string; Value: Extended): string; overload;和上面一样Format参数为格式化指令字符,V alue为Extended类型为什么是这个类型,因为它是所有浮点值中表示范围最大的,如果传入该方法的参数比如Double或者其他,则可以保存不会超出范围。
关键是看Format参数的用法0 这个指定相应的位数的指令。
比如:FormatFloat('000.000',22.22);输出的就是022.220注意一点,如果整数部分的0的个数小于Value参数中整数的位数,则没有效果如:FormatFloat('0.00',22.22);输出的是:22.22但如果小数部分的0小于V alue中小数的倍数,则会截去相应的小数和位数如:FormatFloat('0.0',22.22);输出的是:22.2也可以在整数0中指定逗号,这个整数位数必须大于3个,才会有逗号出句FormatFloat('0,000.0',2222.22);输出是:2,222.2如果这样FormatFloat('000,0.0',2222.22);它的输出还是:2,222.2注意它的规律,#和0的用法一样,目前我还没有测出有什么不同。
FormatFloat('##.##',22.22);输出是:22.00E 科学表示法,看几个例子大概就明白了FormatFloat('0.00E+00',2222.22);输出是2.22E+03FormatFloat('0000.00E+00',2222.22);输出是2222.22E+00FormatFloat('00.0E+0',2222.22);22.2E+2明白了吗,全靠E右边的0来支配的。
delphi 去掉千位分隔符
![delphi 去掉千位分隔符](https://img.taocdn.com/s3/m/79067b2f6d175f0e7cd184254b35eefdc8d3159b.png)
delphi 去掉千位分隔符Delphi是一种流行的编程语言,用于开发Windows平台上的应用程序。
在Delphi中,有时候需要对数字进行千位分隔符的处理。
本文将介绍如何使用Delphi去掉数字中的千位分隔符,并给出相应的代码示例。
在Delphi中,可以使用Format函数来格式化数字并去掉千位分隔符。
Format函数是Delphi中常用的格式化函数之一,可以用于将数字、字符串等转换为指定格式的文本。
我们需要导入SysUtils单元,该单元中包含了Format函数的定义。
可以在Delphi代码的uses语句中添加SysUtils单元,如下所示:```delphiusesSysUtils;```接下来,我们可以使用Format函数对数字进行格式化。
Format函数的调用形式为:```delphiFormat(fmt: string; args: array of const): string;```其中,fmt是格式化字符串,args是要格式化的参数列表,返回值为格式化后的字符串。
对于去掉数字中的千位分隔符,我们可以使用`'%.0n'`作为格式化字符串。
具体的代码示例如下:```delphivarnum: Double;formattedNum: string;beginnum := 1000.1234;formattedNum := Format('%.0n', [num]);ShowMessage(formattedNum);end;```上述代码中,我们定义了一个变量num来存储要格式化的数字,这里假设为1000.1234。
然后,我们调用Format函数,并将格式化字符串'%.0n'和num作为参数传入。
最后,将格式化后的数字显示出来。
运行上述代码,将会弹出一个消息框,显示去掉千位分隔符后的数字"1000"。
除了使用Format函数,还可以使用FloatToStr函数将数字转换为字符串,并使用StringReplace函数去掉千位分隔符。
delphi简单函数使用说明
![delphi简单函数使用说明](https://img.taocdn.com/s3/m/e79174f2f61fb7360b4c6558.png)
str:要重复输入的字符/串
num:要重复输入的数量
例:S := StringOfChar('A', 10);
输出:S:'AAAAAAAAAA'
FormatDateTime用法:
function FormatDateTime(const Format:string;DateTime:TDateTime)
返回值:当函数成功调用时返回0
失败时返回非0的值
socket函数:
SOCKET socket(int af,int type,int protocol);
用于生成socket(soket Descriptor)
参数:
af - 地址家族(通常使用:AF_INET)
FormatdateTime('eee',now);FormatdateTime('eeee',now);
输出:2008
m/mm/mmm/mmmm:显示月
例:FormatdateTime('m',now);
ShowMessage(ss); {万一的 Delphi 博客}
pos用法
pos(substr,str):integer;
返回substr在str中的位置(没有返回0)
参数:
substr:子字符串
str:字符串
succ用法:
输出:2008
h/hh:显示小时
例:FormatdateTime('h',now);
输出:14(2)
FormatdateTime('hh',now);
Delphi函数大全
![Delphi函数大全](https://img.taocdn.com/s3/m/6e25b67ccbaedd3383c4bb4cf7ec4afe04a1b193.png)
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、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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' //前面补充0Format('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 4294967294f 对应浮点数e 科学表示法,对应整型数和浮点数,比如Format('this is %e',[-2.22]);返回的是:this is -2.22000000000000E+000,等一下再说明如果将数的精度缩小g 这个只能对应浮点型,且它会将值中多余的数去掉,比如Format('this is %g',[02.200]);返回的是:this is 2.2n 只能对应浮点型,将值转化为号码的形式。
看一个例子就明白了Format('this is %n',[4552.2176]);返回的是this is 4,552.22注意有两点,一是只表示到小数后两位,等一下说怎么消除这种情况, 二是,即使小数没有被截断,它也不会也像整数部分一样有逗号来分开的m钱币类型,但关于货币类型有更好的格式化方法,这里只是简单的格式化,另外它只对应于浮点值Format('this is %m',[9552.21]);返回:this is ¥9,552.21p 对应于指针类型,返回的值是指针的地址,以十六进制的形式来表示例如:var X:integer;p:^integer;beginX:=99;p:=@X;Edit1.Text:=Format('this is %p',[p]);end;Edit1的内容是:this is 0012F548s 对应字符串类型,不用多说了吧x 必须是一个整形值,以十六进制的形式返回Edit1.Text:=Format('this is %X',[15]);返回是:this is F类型讲述完毕,下面介绍格式化Type的指令:[index ":"]这个要怎么表达呢,看一个例子Format('this is %d %d',[12,13]);其中第一个%d的索引是0,第二个%d是1,所以字符显示的时候是这样this is 12 13而如果你这样定义:Format('this is %1:d %0:d',[12,13]);那么返回的字符串就变成了this is 13 12。
现在明白了吗,[index ":"] 中的index 指示Args中参数显示的顺序还有一种情况,如果这样Format('%d %d %d %0:d %d', [1, 2, 3, 4])将返回1 2 3 1 2。
如果你想返回的是1 2 3 1 4,必须这样定:Format('%d %d %d %0:d %3:d', [1, 2, 3, 4])但用的时候要注意,索引不能超出Args中的个数,不然会引起异常如Format('this is %2:d %0:d',[12,13]);由于Args中只有12 13 两个数,所以Index只能是0或1,这里为2就错了[width] 指定将被格式化的值占的宽度,看一个例子就明白了Format('this is %4d',[12]);输出是:this is 12,这个是比较容易,不过如果Width的值小于参数的长度,则没有效果。
如:Format('this is %1d',[12]);输出是:this is 12["-"]这个指定参数向左齐,和[width]合在一起最可以看到效果:Format('this is %-4d,yes',[12]);输出是:this is 12 ,yes["." prec] 指定精度,对于浮点数效果最佳:Format('this is %.2f',['1.1234]);输出this is 1.12Format('this is %.7f',['1.1234]);输出了this is 1.1234000而对于整型数,如果prec比如整型的位数小,则没有效果反之比整形值的位数大,则会在整型值的前面以0补之Format('this is %.7d',[1234]);输出是:this is 0001234]对于字符型,刚好和整型值相反,如果prec比字符串型的长度大则没有效果,反之比字符串型的长度小,则会截断尾部的字符Format('this is %.2s',['1234']);输出是this is 12,而上面说的这个例子:Format('this is %e',[-2.22]);返回的是:this is -2.22000000000000E+000,怎么去掉多余的0呢,这个就行啦Format('this is %.2e',[-2.22]);好了,第一个总算讲完了,应该对他的应用很熟悉了吧///////////////////////////////////////////////////////////////二FormatDateTime的用法他的声明为:function FormatDateTime(const Format: string; DateTime: TDateTime): string; overload;当然和Format一样还有一种,但这里只介绍常用的第一种,Format参数是一个格式化字符串。
DateTime是时间类型。
返回值是一种格式化后的字符串,重点来看Format参数中的指令字符c 以短时间格式显示时间,即全部是数字的表示FormatdateTime('c',now);输出为:2004-8-7 9:55:40d 对应于时间中的日期,日期是一位则显示一位,两位则显示两位FormatdateTime('d',now);输出可能为1~31dd 和d的意义一样,但它始终是以两位来显示的FormatdateTime('dd',now);输出可能为01~31ddd 显示的是星期几FormatdateTime('ddd',now);输出为: 星期六dddd 和ddd显示的是一样的。
但上面两个如果在其他国家可能不一样。
ddddd 以短时间格式显示年月日FormatdateTime('ddddd',now);输出为:2004-8-7dddddd 以长时间格式显示年月日FormatdateTime('dddddd',now);输出为:2004年8月7日e/ee/eee/eeee 以相应的位数显示年FormatdateTime('ee',now);输出为:04 (表示04年)m/mm/mmm/mmmm 表示月FormatdateTime('m',now);输出为:8FormatdateTime('mm',now);输出为08FormatdateTime('mmm',now);输出为八月FormatdateTime('mmmm',now);输出为八月和ddd/dddd 一样,在其他国家可能不同yy/yyyy 表示年FormatdateTime('yy',now);输出为04FormatdateTime('yyyy',now);输出为2004,h/hh,n/nn,s/ss,z/zzz 分别表示小时,分,秒,毫秒t 以短时间格式显示时间FormatdateTime('t',now);输出为10:17tt 以长时间格式显示时间FormatdateTime('tt',now);输出为10:18:46ampm 以长时间格式显示上午还是下午FormatdateTime('ttampm',now);输出为:10:22:57上午大概如此,如果要在Format中加普通的字符串,可以用双引号隔开那些特定义的字符,这样普通字符串中如果含特殊的字符就不会被显示为时间格式啦:FormatdateTime('"today is" c',now);输出为:today is 2004-8-7 10:26:58时间中也可以加"-"或"\"来分开日期:FormatdateTime('"today is" yy-mm-dd',now);FormatdateTime('"today is" yy\mm\dd',now);输出为:today is 04-08-07也可以用":"来分开时间FormatdateTime('"today is" hh:nn:ss',now);输出为:today is 10:32:23/////////////////////////////////////////////////////////////////三.FormatFloat 的用法常用的声明:function FormatFloat(const Format: string; Value: Extended): string; overload;和上面一样Format参数为格式化指令字符,Value为Extended类型为什么是这个类型,因为它是所有浮点值中表示范围最大的,如果传入该方法的参数比如Double或者其他,则可以保存不会超出范围。