Home > Handbuch > Entwicklerhilfe > Pascal-Referenz > Hilfsfunktionen Hilfsfunktionen |
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 für Hinweise und Rückfragen |
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