paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: comment

Browse Source
This commit is contained in:
mattias 2024-04-13 11:03:43 +02:00
parent 9ede831c2a
commit 66d72908dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazfileutils.pas
View File

@ -69,7 +69,7 @@ function TryCreateRelativePath(const Dest, Source: String; UsePointDirectory: bo
function CreateRelativePath(const Filename, BaseDirectory: string; function CreateRelativePath(const Filename, BaseDirectory: string;
UsePointDirectory: boolean = false; AlwaysRequireSharedBaseFolder: Boolean = True): string; UsePointDirectory: boolean = false; AlwaysRequireSharedBaseFolder: Boolean = True): string;
function FileIsInPath(const Filename, Path: string): boolean; function FileIsInPath(const Filename, Path: string): boolean;
function PathIsInPath(const Path, Directory: string): boolean; function PathIsInPath(const Path, Directory: string): boolean; // check if Directory is in Path
// Storten a file name for display. // Storten a file name for display.
function ShortDisplayFilename(const aFileName: string; aLimit: Integer = 80): string; function ShortDisplayFilename(const aFileName: string; aLimit: Integer = 80): string;