[SOLVED] Simplified ExcludeLeadingPathDelimiter

[lagprogramming]

rtl/objpas/sysutils/fina.inc has

Code: Pascal  [Select][+][-]

1. function ExcludeLeadingPathDelimiter(Const Path: PathStr): PathStr;
2.  
3. Var
4.   L : Integer;
5.  
6. begin
7.   Result:=Path;
8.   L:=Length(Result);
9.   If (L>0) and CharInSet(Result[1],AllowDirectorySeparators) then
10.     Delete(Result,1,1);
11. end;

After replacing "If (L>0)" with "If (Result<>'')" and removing the variable "L", the function becomes:

Code: Pascal  [Select][+][-]

1. function ExcludeLeadingPathDelimiter(Const Path: PathStr): PathStr;
2. begin
3.   Result:=Path;
4.   If (Result<>'') and CharInSet(Result[1],AllowDirectorySeparators) then
5.     Delete(Result,1,1);
6. end;

A patch is attached.

[Fibonacci]

Why don't you submit these patches on gitlab?

[AlexTP]

Postted to https://gitlab.com/freepascal.org/fpc/source/-/issues/40415

[AlexTP]

Sorry for the last comment-- I misread the code and 'found' for-loop.

[Fibonacci]

Yeah I was wondering where is that loop