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
|
