[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.34,1.35

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8615/Core

Modified Files:
	InstantPersistence.pas 
Log Message:
fixed AV in InternalRefreshObjects (on behalf of Joao Morais); comment added

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** InstantPersistence.pas	6 Apr 2005 11:04:43 -0000	1.34
--- InstantPersistence.pas	7 Apr 2005 08:11:35 -0000	1.35
***************
*** 12271,12275 ****
    if not DataSet.Active then
      Exit;
!   BusyObjects := TObjectList.Create;
    try
      for I := 0 to Pred(ObjectRowCount) do
--- 12271,12275 ----
    if not DataSet.Active then
      Exit;
!   BusyObjects := TObjectList.Create(False);
    try
      for I := 0 to Pred(ObjectRowCount) do
***************
*** 13702,13706 ****
          if PartsAttribute.IsChanged then
          begin
!           for ii:=0 to Pred(PartsAttribute.Count) do
              PartsAttribute.Items[ii];
            if Map[i].StorageKind = skExternal then
--- 13702,13708 ----
          if PartsAttribute.IsChanged then
          begin
!           // Make sure that all the items are in memory because they will be
!           // accessed later, after the database records have been deleted.
!           for ii := 0 to Pred(PartsAttribute.Count) do
              PartsAttribute.Items[ii];
            if Map[i].StorageKind = skExternal then
***************
*** 14365,14369 ****
    BusyObjects: TObjectList;
  begin
!   BusyObjects := TObjectList.Create;
    try
      for I := 0 to Pred(ObjectReferenceCount) do
--- 14367,14371 ----
    BusyObjects: TObjectList;
  begin
!   BusyObjects := TObjectList.Create(False);
    try
      for I := 0 to Pred(ObjectReferenceCount) do