関数ライブラリ

関数ライブラリ:

// ターゲット文字列に最もよく一致する文字列を検索します
関数 MaxMatchStr(DestStr:String;Strs:String の配列):String;

//テキスト内のスペースを削除します
関数 FmtText(Text:String):String;

//浮動小数点数をフォーマットし、浮動小数点エラーを修正します。
関数 FmtFloat(値:拡張;桁数:整数 = 4):Double;

// Str 内の部分文字列を置換します
プロシージャ ReplaceStr(var Str:String;const SourceStr,DestStr:String);

//式 Expression に項目が含まれるかどうか
関数 IncludeItem(Expression,Item:String):Boolean;

//メッセージボックスを表示する
function MsgBox(const ハンドル:THandle;テキスト,キャプション:文字列;
フラグ:整数):整数;

//メッセージを表示する
プロシージャ ShowMsg(Sender:TCustomForm;Msg:String);

//エラーを表示し、現在のイベントを終了します
プロシージャ ShowError(Sender:TCustomForm;Error:String);

// 表示エラー
プロシージャ ErrorMsg(Sender:TCustomForm;Error:String);

// 警告を表示する
プロシージャ ShowWarning(Sender:TCustomForm;Warning:String);

//レジストリデータの名前と値を読み取る
プロシージャ GetNamesAndValues(Registry:TRegistry;NamesValues:TStrings);

// レジストリにデータを書き込みます
プロシージャ WriteValues(Registry:TRegistry;ValueNames:String の配列;Values:Variant の配列);

//レジストリ内の文字列値を読み取ります
function ReadRegistString(ARootKey:HKEY;Key,Name:String;DefaultValue:String= ):String;

//文字列値をレジストリに書き込みます
プロシージャ WriteRegistString(ARootKey:HKEY;Key,Name,Value:String);

//レジストリ内の整数値を読み取る
関数 ReadRegistInteger(ARootKey:HKEY;Key,Name:String;DefaultValue:Integer=0):Integer;

// 整数値をレジストリに書き込みます
プロシージャ WriteRegistWord(ARootKey:HKEY;Key,Name:String;Value:Integer);

//レジストリ内のブール値を読み取ります
関数 ReadRegistBool(ARootKey:HKEY;Key,Name:String;DefaultValue:Boolean=False):Boolean;

// ブール値をレジストリに書き込みます
プロシージャ WriteRegistBool(ARootKey:HKEY;Key,Name:String;Value:Boolean);

//日付を中国語形式で表現：XXXX年XX月XX日
関数 DateTo Chinese(ADate:TDate):String;

//ローカルマシン名を取得する
関数 GetComputerName:String;

//一時ファイルのディレクトリを取得する
関数 GetWinTempDir:String;

//システムディレクトリを取得
関数 GetSystemDir:String;

//一時ファイル名を生成
function GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String;