| 
      
       Home > Handbuch > Entwicklerhilfe > Pascal-Referenz > Hilfsfunktionen Hilfsfunktionen | 
    
Zusätzlich zu den Standard-Pascal-Funktionen können folgende verwendet werden:
function CopyFileOrDir(Source, Dest: string): boolean  | 
Datei oder Verzeichnis mit SHFileOperation kopieren  | 
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 MoveFileOrDir(Source, Dest: string): boolean  | 
Datei oder Verzeichnis mit SHFileOperation verschieben  | 
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 UploadFile(Mode: integer; LocalFileName, RemoteFileName, Host: string; Port: integer; UserName, Password, PublicKeyFile, PrivateKeyFile: string): boolean  | 
Datei mittels FTP oder SFTP hochladen (s. a.)  | 
function ViewDataset(Dataset: TDataset; Caption: string; ReadOnly: boolean): boolean;  | 
Eine Datentabelle zeigen, result ist bei Änderungen true.  | 
function WinApiGetSpecialDir(CLSID: integer): string  | 
Windows-Verzeichnisse ermitteln, z. B. $0026 für Program Files.  | 
Siehe auch