Funktionsbibliothek

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;