paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 06:19:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: identifier completion: added base types, bug #15354

Browse Source 
git-svn-id: trunk@23164 -
This commit is contained in:
mattias 2009-12-17 14:18:09 +00:00
parent e4cdead4c8
commit 84ca3d5b33
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
components/codetools/identcompletiontool.pas
View File

@ -1142,6 +1142,38 @@ const
CurrentIdentifierList.Add(NewItem);
end;
procedure AddBaseType(const BaseName: PChar);
var
NewItem: TIdentifierListItem;
begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
CompilerFuncHistoryIndex,
BaseName,
CompilerFuncLevel,
nil,
nil,
ctnTypeDefinition);
CurrentIdentifierList.Add(NewItem);
end;
procedure AddBaseConstant(const BaseName: PChar);
var
NewItem: TIdentifierListItem;
begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
CompilerFuncHistoryIndex,
BaseName,
CompilerFuncLevel,
nil,
nil,
ctnConstant);
CurrentIdentifierList.Add(NewItem);
end;
var
NewItem: TIdentifierListItem;
ProcNode: TCodeTreeNode;
@ -1226,6 +1258,34 @@ begin
CurrentIdentifierList.Add(NewItem);
end;
end;
AddBaseType('Char');
AddBaseType('WideChar');
AddBaseType('Real');
AddBaseType('Single');
AddBaseType('Double');
AddBaseType('Extended');
AddBaseType('Currency');
AddBaseType('Comp');
AddBaseType('Int64');
AddBaseType('Cardinal');
AddBaseType('QWord');
AddBaseType('Boolean');
AddBaseType('ByteBool');
AddBaseType('LongBool');
AddBaseType('String');
AddBaseType('AnsiString');
AddBaseType('ShortString');
AddBaseType('WideString');
AddBaseType('UnicodeString');
AddBaseType('Pointer');
AddBaseType('File');
AddBaseType('Text');
AddBaseType('Word');
AddBaseType('SmallInt');
AddBaseType('ShortInt');
AddBaseType('Byte');
AddBaseConstant('Nil');
end;
procedure TIdentCompletionTool.GatherUsefulIdentifiers(CleanPos: integer;