* Fix bug ID #33280, clear function list before filling

git-svn-id: trunk@57422 -
This commit is contained in:
michael 2018-02-28 15:41:45 +00:00
parent cde0a4e21c
commit 5b1ecfe3bd

View File

@ -179,14 +179,14 @@ Var
C : TBuiltInCategory;
begin
With TVData.Items do
With TVFunctions.Items do
try
BeginUpdate;
Clear;
if not Assigned(Report) then
exit;
For C in TBuiltInCategory do
CatNodes[C]:=TVFunctions.Items.AddChild(Nil,CatNames[C]);
CatNodes[C]:=AddChild(Nil,CatNames[C]);
For I:=0 to BuiltinIdentifiers.IdentifierCount-1 do
begin
ID:=BuiltinIdentifiers.Identifiers[i];
@ -201,7 +201,7 @@ begin
If (A<>'') then
S:=S+'('+A+')';
S:=S+':'+TypeName(ID.ResultType);
N:=TVFunctions.Items.AddChild(CatNodes[ID.Category],S);
N:=AddChild(CatNodes[ID.Category],S);
N.Data:=ID;
end;
For C in TBuiltInCategory do