Unit uUtilities

Uses

Klassen, Interfaces und Objects

Datentypen

Variablen

Beschreibung

Die Unit uUtilities beinhaltet eine Reihe von Hilfsfunktionen und Hilfsprozeduren, die auch in anderen Programmen gebraucht werden können.

  Änderungsprotokoll:
  - 20.03.05 
    function GetAktJahr hinzugefügt
  - 06.04.05
    procedure SubstituteStr hinzugefügt
  - 09.04.05
    function GetMonatsname hinzugefügt
  - 16.04.05
    + Funktion FloatStr überarbeitet
    + Funktion GetID hinzugefügt
  - 23.04.05
    + Funktion DatumToStr überladen
    + Funktion UhrzeitToStr hinzugefügt
  - 25.04.05
    + Funktion GetMonatsID hinzugefügt
  - 26.04.05
    + Wenn bei UhrzeitToStr die Stude oder Minute <0 ist wird ein leerer
      String zurückgegeben
  - 29.04.05
    + function EntferneUndZeichen hinzugefügt
  - 20.05.05
    + function CanOpenFile prüft, ob eine Datei geöffnet werden kann oder ob
      sie bereits von einem anderen Programm geöffnet wurde
  - 21.05.05
    + function IsFileReadOnly prüft, ob das Attribut Schreibschutz gesetzt ist
    + procedure SetWritable entfernt das Schreibschutzattribut
    + procedure SetReadOnly setzt das Schreibschutzattribut
  - 25.05.05
    + function NamenAbkuerzen ergänzt
  - 26.05.05
    + function NamenAbkuerzen entfernt, diese Funktionalität übernimmt jetzt
      eine Methode in der Klasse TMitgliedCollection
  - 27.05.05
    + function FloatStr - Wird ein Punkt eingegeben wird dieser durch ein
      Komma ersetzt
  - 26.07.05
    + Beginn der Kommentierung
  - 28.07.05
    + Ende der Kommentierung
  - 02.08.05
    + Kommentierung
  - 09.09.05
    + Funktion CutString ergänzt
  - 10.09.05
    + Funktion GetVolumeName ergänzt
  - 11.09.05
    + Funktion GetLaufwerkTyp ergänzt
  - 25.09.05
    + Prozedur Ersetzen ergänzt
  - 12.06.08
    + Funktion GetFirstLine ergänzt
  - 28.06.08
    + Funktion IsPrinterAvailable ergänzt
  - 04.09.08
    + Funktion IsEmailAddress ergänzt
  - 06.09.08
    + Funktion IsURL ergänzt
  - 24.09.08
    + Funktion NowUTC ergänzt
  - 25.09.08
    + Funktion GetAktMonat ergänzt
  - 27.09.08
    + Funktion GetFileSize ergänzt
  - 28.09.08
    + Funktion GetTempPfad ergänzt
  - 04.10.08
    + Funktion GetAssociatedIcon ergänzt
  - 11.10.08
    + Funktion MustB64Coded ergänzt
  - 09.01.09
    + Prozedur ShredderAndDeleteFile ergänzt
  - 10.03.09
    + Funktion UrlEncode ergänzt
  - 01.05.09
    + Prozeduren ShredderFile und ShredderAndDelete geändert
  - 20.07.09
    + Methoden
      * CompareMD5Hash
      * GetMD5Hash
      ergänzt
  - 22.07.09
    + Methoden
      * CompareMD5Hash
      * GetMD5Hash
      arbeiten nun mit dem Hashwert repräsentiert als Hexadezimalwert
  - 14.08.09
    + Methode IsFQDN ergänzt

Übersicht

Funktionen und Prozeduren

function FloatStr(p_strTmp : string) : string;

function IntStr(p_strTmp : string) : string;

function TelefonStr(p_strTmp : string) : string;

function DatumToStr(p_iTag, p_iMonat : integer; p_strJahr : string) : string; overload;

function DatumToStr(p_iTag, p_iMonat, p_iJahr : integer) : string; overload;

function UhrzeitToStr(p_iStunde, p_iMinute : integer) : string;

procedure SubstitueStr(var p_strTmp : string; p_strAlt, p_strNeu : string);

function GetID(p_strTmp : string) : integer;

function EntferneUndZeichen(p_strTmp : string) : string;

function CutString(p_strTmp : string; p_iAnzChar : integer) : string;

procedure Ersetzen(const p_strAlt, p_strNeu : string; var p_strQuelle : string);

function UrlEncode(const DecodedStr: String; Pluses: Boolean): String;

function ExistiertDatum(p_iTag, p_iMonat, p_iJahr : integer) : boolean;

function GetAktJahr : integer;

function GetAktMonat : integer;

function GetMonatsname(p_iMonat : byte) : string;

function GetMonatsID(p_strMonat : string) : integer;

function NowUTC: TDateTime;

function GetTempDateinamen : string;

function GetTempPfad : string;

function GetVersion(Datei: string): string;

function GetFileDate(Datei: string): string;

function GetFileSize(const szFile: String): Int64;

function CanOpenFile(Datei : string) : boolean;

function IsFileReadOnly(Datei : string) : boolean;

procedure SetReadOnly(Datei : string);

procedure SetWritable(Datei : string);

function GetVolumeName(p_chLaufwerk : char) : string;

function GetLaufwerkTyp(p_chLaufwerk : char) : byte;

function GetFirstLine(Datei : string) : string;

function ExpandEnvironment(const strValue: string): string;

function IsPrinterAvailable : boolean;

function GetAssociatedIcon(const AExtension: string; ASmall: Boolean): HIcon;

procedure ShredderAndDeleteFile(const strDatei: string; iCountToWrite : integer = 1);

function CompareMD5Hash(strDatei, strMD5Hash : string) : boolean;

function GetMD5Hash(strDatei : string) : string;

function IsEmailAddress(const AInputString : string) : boolean;

function IsURL(const AInputString : string) : boolean;

function IsFQDN(const AInputString : string) : boolean;

function MustB64Coded(const AInputString : string) : boolean;

Konstanten

ID_CHANGE : integer = 0;

ID_ADD : integer = 1;

DRV_REMOVE : byte = 0;

DRV_FIXED : byte = 1;

DRV_CDROM : byte = 2;

DRV_NET : byte = 3;

DRV_RAM : byte = 4;

DRV_UNKNOWN : byte = 5;

DRV_NOTEXISTS : byte = 6;