Hilfsfunktionen

Navigation:  Entwicklerhilfe > Pascal-Referenz

Hilfsfunktionen

Previous pageReturn to chapter overviewNext page

Zusätzliche Pascal-Funktionen

Zusätzlich zu den Standard-Pascal-Funktionen können folgende verwendet werden:

function FileIsLocked(FileName: string; NeedWriteAccess: boolean): boolean

true, wenn die Datei gesperrt oder schreibgeschützt ist.

function GetCleanFileName(FileName: string; OnlyName: boolean): string

Bereinigt den String, so dass er als Dateiname verwendet werden kann. OnlyName=true, wenn nur der Name ohne Pfad und Endung angegeben ist.

function GetFileHashSum(FileName: string): string

MD5 Checksumme der Datei

function GetJournalPrefix: string

'[28.02.2001 10:45 Benutzer an Computername]'

function GetUniqueFileName(FileName: string): string

Eindeutigen (nicht vorhandenen) Dateinamen ermitteln. Wenn FileName bereits vorhanden ist, wird eine Zahl angefügt.

function IsCurrArchive(ArchivName: string): boolean

Schnellprüfung, ob das gewünschte Archiv geöffnet ist. Dateiname ohne Pfad, mit oder ohne Endung.

function IsNewerFile(const NewerFileName, OlderFileName: string): boolean

true, wenn NewerFile neuer als OlderFile ist

function IsSameFile(const ReferenceFileName, OtherFileName: string): boolean

true, wenn beide Dateien inhaltsgleich sind

procedure LogDebugInfo(Info: string)

Gibt den Text "Info" in einem Debug-Fenster aus.

function TokenizeString(Str: string; Delimn: Char; IgnoreEmpty: boolean): TStrings

Zerlegt einen String und gibt die Teile in einer Stringliste zurück. Die Liste wird von der Funktion erzeugt.

function TaskMessageDlg(Title, Msg, MsgEx, MsgFooter: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; BtnCaptions: array of string; DefaultBtn: TMsgDlgBtn; HelpCtx: integer; ExpandBtnCaption: string; ShowAgainCB = false): integer

Taskdialog ab Windows Vista, normaler Messagedialog auf XP

function TaskMessageDlg(Title, Msg, MsgEx, NameForShowAgain: string;

DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; reserviert für BtnCaptions: array of string; Default_WennNichtMehrGezeigt: Word; HelpCtx: integer; reserviert ExpandBtnCaption: string; ShowAgainCB = true): integer

Taskdialog mit Option "Erneut zeigen"

function WinApiGetSpecialDir(CLSID: integer): string

Windows-Verzeichnisse ermitteln, z. B. $0026 für Program Files.

Siehe auch

Pascal-Referenz