Changeset 142 for trunk/Packages/PersistentData/Backend

Timestamp:

Sep 10, 2022, 6:24:58 PM (2 years ago)

Author:

chronos

Message:

• Fixed: PersistentData package wrong list Add method usage.

Location:

trunk/Packages/PersistentData/Backend

Files:

• UPDClientMemory.pas (modified) (5 diffs)
• UPDClientMySQL.pas (modified) (1 diff)

trunk/Packages/PersistentData/Backend/UPDClientMemory.pas

@@ -19 +19 @@
     function SearchObject(Id: Integer): TObjectProxy;
   public
-    Objects: TObjectList<TObjectProxy>;
+    Objects: TObjectProxies;
     procedure ObjectLoad(AObject: TObjectProxy); override;
     procedure ObjectSave(AObject: TObjectProxy); override;
@@ -96 +96 @@
     else begin
       AObject.Id := GetNewObjectId;
-      Obj := TObjectProxy(Objects.Add(TObjectProxy.Create));
+      Obj := Objects.AddProxy;
       Obj.Assign(AObject);
     end;
@@ -173 +173 @@
 begin
   inherited;
-  Objects := TObjectList<TObjectProxy>.Create;
+  Objects := TObjectProxies.Create;
   BackendName := 'Memory';
 end;
@@ -179 +179 @@
 destructor TPDClientMemory.Destroy;
 begin
-  Objects.Free;
+  FreeAndNil(Objects);
   inherited;
 end;
@@ -185 +185 @@
 procedure TPDClientMemory.Connect;
 begin
-  inherited Connect;
+  inherited;
 end;
 
 procedure TPDClientMemory.Disconnect;
 begin
-  inherited Disconnect;
+  inherited;
 end;
 

trunk/Packages/PersistentData/Backend/UPDClientMySQL.pas

@@ -153 +153 @@
 procedure TPDClientMySQL.ListSave(AList: TListProxy);
 begin
-
 end;