paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 10:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added function IncludeLeadingPathDelimiter: it adds a path delimiter in front of a path

Browse Source 
* added function ExcludeLeadingPathDelimiter: it removes a path delimiter in front of a path
* added function ConcatPaths: it concats multiple path fragments, path delimiters are added if necessary

git-svn-id: trunk@15167 -
This commit is contained in:
ivost 2010-04-24 21:05:05 +00:00
parent fecd661bcb
commit 980c353421
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/objpas/sysutils/fina.inc
View File

@ -274,12 +274,49 @@ begin
Result:=Copy(Path,1,L);
end;
function IncludeLeadingPathDelimiter(Const Path : String) : String;
Var
l : Integer;
begin
Result:=Path;
l:=Length(Result);
If (L=0) or not(Result[1] in AllowDirectorySeparators) then
Result:=DirectorySeparator+Result;
end;
function ExcludeLeadingPathDelimiter(Const Path: string): string;
Var
L : Integer;
begin
L:=Length(Path);
If (L>0) and (Path[1] in AllowDirectorySeparators) then
Dec(L);
Result:=Copy(Path,2,L);
end;
function IsPathDelimiter(Const Path: string; Index: Integer): Boolean;
begin
Result:=(Index>0) and (Index<=Length(Path)) and (Path[Index] in AllowDirectorySeparators);
end;
function ConcatPaths(const Paths: array of String): String;
var
I: Integer;
begin
if Length(Paths) > 0 then
begin
Result := Paths[0];
for I := 1 to Length(Paths) - 1 do
Result := IncludeTrailingPathDelimiter(Result) + ExcludeLeadingPathDelimiter(Paths[I]);
end else
Result := '';
end;
Function GetFileHandle(var f : File):Longint;
begin

3
rtl/objpas/sysutils/finah.inc
View File

@ -34,9 +34,12 @@ function IncludeTrailingPathDelimiter(Const Path : String) : String;
function IncludeTrailingBackslash(Const Path : String) : String;
function ExcludeTrailingBackslash(Const Path: string): string;
function ExcludeTrailingPathDelimiter(Const Path: string): string;
function IncludeLeadingPathDelimiter(Const Path : String) : String;
function ExcludeLeadingPathDelimiter(Const Path: string): string;
function IsPathDelimiter(Const Path: string; Index: Integer): Boolean;
Procedure DoDirSeparators (Var FileName : String);
Function SetDirSeparators (Const FileName : String) : String;
Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint;
Function SameFileName(const S1, S2: string): Boolean;
function ConcatPaths(const Paths: array of String): String;