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

added cleanup for TFindDeclarationParams

Browse Source 
git-svn-id: trunk@8797 -
This commit is contained in:
mattias 2006-02-22 20:59:43 +00:00
parent 2106fdeddb
commit d1d5e5a349
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/finddeclarationtool.pas
View File

@ -424,6 +424,8 @@ type
FoundProc: PFoundProc;
end;
{ TFindDeclarationParams }
TFindDeclarationParams = class(TObject)
public
// input parameters:
@ -443,6 +445,7 @@ type
NewTopLine: integer;
NewFlags: TFoundDeclarationFlags;
constructor Create;
destructor Destroy; override;
procedure Clear;
procedure Save(var Input: TFindDeclarationInput);
procedure Load(var Input: TFindDeclarationInput);
@ -7699,9 +7702,16 @@ begin
Clear;
end;
destructor TFindDeclarationParams.Destroy;
begin
Clear;
inherited Destroy;
end;
procedure TFindDeclarationParams.Clear;
begin
ClearInput;
ClearFoundProc;
ClearResult(false);
OnTopLvlIdentifierFound:=nil;
end;
@ -7787,7 +7797,6 @@ begin
ContextNode:=nil;
OnIdentifierFound:=nil;
IdentifierTool:=nil;
ClearFoundProc;
end;
procedure TFindDeclarationParams.ClearFoundProc;