函數函式庫

函數庫：

//尋找與目標字串最匹配的字串
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 ReplaceStr(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;