Changeset 561 for PersistentData/Backend/UPDClientMemory.pas

Timestamp:

Sep 10, 2022, 6:26:39 PM (21 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: Use Generics.Collections.

File:

• PersistentData/Backend/UPDClientMemory.pas (modified) (9 diffs)

PersistentData/Backend/UPDClientMemory.pas

@@ -1 +1 @@
 unit UPDClientMemory;
-
-{$mode Delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, UPDClient, SpecializedList;
+  Classes, SysUtils, UPDClient, Generics.Collections;
 
 type
@@ -21 +19 @@
     function SearchObject(Id: Integer): TObjectProxy;
   public
-    Objects: TListObject;
+    Objects: TObjectProxies;
     procedure ObjectLoad(AObject: TObjectProxy); override;
     procedure ObjectSave(AObject: TObjectProxy); override;
@@ -40 +38 @@
 resourcestring
   SObjectNotFound = 'Object with id %s not found';
+
 
 implementation
@@ -97 +96 @@
     else begin
       AObject.Id := GetNewObjectId;
-      Obj := TObjectProxy(Objects.AddNew(TObjectProxy.Create));
+      Obj := Objects.AddProxy;
       Obj.Assign(AObject);
     end;
@@ -119 +118 @@
   NewObject: TObjectProxy;
   Table: string;
+  Item: TPair<string, string>;
 begin
   AList.Objects.Clear;
@@ -132 +132 @@
 
       if AList.ColummsFilterUse then begin
-        for P := 0 to Properties.Count - 1 do
-        if AList.ColumnsFilter.IndexOf(Properties.Keys[I]) <> -1 then
-          NewObject.Properties.Add(Properties.Keys[I], Properties[I].Value);
+        for Item in Properties do
+        if AList.ColumnsFilter.IndexOf(Item.Key) <> -1 then
+          NewObject.Properties.Add(Item.Key, Item.Value);
       end else NewObject.Properties.Assign(Properties);
     end;
@@ -147 +147 @@
 procedure TPDClientMemory.ListSave(AList: TListProxy);
 begin
-
 end;
 
 procedure TPDClientMemory.TypeDefine(AType: TPDType);
 begin
-
 end;
 
 procedure TPDClientMemory.TypeUndefine(AType: TPDType);
 begin
-
 end;
 
 function TPDClientMemory.TypeIsDefined(AType: TPDType): Boolean;
 begin
-
+  Result := False;
 end;
 
 procedure TPDClientMemory.Install;
 begin
-
 end;
 
 procedure TPDClientMemory.Uninstall;
 begin
-
 end;
 
@@ -178 +173 @@
 begin
   inherited;
-  Objects := TListObject.Create;
+  Objects := TObjectProxies.Create;
   BackendName := 'Memory';
 end;
@@ -184 +179 @@
 destructor TPDClientMemory.Destroy;
 begin
-  Objects.Free;
-  inherited Destroy;
+  FreeAndNil(Objects);
+  inherited;
 end;
 
 procedure TPDClientMemory.Connect;
 begin
-  inherited Connect;
+  inherited;
 end;
 
 procedure TPDClientMemory.Disconnect;
 begin
-  inherited Disconnect;
+  inherited;
 end;