Unit ConvertCheck

[markus5766h]

Hallo,
ab und zu ergibt sich mal die Frage, wie Strings auf Integerwerte überprüfen,
Zeichen in Strings ersetzen oder Werte umwandeln.
Für die von mir am meisten benötigten Funktionen hab' ich mir 'ne Unit geschrieben.

Funktionen :

// function IsInteger(S: String): Boolean;
// prüft einen String auf Vorhandensein eines Integer-Wertes

// function IsCurrency(S: String): Boolean;
// prüft einen String auf Vorhandensein eines Currency-Wertes

// function IsExtended(S: String): Boolean;
// prüft einen String auf Vorhandensein eines Extended-Wertes

// function IsNumeric(S: String): Boolean;
// prüft einen String auf Vorhandensein der Ziifern 0...9

// function IsColor6(S: String):Boolean;
// prüft einen String auf Vorhandensein eines Color-Wertes ($000000 .. $FFFFFF)

// function IsColor8(S: String):Boolean;
// prüft einen String auf Vorhandensein eines Color-Wertes ($00000000 .. $FFFFFFFF)

// function IsString(S: String; A: String): Boolean;
// prüft einen String(S) auf die Verwendung der Zeichen im String(A)
// gibt True zurück, wenn der String(S) nur aus den Zeichen im String(A) besteht

// function IsNotString(S: String; A: String): Boolean;
// prüft einen String(S) auf die Verwendung der Zeichen im String(A)
// gibt True zurück, wenn der String(S) ein / oder mehrere Zeichen aus String(A) enthält

// function IsIdent(S: String; A: String): Integer;
// vergleicht String(S) und String(A)
// gibt die Anzahl unterschiedlicher Chars zurück

// function CheckInvalidChars(const FilePath: String): String;
// prüft [FilePath] auf nicht verwendbare Chars und ersetzt diese
// Prüfung für Pfad : [RePath], Ersetzt mit [ReP]
// Prüfung für File : [ReFile], Ersetzt mit [ReF]
// Rückgabewert ist der bearbeitete String

// function IntToHexString(n : Integer; num : Integer) : String;
// konvertiert einen Integerwert in einen Hex-Wert
// num gibt die Länge des Strings an (Führende Nullen)
// mit num = 0 wird die Länge automatisch gesetzt

// function HexToInt(n : String): Integer;
// konvertiert einen Hex(-String) zu Ineger
// der Hex-Wert kann mit oder ohne führendes '$'-Zeichen eingegeben werden

// function RGBToColor(R, G, B : Byte): TColor;
// konvertiert einen RGB-Wert in TColor;

// procedure ColorToRGB(Const C : TColor; var R, G, B: Byte);
// konvertiert einen TColor-Wert in R-G-B-Werte

// function IntToBin(n : Integer): String;
// konvertiert einen Integer-Wert in einen Binär-Wert

// function BinToInt(b : String): Integer;
// konvertiert einen Binär-Wert in einen Integer-Wert