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

added SetLength and Copy to built-in identifiers for identifier completion

Browse Source 
git-svn-id: trunk@8089 -
This commit is contained in:
mattias 2005-11-07 09:47:06 +00:00
parent ad4d82e51e
commit 8ca9b4ebec
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/codetools/identcompletiontool.pas
View File

@ -802,6 +802,32 @@ var
ProcNode: TCodeTreeNode; ProcNode: TCodeTreeNode;
begin begin
if Context.Node.Desc in AllPascalStatements then begin if Context.Node.Desc in AllPascalStatements then begin
// begin..end -> add 'SetLength'
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
0,
'SetLength',
StatementLevel,
nil,
nil,
ctnProcedure);
NewItem.ParamList:='array of type; NewLength: integer';
CurrentIdentifierList.Add(NewItem);
// begin..end -> add 'copy'
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
0,
'Copy',
StatementLevel,
nil,
nil,
ctnProcedure);
NewItem.ParamList:='const s: string; FromPosition, ToPosition: integer';
CurrentIdentifierList.Add(NewItem);
if Context.Tool.NodeIsInAMethod(Context.Node) if Context.Tool.NodeIsInAMethod(Context.Node)
and (not CurrentIdentifierList.HasIdentifier('Self','')) then begin and (not CurrentIdentifierList.HasIdentifier('Self','')) then begin
// method body -> add 'Self' // method body -> add 'Self'