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

* Small improvement

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-29 11:35:38 +02:00
parent 2536041230
commit 148bde3f8f
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -499,13 +499,9 @@ end;
function ExcludeLeadingPathDelimiter(Const Path: PathStr): PathStr;
Var
L : Integer;
begin
Result:=Path;
L:=Length(Result);
If (L>0) and CharInSet(Result[1],AllowDirectorySeparators) then
If (Length(Result)>0) and CharInSet(Result[1],AllowDirectorySeparators) then
Delete(Result,1,1);
end;