From: Andreas H. <ah...@us...> - 2005-08-29 17:11:03
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20237/run Modified Files: JvParameterList.pas Log Message: Fixed memory leaks Index: JvParameterList.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvParameterList.pas,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** JvParameterList.pas 2 Jul 2005 17:20:06 -0000 1.62 --- JvParameterList.pas 29 Aug 2005 17:10:53 -0000 1.63 *************** *** 85,89 **** --- 85,91 ---- TJvParameterListEnableDisableReasonList = class(TStringList) public + destructor Destroy; override; procedure Clear; override; + procedure Delete(Index: Integer); override; procedure AddReasonVariant(const RemoteParameterName: string; Value: Variant); procedure AddReason(const RemoteParameterName: string; Value: Boolean); overload; *************** *** 110,113 **** --- 112,116 ---- destructor Destroy; override; procedure Clear; override; + procedure Delete(Index: Integer); override; procedure AddValue(const AName: string; AValue: Variant); end; *************** *** 605,608 **** --- 608,623 ---- //=== { TJvParameterListEnableDisableReasonList } ============================ + destructor TJvParameterListEnableDisableReasonList.Destroy; + begin + Clear; + inherited Destroy; + end; + + procedure TJvParameterListEnableDisableReasonList.Delete(Index: Integer); + begin + Objects[Index].Free; + inherited Delete(Index); + end; + procedure TJvParameterListEnableDisableReasonList.Clear; var *************** *** 721,725 **** for I := 0 to Count - 1 do Objects[I].Free; ! Inherited Clear; end; --- 736,746 ---- for I := 0 to Count - 1 do Objects[I].Free; ! inherited Clear; ! end; ! ! procedure TJvParameterPropertyValues.Delete(Index: Integer); ! begin ! Objects[Index].Free; ! inherited Delete(Index); end; |