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

codetools: identifier completion: add variant, patch #28615 from Ondrej Pokorny

Browse Source 
git-svn-id: trunk@49748 -
This commit is contained in:
mattias 2015-09-03 10:52:20 +00:00
parent 8546093cee
commit 5dadb9fdad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -1408,7 +1408,7 @@ begin
for I := Low(I) to High(I) do for I := Low(I) to High(I) do
begin begin
case I of case I of
xtChar..xtPointer, xtLongint..xtByte: xtChar..xtPointer, xtLongint..xtByte, xtVariant:
AddBaseType(PChar(ExpressionTypeDescNames[I])); AddBaseType(PChar(ExpressionTypeDescNames[I]));
xtFile, xtText: xtFile, xtText:
if not (ilcfStartInStatement in CurrentIdentifierList.ContextFlags) then if not (ilcfStartInStatement in CurrentIdentifierList.ContextFlags) then