paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* skip empty path components in concatpaths, related to #40682

Browse Source
This commit is contained in:
marcoonthegit 2024-04-03 14:40:32 +02:00
parent 654a8e564b
commit 2ec99cc82e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -519,12 +519,14 @@ function ConcatPaths(const Paths: array of PathStr): PathStr;
var
I: Integer;
begin
Result := '';
if Length(Paths) > 0 then
begin
Result := Paths[0];
if Paths[0]<>'' then
Result := Paths[0];
for I := 1 to Length(Paths) - 1 do
Result := IncludeTrailingPathDelimiter(Result) + ExcludeLeadingPathDelimiter(Paths[I]);
end else
Result := '';
if Paths[i]<>'' then
Result := IncludeTrailingPathDelimiter(Result) + ExcludeLeadingPathDelimiter(Paths[I]);
end
end;