Delphi函数大全

冯民發表於 2021-1-4 01:01:00

<h1>delphi常用函数大全（转）</h1>
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函数返回圆周率Pi Picture属性显示图象 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函数测试变体是否为UNASSIGNED VarIsNull函数测试变体是否为NULL VarToDateTime函数将给定的变体转换为日期时间 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 AText, AOther: string): Boolean; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function AnsiIndexText(const AText: string; const AValues: array of string): Integer; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function AnsiContainsStr(const AText, ASubText: string): Boolean; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function AnsiIndexStr(const AText: string; const AValues: array of string): Integer; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function DupeString(const AText: string; ACount: Integer): string; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $): PChar; $; if CheckBox1.Checked then Include(SearchOptions, soDown); if CheckBox2.Checked then Include(SearchOptions, soMatchCase); if CheckBox3.Checked then Include(SearchOptions, soWholeWord); SearchEdit(Memo1, Edit1.Text, SearchOptions); Memo1.SetFocus; end; ///////End SearchBuf ━━━━━━━━━━━━━━━━━━━━━  函数 function Soundex(const AText: string; ALength: TSoundexLength = 4): string; $ ━━━━━━━━━━━━━━━━━━━━━ 函数 function NewStr(const S: string): PString; deprecated; $... 参考 <NULL> 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 函数 function IntToStr(Value: Integer): string; overload; $) 参考 function SysUtils.FmtStr 例子 Edit2.Text := IntToStr(SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 函数 function IntToHex(Value: Integer; Digits: Integer): string; overload; $) 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 参考 function SysUtils.FmtStr 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrToInt(const S: string): Integer; $0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 例子 ///////Begin TryStrToBool procedure TForm1.Button1Click(Sender: TObject); var B: Boolean; begin SetLength(TrueBoolStrs, 2); SetLength(FalseBoolStrs, 2); TrueBoolStrs := 'True'; FalseBoolStrs := 'False'; TrueBoolStrs := 'Yes'; FalseBoolStrs := 'No'; CheckBox1.Checked := TryStrToBool(Edit1.Text, B); CheckBox2.Checked := B; end; ///////End TryStrToBool 附加 ///////Begin TryStrToBool function TryStrToBool(const S: string; out Value: Boolean): Boolean; function CompareWith(const aArray: array of string): Boolean; var I: Integer; begin Result := False; for I := Low(aArray) to High(aArray) do if AnsiSameText(S, aArray) then begin Result := True; Break; end; end; var LResult: Extended; begin Result := TryStrToFloat(S, LResult); if Result then Value := LResult <> 0 else begin Result := True; //修正处 VerifyBoolStrArray; if CompareWith(TrueBoolStrs) then Value := True else if CompareWith(FalseBoolStrs) then Value := False else Result := False; end; end; ///////End TryStrToBool ━━━━━━━━━━━━━━━━━━━━━ 函数 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; $ of Char; begin StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); Edit3.Text := vBuffer; end; ///////End StrECopy ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $ of Char; begin StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); Edit2.Text := vBuffer; end; ///////End StrLCopy ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrPCopy(Dest: PChar; const Source: string): PChar; $ of Char; begin StrPCopy(vBuffer, PChar(Edit1.Text)); Edit2.Text := vBuffer; end; ///////End StrPCopy ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Cardinal): PChar; $ of Char; begin StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); Edit2.Text := vBuffer; end; ///////End StrPLCopy ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrCat(Dest: PChar; const Source: PChar): PChar; $ of Char; begin StrPCopy(vBuffer, Edit1.Text); StrCat(vBuffer, PChar(Edit2.Text)); Edit3.Text := vBuffer; end; ///////End StrCat ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $MaxLen指定连接后的最大长度不是指针字符串Source的长度 参考 <NULL> 例子 ///////Begin StrLCat procedure TForm1.Button1Click(Sender: TObject); var vBuffer: array of Char; begin StrPCopy(vBuffer, Edit1.Text); StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); Edit3.Text := vBuffer; end; ///////End StrLCat ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrComp(const Str1, Str2: PChar): Integer; $返回第一个出现不同字符的差异 参考 <NULL> 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrIComp(const Str1, Str2: PChar): Integer; $返回第一个出现不同字符的差异 参考 <NULL> 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $返回第一个出现不同字符的差异 参考 <NULL> 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $返回第一个出现不同字符的差异 参考 <NULL> 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrScan(const Str: PChar; Chr: Char): PChar; $ ["-"] [宽度] ["." 摘要] 类型 Format('x=%d', ); //'x=12' //最普通 Format('x=%3d', ); //'x= 12' //指定宽度 Format('x=%f', ); //'x=12.00' //浮点数 Format('x=%.3f', ); //'x=12.000' //指定小数 Format('x=%.*f', ); //'x=12.00000' //动态配置 Format('x=%.5d', ); //'x=00012' //前面补充0 Format('x=%.5x', ); //'x=0000C' //十六进制 Format('x=%1:d%0:d', ); //'x=1312' //使用索引 Format('x=%p', ); //'x=00000000' //指针 Format('x=%1.1e', ); //'x=1.2E+001' //科学记数法 Format('x=%%', []); //'x=%' //得到"%" S := Format('%s%d', ); //S := S + StrToInt(I); //连接字符串 参考 proceduer SysUtils.FmtStr 例子 Edit1.Text := Format(Edit2.Text, ); ━━━━━━━━━━━━━━━━━━━━━ 函数 procedure FmtStr(var Result: string; const Format: string; const Args: array of const); $) = '1024|1'; 参考 function SysUtils.FormatBuf 例子 <参见Format> ━━━━━━━━━━━━━━━━━━━━━ 函数 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $ := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffGeneral, SpinEdit1.Value, SpinEdit2.Value); Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffExponent, SpinEdit1.Value, SpinEdit2.Value); Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value, SpinEdit2.Value); Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value, SpinEdit2.Value); Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value, SpinEdit2.Value); end; ///////End FloatToStrF ━━━━━━━━━━━━━━━━━━━━━ 函数 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $ := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffGeneral, SpinEdit1.Value); Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffExponent, SpinEdit1.Value); Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value); Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value); Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value); end; ///////End CurrToStrF ━━━━━━━━━━━━━━━━━━━━━ 函数 function FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; $ of Char; E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); SpinEdit3.Value := FloatToText(vBuffer, E, fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); end; ///////End FloatToText( ━━━━━━━━━━━━━━━━━━━━━ 函数 function FormatFloat(const Format: string; Value: Extended): string; $ of Char; E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); SpinEdit1.Value := FloatToTextFmt(vBuffer, E, fvExtended, PChar(Edit2.Text)); Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); end; ///////End FloatToTextFmt ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrToFloat(const S: string): Extended; $'] := StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); Memo1.Lines.Values[''] := StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); Memo1.Lines.Values[''] := StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); Memo1.Lines.Values[''] := StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); end; ///////End StringReplace ━━━━━━━━━━━━━━━━━━━━━ 函数 function StringToGUID(const S: string): TGUID; $ then begin Result:= i; Exit; end;  end;  end;  Low() 提供第一个数组成员（通常是0），High() 则返回最后一个。因为 CaseString 返回的是待查字符串在字符串数组中的位置，因此，它可以被直接用到 CASE 语句中： search:= 'delphi3000';  case CaseString (search, ['delphi3000',  'delphipages',  'Torry's']) of  0: s:= 'Excellent!';  1: s:= 'Good source';  2: s:= 'Not bad!';  end;  copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255) length(str) 返回str的字符个数,即其长度. pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0. AnsiStrLastChar('你好')结果是“好”。如果有半个汉字出现，返回这半个汉字。二者字符串长度分别为2和1。 CompareStr - 区分大小写 CompareText - 不区分大小写 //////////////////////////////////////////////////////// {判断字符是否是数字} function IsDigit(ch: char): boolean; begin Result := ch in ['0'..'9']; end; {判断字符是否是大写字符} function IsUpper(ch: char): boolean; begin Result := ch in ['A'..'Z']; end; {判断字符是否是小写字符} function IsLower(ch: char): boolean; begin Result := ch in ['a'..'z']; end; {转换为大写字符} function ToUpper(ch: char): char; begin Result := chr(ord(ch) and $DF); end; {转换为小写字符} function ToLower(ch: char): char; begin Result := chr(ord(ch) or $20); end; { Capitalizes first letter of every word in s } function Proper(const s: string): string; var i: Integer; CapitalizeNextLetter: Boolean; begin Result := LowerCase(s); CapitalizeNextLetter := True; for i := 1 to Length(Result) do begin if CapitalizeNextLetter and IsLower(Result) then Result := ToUpper(Result); CapitalizeNextLetter := Result = ' '; end; end; //////////////////////////////////////////////////////////// {返回两个子字符串之间字符的个数} Function p2pcount( s, ss1, ss2 : string ): integer; var i, j, slen : integer; begin i := pos( ss1, s ); j := pos( ss2, s ); slen := Length(ss2);  if j >= i then Result := j - i + slen else Result := 0; end; {更快速的字符查询,快40%} function ScanStr(ToScan: PChar; Sign: Char):PChar; begin Result:= nil; if ToScan <> nil then while (ToScan^ <> #0) do begin if ToScan^ = Sign then begin Result:= ToScan; break; end; inc(ToScan); end; end; ///////////////////////////// 替换字符串中子串的函数，他可以从字符串中找出指定子串，并替换为另一子串。 function replacing(S,source,target:string):string; var site,StrLen:integer; begin {source在S中出现的位置} site:=pos(source,s); {source的长度} StrLen:=length(source); {删除source字符串} delete(s,site,StrLen); {插入target字符串到S中} insert(target,s,site); {返回新串} replacing:=s; end; /////////////////////// 另两个替换字符串中子串的函数 function repl_substr( sub1, sub2, s: string ): string; var i: integer; begin repeat i := pos( sub1, s ) ; if i > 0 then begin delete( s, i, Length(sub1)); insert( sub2, s, i ); end; until i < 1; Result := s; end; function ReplaceText(const S,ReplacePiece,ReplaceWith: String):String; Var Position: Integer; TempStr: String; begin Position := Pos(ReplacePiece,S); if Position > 0 then Begin TempStr := S; Delete(TempStr,1,Position-1+Length(ReplacePiece)); Result := Copy(S,1,Position-1)+ReplaceWith+ReplaceText(TempStr,ReplacePiece,ReplaceWith) End else Result := S; end; //////////////////////// 替换全部子字符串的函数 function ReplaceSub(str, sub1, sub2: String): String; var aPos: Integer; rslt: String; begin aPos := Pos(sub1, str); rslt := ''; while (aPos <> 0) do begin rslt := rslt + Copy(str, 1, aPos - 1) + sub2; Delete(str, 1, aPos + Length(sub1)); aPos := Pos(sub1, str); end; Result := rslt + str; end; ///////////////////////// 在字符串左右填充指定数量的指定字符 function UT_PadString(inString :string; maxLength :integer; padChar :char; left :boolean) :string; begin result := inString; while (Length(result) < maxLength) do if (left) then result := padChar + result else result := result + padChar; end; ///////////////////////////////////// 提取字符串中指定子字符串前的字符串 Function Before ( Src:string ; Var S:string ) : string ; Var F : Word ; begin F := POS (Src,S) ; if F=0 then Before := S else Before := COPY(S,1,F-1) ; end ; ////////////////////////////////// 提取字符串中指定子字符串后的字符串 Function After ( Src:string ; Var S:string ) : string ; Var F : Word ; begin F := POS (Src,S) ; if F=0 then After := '' else After := COPY(S,F+length(src),length(s)) ; end ; //////////////////////////////////// 判断字符串是否可以转换为整数 function IsIntStr(const S: string): boolean; begin Result:=StrToIntDef(S,0)=StrToIntDef(S,1); end; ////////////////////////////////////// 从字符串中删除指定字符串 procedure RemoveInvalid(what, where: string): string; var tstr: string; begin tstr:=where; while pos(what, tstr)>0 do tstr:=copy(tstr,1,pos(what,tstr)-1) + copy(tstr,pos(what,tstr)+length(tstr),length(tstr)); Result:=tstr; end; 用法: NewStr:=RemoveInvalid('<invalid>','This <invalid> is my string and I wan to remove the word <invalid>'); /////////////////////////////////////////// 根据某个字符分割字符串的函数 procedure SeparateTerms(s : string;Separator : char;Terms : TStringList); { This browses a string and divide it into terms whenever the given separator is found. The separators will be removed } var hs : string; p : integer; begin Terms.Clear; // First remove all remaining terms if Length(s)=0 then // Nothin' to separate Exit; p:=Pos(Separator,s); while P<>0 do begin hs:=Copy(s,1,p-1); // Copy term Terms.Add(hs); // Add to list Delete(s,1,p); // Remove term and separator p:=Pos(Separator,s); // Search next separator end; if Length(s)>0 then Terms.Add(s); // Add remaining term end; ========== = 用法  ========== var Terms : TStringList; i : integer; const TestStr = '1st term;2nd term;3rd term'; begin Terms:=TStringList.Create; SeparateTerms(TestStr,';',Terms); for i:=0 to terms.Count-1 do ShowMessage(Terms.Strings); Terms.Free; end; ///////////////////////////// 根据一组字符分割字符串的函数 type Charset = set of Char; var f : Text; s : String; procedure WriteStringSplitted(var s: String; Separators: Charset); var a,e : Integer; {anfang und ende des w鰎tchens} begin a := 1; for e := 1 to Length(s) do if s in Separators then begin WriteLn(Copy(s, a, e-a)); a := e + 1; end; WriteLn(Copy(s, a, e-a+1)); end; begin Assign(f, 'c:/dingsbums/text.txt'); Reset(f); while not EOF(f) do begin ReadLn(f,s); WriteStringSplitted(s, [':', ',']); end; Close(f); end. ////////////////////////////////////////////////// {===============================================================}  { 函数 : RESULTSTRING = HexToBin(HEXSTRING)  { 目的 : 把十六进制字符串转换为二进制字符串  {  {===============================================================}  { 函数 : RESULTINTEGER = HexCharToInt(HEXCHAR)  { 目的 : 转换一个十六进制字符为整数 {===============================================================}  { 函数 : RESULTSTRING = HexCharToBin(HEXCHAR)  { 目的 : 转换一个十六进制字符为二进制字符串 {===============================================================}  { 函数 : RESULTINTEGER = Pow(BASE,POWER)  { 目的 : 指数函数 {===============================================================}  { 函数 : RESULTINTEGER = BinStrToInt(BINSTRING)  { 目的 : 把二进制字符串转换为整数 {===============================================================}  { 函数 : RESULTSTRING = DecodeSMS7Bit (PDUSTRING)  { 目的 : 解码一个7-bit SMS (GSM 03.38) 为ASCII码  {===============================================================}  { 函数 : RESULTSTRING = ReverseStr (SOURCESTRING)  { 目的 : 反转一个字符串 {===============================================================}  unit BinHexTools;  interface  function HexToBin(HexNr : string): string;  function HexCharToInt(HexToken : char):Integer;  function HexCharToBin(HexToken : char): string;  function pow(base, power: integer): integer;  function BinStrToInt(BinStr : string) : integer;  function DecodeSMS7Bit(PDU : string):string;  function ReverseStr(SourceStr : string) : string;  implementation  uses sysutils, dialogs;  function HexCharToInt(HexToken : char):Integer;  begin  {if HexToken>#97 then HexToken:=Chr(Ord(HexToken)-32);  { use lowercase aswell }  Result:=0;  if (HexToken>#47) and (HexToken<#58) then { chars 0....9 }  Result:=Ord(HexToken)-48  else if (HexToken>#64) and (HexToken<#71) then { chars A....F }  Result:=Ord(HexToken)-65 + 10;  end;  function HexCharToBin(HexToken : char): string;  var DivLeft : integer;  begin  DivLeft:=HexCharToInt(HexToken); { first HEX->BIN }  Result:='';  { Use reverse dividing }  repeat { Trick; divide by 2 }  if odd(DivLeft) then { result = odd ? then bit = 1 }  Result:='1'+Result { result = even ? then bit = 0 }  else  Result:='0'+Result;  DivLeft:=DivLeft div 2; { keep dividing till 0 left and length = 4 }  until (DivLeft=0) and (length(Result)=4); { 1 token = nibble = 4 bits }  end;  function HexToBin(HexNr : string): string;  { only stringsize is limit of binnr }  var Counter : integer;  begin  Result:='';  for Counter:=1 to length(HexNr) do  Result:=Result+HexCharToBin(HexNr);  end;  function pow(base, power: integer): integer;  var counter : integer;  begin  Result:=1;  for counter:=1 to power do  Result:=Result*base;  end;  function BinStrToInt(BinStr : string) : integer;  var counter : integer;  begin  if length(BinStr)>16 then  raise ERangeError.Create(#13+BinStr+#13+  'is not within the valid range of a 16 bit binary.'+#13);  Result:=0;  for counter:=1 to length(BinStr) do  if BinStr='1' then  Result:=Result+pow(2,length(BinStr)-counter);  end;  function DecodeSMS7Bit(PDU : string):string;  var OctetStr : string;  OctetBin : string;  Charbin : string;  PrevOctet: string;  Counter : integer;  Counter2 : integer;  begin  PrevOctet:='';  Result:='';  for Counter:=1 to length(PDU) do  begin  if length(PrevOctet)>=7 then { if 7 Bit overflow on previous }  begin  if BinStrToInt(PrevOctet)<>0 then  Result:=Result+Chr(BinStrToInt(PrevOctet))  else Result:=Result+' ';  PrevOctet:='';  end;  if Odd(Counter) then { only take two nibbles at a time }  begin  OctetStr:=Copy(PDU,Counter,2);  OctetBin:=HexToBin(OctetStr);  Charbin:='';  for Counter2:=1 to length(PrevOctet) do  Charbin:=Charbin+PrevOctet;  for Counter2:=1 to 7-length(PrevOctet) do  Charbin:=OctetBin+Charbin;  if BinStrToInt(Charbin)<>0 then Result:=Result+Chr(BinStrToInt(CharBin))  else Result:=Result+' ';  PrevOctet:=Copy(OctetBin,1,length(PrevOctet)+1);  end;  end;  end;  function ReverseStr(SourceStr : string) : string;  var Counter : integer;  begin  Result:='';  for Counter:=1 to length(SourceStr) do  Result:=SourceStr+Result;  end;  end.  在Delphi中没有前导0输出的函数，如C语言中printf("%08d",10);就会输"000000010"，但是在实际应用中经常会用到此种函数，如财务等数据的输出。如何实现？以下的代码实现了这种功能，  function qd0str(const count,num:integer):String;  Var  s1,s2:String;  begin  s1:=IntToStr(Num);  s2:='00000000000000000000';  if (Length(s1)>=count) then  s2:=''  else if(count>20) then  SetLength(S2,20-Length(s1))  else  SetLength(S2,count-Length(s1));  Result:=S2+S1;  end;  函数的参数count为输出字符串的总长度，在函数中定义为最大20。Num为需要转换成字符串的数据。 //////////////////////////////////////// function IntToLZStr(value : integer;digits : byte) : string; var Res : string; begin Res:=IntToStr(value); while Length(Res)<digits do Insert('0',res,1); IntToLZStr:=Res; end; 函数 function AnsiResemblesText(const AText, AOther: string): Boolean; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function AnsiIndexText(const AText: string; const AValues: array of string): Integer; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function AnsiContainsStr(const AText, ASubText: string): Boolean; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function AnsiIndexStr(const AText: string; const AValues: array of string): Integer; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function DupeString(const AText: string; ACount: Integer): string; $); ━━━━━━━━━━━━━━━━━━━━━  函数 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $): PChar; $; if CheckBox1.Checked then Include(SearchOptions, soDown); if CheckBox2.Checked then Include(SearchOptions, soMatchCase); if CheckBox3.Checked then Include(SearchOptions, soWholeWord); SearchEdit(Memo1, Edit1.Text, SearchOptions); Memo1.SetFocus; end; ///////End SearchBuf ━━━━━━━━━━━━━━━━━━━━━  函数 function Soundex(const AText: string; ALength: TSoundexLength = 4): string; $ ━━━━━━━━━━━━━━━━━━━━━ 函数 function NewStr(const S: string): PString; deprecated; $... 参考 <NULL> 例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 函数 function IntToStr(Value: Integer): string; overload; $) 参考 function SysUtils.FmtStr 例子 Edit2.Text := IntToStr(SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 函数 function IntToHex(Value: Integer; Digits: Integer): string; overload; $) 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 参考 function SysUtils.FmtStr 例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrToInt(const S: string): Integer; $0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 例子 ///////Begin TryStrToBool procedure TForm1.Button1Click(Sender: TObject); var B: Boolean; begin SetLength(TrueBoolStrs, 2); SetLength(FalseBoolStrs, 2); TrueBoolStrs := 'True'; FalseBoolStrs := 'False'; TrueBoolStrs := 'Yes'; FalseBoolStrs := 'No'; CheckBox1.Checked := TryStrToBool(Edit1.Text, B); CheckBox2.Checked := B; end; ///////End TryStrToBool 附加 ///////Begin TryStrToBool function TryStrToBool(const S: string; out Value: Boolean): Boolean; function CompareWith(const aArray: array of string): Boolean; var I: Integer; begin Result := False; for I := Low(aArray) to High(aArray) do if AnsiSameText(S, aArray) then begin Result := True; Break; end; end; var LResult: Extended; begin Result := TryStrToFloat(S, LResult); if Result then Value := LResult <> 0 else begin Result := True; //修正处 VerifyBoolStrArray; if CompareWith(TrueBoolStrs) then Value := True else if CompareWith(FalseBoolStrs) then Value := False else Result := False; end; end; ///////End TryStrToBool ━━━━━━━━━━━━━━━━━━━━━ 函数 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; $ of Char; begin StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); Edit3.Text := vBuffer; end; ///////End StrECopy ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $ of Char; begin StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); Edit2.Text := vBuffer; end; ///////End StrLCopy ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrPCopy(Dest: PChar; const Source: string): PChar; $ of Char; begin StrPCopy(vBuffer, PChar(Edit1.Text)); Edit2.Text := vBuffer; end; ///////End StrPCopy ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Cardinal): PChar; $ of Char; begin StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); Edit2.Text := vBuffer; end; ///////End StrPLCopy ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrCat(Dest: PChar; const Source: PChar): PChar; $ of Char; begin StrPCopy(vBuffer, Edit1.Text); StrCat(vBuffer, PChar(Edit2.Text)); Edit3.Text := vBuffer; end; ///////End StrCat ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $MaxLen指定连接后的最大长度不是指针字符串Source的长度 参考 <NULL> 例子 ///////Begin StrLCat procedure TForm1.Button1Click(Sender: TObject); var vBuffer: array of Char; begin StrPCopy(vBuffer, Edit1.Text); StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); Edit3.Text := vBuffer; end; ///////End StrLCat ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrComp(const Str1, Str2: PChar): Integer; $返回第一个出现不同字符的差异 参考 <NULL> 例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrIComp(const Str1, Str2: PChar): Integer; $返回第一个出现不同字符的差异 参考 <NULL> 例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $返回第一个出现不同字符的差异 参考 <NULL> 例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $返回第一个出现不同字符的差异 参考 <NULL> 例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrScan(const Str: PChar; Chr: Char): PChar; $ ["-"] [宽度] ["." 摘要] 类型 Format('x=%d', ); //'x=12' //最普通 Format('x=%3d', ); //'x= 12' //指定宽度 Format('x=%f', ); //'x=12.00' //浮点数 Format('x=%.3f', ); //'x=12.000' //指定小数 Format('x=%.*f', ); //'x=12.00000' //动态配置 Format('x=%.5d', ); //'x=00012' //前面补充0 Format('x=%.5x', ); //'x=0000C' //十六进制 Format('x=%1:d%0:d', ); //'x=1312' //使用索引 Format('x=%p', ); //'x=00000000' //指针 Format('x=%1.1e', ); //'x=1.2E+001' //科学记数法 Format('x=%%', []); //'x=%' //得到"%" S := Format('%s%d', ); //S := S + StrToInt(I); //连接字符串 参考 proceduer SysUtils.FmtStr 例子 Edit1.Text := Format(Edit2.Text, ); ━━━━━━━━━━━━━━━━━━━━━ 函数 procedure FmtStr(var Result: string; const Format: string; const Args: array of const); $) = '1024|1'; 参考 function SysUtils.FormatBuf 例子 <参见Format> ━━━━━━━━━━━━━━━━━━━━━ 函数 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $ := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffGeneral, SpinEdit1.Value, SpinEdit2.Value); Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffExponent, SpinEdit1.Value, SpinEdit2.Value); Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value, SpinEdit2.Value); Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value, SpinEdit2.Value); Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value, SpinEdit2.Value); end; ///////End FloatToStrF ━━━━━━━━━━━━━━━━━━━━━ 函数 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $ := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffGeneral, SpinEdit1.Value); Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffExponent, SpinEdit1.Value); Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value); Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value); Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value); end; ///////End CurrToStrF ━━━━━━━━━━━━━━━━━━━━━ 函数 function FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; $ of Char; E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); SpinEdit3.Value := FloatToText(vBuffer, E, fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); end; ///////End FloatToText( ━━━━━━━━━━━━━━━━━━━━━ 函数 function FormatFloat(const Format: string; Value: Extended): string; $ of Char; E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); SpinEdit1.Value := FloatToTextFmt(vBuffer, E, fvExtended, PChar(Edit2.Text)); Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); end; ///////End FloatToTextFmt ━━━━━━━━━━━━━━━━━━━━━ 函数 function StrToFloat(const S: string): Extended; $'] := StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); Memo1.Lines.Values[''] := StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); Memo1.Lines.Values[''] := StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); Memo1.Lines.Values[''] := StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); end; ///////End StringReplace ━━━━━━━━━━━━━━━━━━━━━ 函数 function StringToGUID(const S: string): TGUID; $ then begin Result:= i; Exit; end;  end;  end;  Low() 提供第一个数组成员（通常是0），High() 则返回最后一个。因为 CaseString 返回的是待查字符串在字符串数组中的位置，因此，它可以被直接用到 CASE 语句中： search:= 'delphi3000';  case CaseString (search, ['delphi3000',  'delphipages',  'Torry's']) of  0: s:= 'Excellent!';  1: s:= 'Good source';  2: s:= 'Not bad!';  end;  copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255) length(str) 返回str的字符个数,即其长度. pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0. AnsiStrLastChar('你好')结果是“好”。如果有半个汉字出现，返回这半个汉字。二者字符串长度分别为2和1。 CompareStr - 区分大小写 CompareText - 不区分大小写 //////////////////////////////////////////////////////// {判断字符是否是数字} function IsDigit(ch: char): boolean; begin Result := ch in ['0'..'9']; end; {判断字符是否是大写字符} function IsUpper(ch: char): boolean; begin Result := ch in ['A'..'Z']; end; {判断字符是否是小写字符} function IsLower(ch: char): boolean; begin Result := ch in ['a'..'z']; end; {转换为大写字符} function ToUpper(ch: char): char; begin Result := chr(ord(ch) and $DF); end; {转换为小写字符} function ToLower(ch: char): char; begin Result := chr(ord(ch) or $20); end; { Capitalizes first letter of every word in s } function Proper(const s: string): string; var i: Integer; CapitalizeNextLetter: Boolean; begin Result := LowerCase(s); CapitalizeNextLetter := True; for i := 1 to Length(Result) do begin if CapitalizeNextLetter and IsLower(Result) then Result := ToUpper(Result); CapitalizeNextLetter := Result = ' '; end; end; //////////////////////////////////////////////////////////// {返回两个子字符串之间字符的个数} Function p2pcount( s, ss1, ss2 : string ): integer; var i, j, slen : integer; begin i := pos( ss1, s ); j := pos( ss2, s ); slen := Length(ss2);  if j >= i then Result := j - i + slen else Result := 0; end; {更快速的字符查询,快40%} function ScanStr(ToScan: PChar; Sign: Char):PChar; begin Result:= nil; if ToScan <> nil then while (ToScan^ <> #0) do begin if ToScan^ = Sign then begin Result:= ToScan; break; end; inc(ToScan); end; end; ///////////////////////////// 替换字符串中子串的函数，他可以从字符串中找出指定子串，并替换为另一子串。 function replacing(S,source,target:string):string; var site,StrLen:integer; begin {source在S中出现的位置} site:=pos(source,s); {source的长度} StrLen:=length(source); {删除source字符串} delete(s,site,StrLen); {插入target字符串到S中} insert(target,s,site); {返回新串} replacing:=s; end; /////////////////////// 另两个替换字符串中子串的函数 function repl_substr( sub1, sub2, s: string ): string; var i: integer; begin repeat i := pos( sub1, s ) ; if i > 0 then begin delete( s, i, Length(sub1)); insert( sub2, s, i ); end; until i < 1; Result := s; end; function ReplaceText(const S,ReplacePiece,ReplaceWith: String):String; Var Position: Integer; TempStr: String; begin Position := Pos(ReplacePiece,S); if Position > 0 then Begin TempStr := S; Delete(TempStr,1,Position-1+Length(ReplacePiece)); Result := Copy(S,1,Position-1)+ReplaceWith+ReplaceText(TempStr,ReplacePiece,ReplaceWith) End else Result := S; end; //////////////////////// 替换全部子字符串的函数 function ReplaceSub(str, sub1, sub2: String): String; var aPos: Integer; rslt: String; begin aPos := Pos(sub1, str); rslt := ''; while (aPos <> 0) do begin rslt := rslt + Copy(str, 1, aPos - 1) + sub2; Delete(str, 1, aPos + Length(sub1)); aPos := Pos(sub1, str); end; Result := rslt + str; end; ///////////////////////// 在字符串左右填充指定数量的指定字符 function UT_PadString(inString :string; maxLength :integer; padChar :char; left :boolean) :string; begin result := inString; while (Length(result) < maxLength) do if (left) then result := padChar + result else result := result + padChar; end; ///////////////////////////////////// 提取字符串中指定子字符串前的字符串 Function Before ( Src:string ; Var S:string ) : string ; Var F : Word ; begin F := POS (Src,S) ; if F=0 then Before := S else Before := COPY(S,1,F-1) ; end ; ////////////////////////////////// 提取字符串中指定子字符串后的字符串 Function After ( Src:string ; Var S:string ) : string ; Var F : Word ; begin F := POS (Src,S) ; if F=0 then After := '' else After := COPY(S,F+length(src),length(s)) ; end ; //////////////////////////////////// 判断字符串是否可以转换为整数 function IsIntStr(const S: string): boolean; begin Result:=StrToIntDef(S,0)=StrToIntDef(S,1); end; ////////////////////////////////////// 从字符串中删除指定字符串 procedure RemoveInvalid(what, where: string): string; var tstr: string; begin tstr:=where; while pos(what, tstr)>0 do tstr:=copy(tstr,1,pos(what,tstr)-1) + copy(tstr,pos(what,tstr)+length(tstr),length(tstr)); Result:=tstr; end; 用法: NewStr:=RemoveInvalid('<invalid>','This <invalid> is my string and I wan to remove the word <invalid>'); /////////////////////////////////////////// 根据某个字符分割字符串的函数 procedure SeparateTerms(s : string;Separator : char;Terms : TStringList); { This browses a string and divide it into terms whenever the given separator is found. The separators will be removed } var hs : string; p : integer; begin Terms.Clear; // First remove all remaining terms if Length(s)=0 then // Nothin' to separate Exit; p:=Pos(Separator,s); while P<>0 do begin hs:=Copy(s,1,p-1); // Copy term Terms.Add(hs); // Add to list Delete(s,1,p); // Remove term and separator p:=Pos(Separator,s); // Search next separator end; if Length(s)>0 then Terms.Add(s); // Add remaining term end; ========== = 用法  ========== var Terms : TStringList; i : integer; const TestStr = '1st term;2nd term;3rd term'; begin Terms:=TStringList.Create; SeparateTerms(TestStr,';',Terms); for i:=0 to terms.Count-1 do ShowMessage(Terms.Strings); Terms.Free; end; ///////////////////////////// 根据一组字符分割字符串的函数 type Charset = set of Char; var f : Text; s : String; procedure WriteStringSplitted(var s: String; Separators: Charset); var a,e : Integer; {anfang und ende des w鰎tchens} begin a := 1; for e := 1 to Length(s) do if s in Separators then begin WriteLn(Copy(s, a, e-a)); a := e + 1; end; WriteLn(Copy(s, a, e-a+1)); end; begin Assign(f, 'c:/dingsbums/text.txt'); Reset(f); while not EOF(f) do begin ReadLn(f,s); WriteStringSplitted(s, [':', ',']); end; Close(f); end. ////////////////////////////////////////////////// {===============================================================}  { 函数 : RESULTSTRING = HexToBin(HEXSTRING)  { 目的 : 把十六进制字符串转换为二进制字符串  {  {===============================================================}  { 函数 : RESULTINTEGER = HexCharToInt(HEXCHAR)  { 目的 : 转换一个十六进制字符为整数 {===============================================================}  { 函数 : RESULTSTRING = HexCharToBin(HEXCHAR)  { 目的 : 转换一个十六进制字符为二进制字符串 {===============================================================}  { 函数 : RESULTINTEGER = Pow(BASE,POWER)  { 目的 : 指数函数 {===============================================================}  { 函数 : RESULTINTEGER = BinStrToInt(BINSTRING)  { 目的 : 把二进制字符串转换为整数 {===============================================================}  { 函数 : RESULTSTRING = DecodeSMS7Bit (PDUSTRING)  { 目的 : 解码一个7-bit SMS (GSM 03.38) 为ASCII码  {===============================================================}  { 函数 : RESULTSTRING = ReverseStr (SOURCESTRING)  { 目的 : 反转一个字符串 {===============================================================}  unit BinHexTools;  interface  function HexToBin(HexNr : string): string;  function HexCharToInt(HexToken : char):Integer;  function HexCharToBin(HexToken : char): string;  function pow(base, power: integer): integer;  function BinStrToInt(BinStr : string) : integer;  function DecodeSMS7Bit(PDU : string):string;  function ReverseStr(SourceStr : string) : string;  implementation  uses sysutils, dialogs;  function HexCharToInt(HexToken : char):Integer;  begin  {if HexToken>#97 then HexToken:=Chr(Ord(HexToken)-32);  { use lowercase aswell }  Result:=0;  if (HexToken>#47) and (HexToken<#58) then { chars 0....9 }  Result:=Ord(HexToken)-48  else if (HexToken>#64) and (HexToken<#71) then { chars A....F }  Result:=Ord(HexToken)-65 + 10;  end;  function HexCharToBin(HexToken : char): string;  var DivLeft : integer;  begin  DivLeft:=HexCharToInt(HexToken); { first HEX->BIN }  Result:='';  { Use reverse dividing }  repeat { Trick; divide by 2 }  if odd(DivLeft) then { result = odd ? then bit = 1 }  Result:='1'+Result { result = even ? then bit = 0 }  else  Result:='0'+Result;  DivLeft:=DivLeft div 2; { keep dividing till 0 left and length = 4 }  until (DivLeft=0) and (length(Result)=4); { 1 token = nibble = 4 bits }  end;  function HexToBin(HexNr : string): string;  { only stringsize is limit of binnr }  var Counter : integer;  begin  Result:='';  for Counter:=1 to length(HexNr) do  Result:=Result+HexCharToBin(HexNr);  end;  function pow(base, power: integer): integer;  var counter : integer;  begin  Result:=1;  for counter:=1 to power do  Result:=Result*base;  end;  function BinStrToInt(BinStr : string) : integer;  var counter : integer;  begin  if length(BinStr)>16 then  raise ERangeError.Create(#13+BinStr+#13+  'is not within the valid range of a 16 bit binary.'+#13);  Result:=0;  for counter:=1 to length(BinStr) do  if BinStr='1' then  Result:=Result+pow(2,length(BinStr)-counter);  end;  function DecodeSMS7Bit(PDU : string):string;  var OctetStr : string;  OctetBin : string;  Charbin : string;  PrevOctet: string;  Counter : integer;  Counter2 : integer;  begin  PrevOctet:='';  Result:='';  for Counter:=1 to length(PDU) do  begin  if length(PrevOctet)>=7 then { if 7 Bit overflow on previous }  begin  if BinStrToInt(PrevOctet)<>0 then  Result:=Result+Chr(BinStrToInt(PrevOctet))  else Result:=Result+' ';  PrevOctet:='';  end;  if Odd(Counter) then { only take two nibbles at a time }  begin  OctetStr:=Copy(PDU,Counter,2);  OctetBin:=HexToBin(OctetStr);  Charbin:='';  for Counter2:=1 to length(PrevOctet) do  Charbin:=Charbin+PrevOctet;  for Counter2:=1 to 7-length(PrevOctet) do  Charbin:=OctetBin+Charbin;  if BinStrToInt(Charbin)<>0 then Result:=Result+Chr(BinStrToInt(CharBin))  else Result:=Result+' ';  PrevOctet:=Copy(OctetBin,1,length(PrevOctet)+1);  end;  end;  end;  function ReverseStr(SourceStr : string) : string;  var Counter : integer;  begin  Result:='';  for Counter:=1 to length(SourceStr) do  Result:=SourceStr+Result;  end;  end.  在Delphi中没有前导0输出的函数，如C语言中printf("%08d",10);就会输"000000010"，但是在实际应用中经常会用到此种函数，如财务等数据的输出。如何实现？以下的代码实现了这种功能，  function qd0str(const count,num:integer):String;  Var  s1,s2:String;  begin  s1:=IntToStr(Num);  s2:='00000000000000000000';  if (Length(s1)>=count) then  s2:=''  else if(count>20) then  SetLength(S2,20-Length(s1))  else  SetLength(S2,count-Length(s1));  Result:=S2+S1;  end;  函数的参数count为输出字符串的总长度，在函数中定义为最大20。Num为需要转换成字符串的数据。 //////////////////////////////////////// function IntToLZStr(value : integer;digits : byte) : string; var Res : string; begin Res:=IntToStr(value); while Length(Res)<digits do Insert('0',res,1); IntToLZStr:=Res; end;
 
相关博文： · 【转】DELPHI开始支持LINUXDOCKER · delphiIntegeroverflow · Delphi方法() · DelphiJSON · DelphiCxGrid控件转Excel增加合计
<h3>阅读排行榜</h3>
<ul>
<li>1. delphi常用函数大全（转）(2389)</li>
<li>2. Delphi 快速初始化功能树(cxTreeView)(1201)</li>
<li>3. Delphi 折叠代码编译变量$REGION(1201)</li>
<li>4. CxGrid用法(取行、列值,定位选中某行、排序后获取当前定位的数据等等)(84)</li>

</ul>
  
来源：https://www.cnblogs.com/delphi7/p/14227665.html

頁: [1]

琼殿技术论坛's Archiver

Delphi函数大全