Funktionsbibliothek:
//Suche die Zeichenfolge, die am besten zur Zielzeichenfolge passt
function MaxMatchStr(DestStr:String;Strs:array of String):String;
//Leerzeichen im Text entfernen
function FmtText(Text:String):String;
//Gleitkommazahlen formatieren und Gleitkommafehler korrigieren.
function FmtFloat(Value:Extended;Digits:Integer=4):Double;
// Teilzeichenfolge in Str ersetzen
procedure ReplacementStr(var Str:String;const SourceStr,DestStr:String);
//Ob der Ausdruck Expression das Element Item enthält
Funktion IncludeItem(Expression,Item:String):Boolean;
//Meldungsfeld anzeigen
Funktion MsgBox(const Handle:THandle;Text,Caption:String;
Flag:Ganzzahl):Ganzzahl;
//Nachricht anzeigen
procedure ShowMsg(Sender:TCustomForm;Msg:String);
//Fehler anzeigen und das aktuelle Ereignis beenden
procedure ShowError(Sender:TCustomForm;Error:String);
//Fehler anzeigen
procedure ErrorMsg(Sender:TCustomForm;Error:String);
//Warnung anzeigen
procedure ShowWarning(Sender:TCustomForm;Warning:String);
//Name und Wert der Registrierungsdaten lesen
procedure GetNamesAndValues(Registry:TRegistry;NamesValues:TStrings);
//Daten in die Registry schreiben
procedure WriteValues(Registry:TRegistry;ValueNames:array of String;Values:array of Variant);
//Lesen Sie den Zeichenfolgenwert in der Registrierung
function ReadRegistString(ARootKey:HKEY;Key,Name:String;DefaultValue:String= ):String;
//String-Wert in die Registrierung schreiben
procedure WriteRegistString(ARootKey:HKEY;Key,Name,Value:String);
//Lesen Sie den ganzzahligen Wert in der Registrierung
Funktion ReadRegistInteger(ARootKey:HKEY;Key,Name:String;DefaultValue:Integer=0):Integer;
// Einen ganzzahligen Wert in die Registrierung schreiben
procedure WriteRegistWord(ARootKey:HKEY;Key,Name:String;Value:Integer);
//Lesen Sie den booleschen Wert in der Registrierung
Funktion ReadRegistBool(ARootKey:HKEY;Key,Name:String;DefaultValue:Boolean=False):Boolean;
// Einen booleschen Wert in die Registrierung schreiben
procedure WriteRegistBool(ARootKey:HKEY;Key,Name:String;Value:Boolean);
//Datum im chinesischen Format darstellen: XXXX Jahr XX Monat XX Tag
function DateToChinese(ADate:TDate):String;
//Den lokalen Maschinennamen abrufen
Funktion GetComputerName:String;
//Das temporäre Dateiverzeichnis abrufen
Funktion GetWinTempDir:String;
//Systemverzeichnis abrufen
Funktion GetSystemDir:String;
//Temporären Dateinamen generieren
function GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String;
