Changeset 142 for trunk/Packages/PersistentData/UPDClient.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: PersistentData package wrong list Add method usage.

File:

• trunk/Packages/PersistentData/UPDClient.pas (modified) (14 diffs)

trunk/Packages/PersistentData/UPDClient.pas

@@ -31 +31 @@
     destructor Destroy; override;
     procedure Assign(Source: TObjectProxy);
+  end;
+
+  { TObjectProxies }
+
+  TObjectProxies = class(TObjectList<TObjectProxy>)
+    function AddProxy: TObjectProxy;
   end;
 
@@ -72 +78 @@
   end;
 
-  { TPDTypePropertyList }
-
-  TPDTypePropertyList = class(TObjectList<TPDTypeProperty>)
+  { TPDTypeProperties }
+
+  TPDTypeProperties = class(TObjectList<TPDTypeProperty>)
     Client: TPDClient;
-    procedure AddSimple(Name: string; TypeName: string; Unique: Boolean = False;
-      Index: Boolean = False);
+    function AddSimple(Name: string; TypeName: string; Unique: Boolean = False;
+      Index: Boolean = False): TPDTypeProperty;
   end;
 
@@ -89 +95 @@
     Name: string;
     DbType: string;
-    Properties: TPDTypePropertyList;
+    Properties: TPDTypeProperties;
     function IsDefined: Boolean;
     procedure Define;
@@ -98 +104 @@
   end;
 
-  { TPDTypeList }
-
-  TPDTypeList = class(TObjectList<TPDType>)
+  { TPDTypes }
+
+  TPDTypes = class(TObjectList<TPDType>)
     Client: TPDClient;
     function AddType(Name: string; DbType: string = ''): TPDType;
@@ -119 +125 @@
     procedure SetConnectionString(AValue: string); virtual;
   public
-    Types: TPDTypeList;
+    Types: TPDTypes;
     Version: string;
     BackendName: string;
@@ -156 +162 @@
 implementation
 
-{ TPDTypePropertyList }
-
-procedure TPDTypePropertyList.AddSimple(Name: string; TypeName: string;
-  Unique: Boolean = False; Index: Boolean = False);
-var
-  NewProperty: TPDTypeProperty;
-begin
-  NewProperty := TPDTypeProperty(Add(TPDTypeProperty.Create));
-  NewProperty.Name := Name;
-  NewProperty.DbType := Client.Types.SearchByName(TypeName);
-  NewProperty.Unique := Unique;
-  NewProperty.Index := Index;
-end;
-
-
-{ TPDTypeList }
-
-function TPDTypeList.AddType(Name: string; DbType: string = ''): TPDType;
-begin
-  Result := TPDType(Add(TPDType.Create));
+{ TObjectProxies }
+
+function TObjectProxies.AddProxy: TObjectProxy;
+begin
+  Result := TObjectProxy.Create;
+  Add(Result);
+end;
+
+{ TPDTypeProperties }
+
+function TPDTypeProperties.AddSimple(Name: string; TypeName: string;
+  Unique: Boolean = False; Index: Boolean = False): TPDTypeProperty;
+begin
+  Result := TPDTypeProperty.Create;
+  Result.Name := Name;
+  Result.DbType := Client.Types.SearchByName(TypeName);
+  Result.Unique := Unique;
+  Result.Index := Index;
+  Add(Result);
+end;
+
+{ TPDTypes }
+
+function TPDTypes.AddType(Name: string; DbType: string = ''): TPDType;
+begin
+  Result := TPDType.Create;
   Result.Client := Client;
   Result.Name := Name;
   Result.DbType := DbType;
-end;
-
-function TPDTypeList.SearchByName(Name: string): TPDType;
+  Add(Result);
+end;
+
+function TPDTypes.SearchByName(Name: string): TPDType;
 var
   I: Integer;
@@ -218 +231 @@
 constructor TPDType.Create;
 begin
-  Properties := TPDTypePropertyList.Create;
+  Properties := TPDTypeProperties.Create;
 end;
 
 destructor TPDType.Destroy;
 begin
-  Properties.Free;
+  FreeAndNil(Properties);
   inherited;
 end;
@@ -254 +267 @@
 destructor TObjectProxy.Destroy;
 begin
-  Properties.Free;
+  FreeAndNil(Properties);
   inherited;
 end;
@@ -285 +298 @@
 destructor TListProxy.Destroy;
 begin
-  Objects.Free;
-  ColumnsFilter.Free;
+  FreeAndNil(Objects);
+  FreeAndNil(ColumnsFilter);
   inherited;
 end;
@@ -311 +324 @@
 procedure TPDClient.SetConnectionString(AValue: string);
 begin
-
 end;
 
@@ -413 +425 @@
 begin
   inherited;
-  Types := TPDTypeList.Create;
+  Types := TPDTypes.Create;
   Types.Client := Self;
   InitSystemTypes;
@@ -420 +432 @@
 destructor TPDClient.Destroy;
 begin
-  Types.Free;
+  FreeAndNil(Types);
   inherited;
 end;
@@ -434 +446 @@
 procedure TPDClient.Install;
 begin
-
 end;
 
@@ -444 +455 @@
 procedure TPDClient.Update;
 begin
-
 end;