From: Peter T. <pe...@us...> - 2004-11-30 19:47:42
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14851/run Modified Files: JvDBUtils.pas Log Message: - Mantis 0002257: Memory leak in function - DataSetLocateThrough - JvDBUtils.pas Index: JvDBUtils.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDBUtils.pas,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** JvDBUtils.pas 22 Oct 2004 20:55:34 -0000 1.32 --- JvDBUtils.pas 30 Nov 2004 19:47:32 -0000 1.33 *************** *** 434,440 **** FieldCount: Integer; Fields: TList; Bookmark: TBookmarkStr; ! function CompareField(Field: TField; Value: Variant): Boolean; var S: string; --- 434,441 ---- FieldCount: Integer; Fields: TList; + Fld : TField; {BG} //else BAD mem leak on 'Field.asString' Bookmark: TBookmarkStr; ! function CompareField(var Field: TField; Value: Variant): Boolean; {BG} var S: string; *************** *** 464,473 **** begin if FieldCount = 1 then ! Result := CompareField(TField(Fields.First), KeyValues) else begin Result := True; for I := 0 to FieldCount - 1 do ! Result := Result and CompareField(TField(Fields[I]), KeyValues[I]); end; end; --- 465,480 ---- begin if FieldCount = 1 then ! begin ! Fld := TField(Fields.First); {BG} ! Result := CompareField(Fld, KeyValues) {BG} ! end else begin Result := True; for I := 0 to FieldCount - 1 do ! begin ! Fld := TField(Fields[I]); {BG} ! Result := Result and CompareField(Fld, KeyValues[I]); {BG} ! end; end; end; |