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

codetools: code completion compiler function Ord

Browse Source 
git-svn-id: trunk@46961 -
This commit is contained in:
mattias 2014-11-22 10:57:47 +00:00
parent eb43af9a27
commit 2daf3e1e32
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/finddeclarationtool.pas
View File

@ -8283,7 +8283,8 @@ begin
DebugLn('NOTE: unimplemented Low(type) type=',ParamNode.DescAsString); DebugLn('NOTE: unimplemented Low(type) type=',ParamNode.DescAsString);
end; end;
end end
else if (CompareIdentifiers(IdentPos,'LENGTH')=0) then else if (CompareIdentifiers(IdentPos,'LENGTH')=0)
or (CompareIdentifiers(IdentPos,'ORD')=0) then
begin begin
if ParamList.Count<>1 then exit; if ParamList.Count<>1 then exit;
Result.Desc:=xtConstOrdInteger; Result.Desc:=xtConstOrdInteger;