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

FpDebug: add intrinsic "len" as shortcut for "length"

Browse Source
This commit is contained in:
Martin 2023-03-23 21:31:11 +01:00
parent badfeecb5d
commit a0ef09293b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fppascalparser.pas
View File

@ -3036,7 +3036,10 @@ begin
Result := ifErrorNotFound;
case ALen of
2: if strlicomp(AStart, 'CC', 2) = 0 then Result := ifChildClass;
3: if strlicomp(AStart, 'POS', 3) = 0 then Result := ifPos;
3: case AStart^ of
'l', 'L': if strlicomp(AStart, 'LEN', 3) = 0 then Result := ifLength;
'p', 'P': if strlicomp(AStart, 'POS', 3) = 0 then Result := ifPos;
end;
5: case AStart^ of
'l', 'L': if strlicomp(AStart, 'LOWER', 5) = 0 then Result := ifLower;
'u', 'U': if strlicomp(AStart, 'UPPER', 5) = 0 then Result := ifUpper;