开发工具:
文件大小: 3kb
下载次数: 0
上传时间: 2004-11-08
详细说明： //寻找与目标字符串最匹配的字符串 function MaxMatchStr(DestStr:String;Strs:array of String):String; //删除Text中的空格 function FmtText(Text:String):String; //格式化浮点数,修正其中的浮点误差 function FmtFloat(Value:Extended;Digits:Integer=4):Double; //在Str中替换子串 procedure Repl aceStr(var Str:String;const SourceStr,DestStr:String); //表达式Expression中是否含有项目Item function IncludeItem(Expression,Item:String):Boolean; //显示消息框 function MsgBox(const Handle:THandle;Text,Caption:String; Flag:Integer):Integer; //显示消息 procedure ShowMsg(Sender:TCustomForm;Msg:String); //显示错误,并终止当前事件 procedure ShowError(Sender:TCustomForm;Error:String); //显示错误 procedure ErrorMsg(Sender:TCustomForm;Error:String); //显示警告 procedure ShowWarning(Sender:TCustomForm;Warning:String); //读取注册表数据名称和值 procedure GetNamesAndValues(Registry:TRegistry;NamesValues:TStrings); //向注册表中写入数据 procedure WriteValues(Registry:TRegistry;ValueNames:array of String;Values:array of Variant); //读取注册表中的字符串值 function ReadRegistString(ARootKey:HKEY;Key,Name:String;DefaultValue:String=''):String; //向注册表中写入字符串值 procedure WriteRegistString(ARootKey:HKEY;Key,Name,Value:String); //读取注册表中的整数值 function ReadRegistInteger(ARootKey:HKEY;Key,Name:String;DefaultValue:Integer=0):Integer; //向注册表中写入整数值 procedure WriteRegistWord(ARootKey:HKEY;Key,Name:String;Value:Integer); //读取注册表中的布尔值 function ReadRegistBool(ARootKey:HKEY;Key,Name:String;DefaultValue:Boolean=False):Boolean; //向注册表中写入布尔值 procedure WriteRegistBool(ARootKey:HKEY;Key,Name:String;Value:Boolean); //将日期表示为中文格式:XXXX年XX月XX日 function DateToChinese(ADate:TDate):String; //取本机机器名 function GetComputerName:String; //取临时文件目录 function GetWinTempDir:String; //取系统目录 function GetSystemDir:String; //生成临时文件名 function GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
