paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 17:52:59 +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; FoundProc: PFoundProc;
end; end;
{ TFindDeclarationParams }
TFindDeclarationParams = class(TObject) TFindDeclarationParams = class(TObject)
public public
// input parameters: // input parameters:
@ -443,6 +445,7 @@ type
NewTopLine: integer; NewTopLine: integer;
NewFlags: TFoundDeclarationFlags; NewFlags: TFoundDeclarationFlags;
constructor Create; constructor Create;
destructor Destroy; override;
procedure Clear; procedure Clear;
procedure Save(var Input: TFindDeclarationInput); procedure Save(var Input: TFindDeclarationInput);
procedure Load(var Input: TFindDeclarationInput); procedure Load(var Input: TFindDeclarationInput);
@ -7699,9 +7702,16 @@ begin
Clear; Clear;
end; end;
destructor TFindDeclarationParams.Destroy;
begin
Clear;
inherited Destroy;
end;
procedure TFindDeclarationParams.Clear; procedure TFindDeclarationParams.Clear;
begin begin
ClearInput; ClearInput;
ClearFoundProc;
ClearResult(false); ClearResult(false);
OnTopLvlIdentifierFound:=nil; OnTopLvlIdentifierFound:=nil;
end; end;
@ -7787,7 +7797,6 @@ begin
ContextNode:=nil; ContextNode:=nil;
OnIdentifierFound:=nil; OnIdentifierFound:=nil;
IdentifierTool:=nil; IdentifierTool:=nil;
ClearFoundProc;
end; end;
procedure TFindDeclarationParams.ClearFoundProc; procedure TFindDeclarationParams.ClearFoundProc;