delphi xe memory leak produced in WSDLLookup.pas

constructor TWSDLLookup.Create;

begin

  FLookup := TDictionary<string, Variant>.Create;

end;



destructor TWSDLLookup.Destroy;

begin

  ClearWSDLLookup;  //问题在这里

  inherited;

end;

改为:

constructor TWSDLLookup.Create;

begin

  FLookup := TDictionary<string, Variant>.Create;

end;



destructor TWSDLLookup.Destroy;

begin

  ClearWSDLLookup;

  FLookup.Free;  //加上这个

  inherited;

end;