CODE:
Can someone explain the meaning of 'const' in these definitions?yes it means that you can't change it's value inside the procedure, so the procedure call is a little faster.Statistics: Posted by senso — 07 Dec 2022, 07:43
Statistics: Posted by woodslanding — 07 Dec 2022, 01:50
CODE:
const DirectorySeparator : Char = {$IFDEF MSWINDOWS} '\'; {$ELSE} '/'; {$ENDIF} const LineEnding = #13#10; function GetApplicationPath:string; //give the absolute path of the current Usine's folder procedure FindFiles(const Directory: String; Extensions: String; Recursive: Boolean; Result: TStringList); // [Extensions] can be a comma-text procedure FindDirectories(const Directory: String; Recursive: Boolean; Result: TStringList); function WriteFileContents(const FileName: String; const Text: String; Append: Boolean): Boolean; function ReadFileContents(const FileName: String): String; function CreateDirectory(const Directory: String): Boolean; function ForceDirectories(const Directory: String): Boolean; function DeleteDirectory(const Directory: String; OnlyChildren: Boolean): Boolean; function DeleteFile(const FileName: String): Boolean; function RenameFile(const OldFileName, NewFileName: String): Boolean; function CopyFile(const SourceFileName, DestFileName: String; Overwrite: Boolean = False): Boolean; function FileExists(const FileName: String): Boolean; function DirectoryExists(const Directory: String): Boolean; function FileAge(const FileName: String): Int32; overload; function FileAge(const FileName: String; out FileDateTime: TDateTime): Boolean; overload; function ExtractFilePath(const FileName: String): String; function ExtractFileDrive(const FileName: String): String; function ExtractFileName(const FileName: String): String; function ExtractFileExt(const FileName: String): String; function ExtractFileDir(const FileName: String): String; function ExpandFileName(const FileName: String): String; function ExtractRelativePath(const BaseName, DestName: String): String; function IncludeTrailingPathDelimiter(const Path: String) : String; function ExcludeTrailingPathDelimiter(const Path: String): String; function IncludeTrailingBackslash(const Path: String) : String; function ExcludeTrailingBackslash(const Path: String): String; function IncludeLeadingPathDelimiter(const Path : String) : String; function ExcludeLeadingPathDelimiter(const Path: String): String; // for compatibility function SubFileExt(filename:String):string; function PathDelim:string; // returns '/' on MACOS, '\' on windows procedure CreateDir(dir:String);Statistics: Posted by senso — 06 Dec 2022, 11:43
Statistics: Posted by woodslanding — 06 Dec 2022, 02:49
CODE:
Can someone explain the meaning of 'const' in these definitions?yes it means that you can't change it's value inside the procedure, so the procedure call is a little faster.Statistics: Posted by senso — 07 Dec 2022, 07:43
Statistics: Posted by woodslanding — 07 Dec 2022, 01:50
CODE:
const DirectorySeparator : Char = {$IFDEF MSWINDOWS} '\'; {$ELSE} '/'; {$ENDIF} const LineEnding = #13#10; function GetApplicationPath:string; //give the absolute path of the current Usine's folder procedure FindFiles(const Directory: String; Extensions: String; Recursive: Boolean; Result: TStringList); // [Extensions] can be a comma-text procedure FindDirectories(const Directory: String; Recursive: Boolean; Result: TStringList); function WriteFileContents(const FileName: String; const Text: String; Append: Boolean): Boolean; function ReadFileContents(const FileName: String): String; function CreateDirectory(const Directory: String): Boolean; function ForceDirectories(const Directory: String): Boolean; function DeleteDirectory(const Directory: String; OnlyChildren: Boolean): Boolean; function DeleteFile(const FileName: String): Boolean; function RenameFile(const OldFileName, NewFileName: String): Boolean; function CopyFile(const SourceFileName, DestFileName: String; Overwrite: Boolean = False): Boolean; function FileExists(const FileName: String): Boolean; function DirectoryExists(const Directory: String): Boolean; function FileAge(const FileName: String): Int32; overload; function FileAge(const FileName: String; out FileDateTime: TDateTime): Boolean; overload; function ExtractFilePath(const FileName: String): String; function ExtractFileDrive(const FileName: String): String; function ExtractFileName(const FileName: String): String; function ExtractFileExt(const FileName: String): String; function ExtractFileDir(const FileName: String): String; function ExpandFileName(const FileName: String): String; function ExtractRelativePath(const BaseName, DestName: String): String; function IncludeTrailingPathDelimiter(const Path: String) : String; function ExcludeTrailingPathDelimiter(const Path: String): String; function IncludeTrailingBackslash(const Path: String) : String; function ExcludeTrailingBackslash(const Path: String): String; function IncludeLeadingPathDelimiter(const Path : String) : String; function ExcludeLeadingPathDelimiter(const Path: String): String; // for compatibility function SubFileExt(filename:String):string; function PathDelim:string; // returns '/' on MACOS, '\' on windows procedure CreateDir(dir:String);Statistics: Posted by senso — 06 Dec 2022, 11:43
Statistics: Posted by woodslanding — 06 Dec 2022, 02:49