Changeset 137 for trunk/Packages/PersistentData/Backend

Timestamp:

Sep 9, 2022, 1:16:58 AM (2 years ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

Location:

trunk/Packages/PersistentData/Backend

Files:

• UPDClientINI.pas (modified) (3 diffs)
• UPDClientMemory.pas (modified) (5 diffs)
• UPDClientMySQL.pas (modified) (3 diffs)
• UPDClientRegistry.pas (modified) (4 diffs)
• UPDClientXMLRPC.pas (modified) (2 diffs)

trunk/Packages/PersistentData/Backend/UPDClientINI.pas

@@ -1 +1 @@
 unit UPDClientINI;
-
-{$mode delphi}
 
 interface
@@ -23 +21 @@
     procedure Disconnect; override;
   end;
+
 
 implementation
@@ -49 +48 @@
 begin
   Disconnect;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/PersistentData/Backend/UPDClientMemory.pas

@@ -1 +1 @@
 unit UPDClientMemory;
-
-{$mode Delphi}{$H+}
 
 interface
@@ -40 +38 @@
 resourcestring
   SObjectNotFound = 'Object with id %s not found';
+
 
 implementation
@@ -147 +146 @@
 procedure TPDClientMemory.ListSave(AList: TListProxy);
 begin
-
 end;
 
 procedure TPDClientMemory.TypeDefine(AType: TPDType);
 begin
-
 end;
 
 procedure TPDClientMemory.TypeUndefine(AType: TPDType);
 begin
-
 end;
 
@@ -167 +163 @@
 procedure TPDClientMemory.Install;
 begin
-
 end;
 
 procedure TPDClientMemory.Uninstall;
 begin
-
 end;
 
@@ -185 +179 @@
 begin
   Objects.Free;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/PersistentData/Backend/UPDClientMySQL.pas

@@ -1 +1 @@
 unit UPDClientMySQL;
-
-{$mode delphi}
 
 interface
@@ -46 +44 @@
   end;
 
+
 implementation
-
 
 resourcestring
   SMissingBaseType = 'Missing base typ for %s';
   SUndefinedType = 'Undefined type in %0:s.%1:s';
-
 
 { TPDClientMySQL }
@@ -262 +259 @@
 begin
   FreeAndNil(FDatabase);
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/PersistentData/Backend/UPDClientRegistry.pas

@@ -1 +1 @@
 unit UPDClientRegistry;
-
-{$mode delphi}
 
 interface
@@ -13 +11 @@
 
   TPDClientRegistry = class(TPDClient)
+  public
     Reg: TRegistry;
     //procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
@@ -19 +18 @@
     destructor Destroy; override;
   end;
+
 
 implementation
@@ -46 +46 @@
 begin
   Reg.Free;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/PersistentData/Backend/UPDClientXMLRPC.pas

@@ -1 +1 @@
 unit UPDClientXMLRPC;
-
-{$mode delphi}
 
 interface
@@ -16 +14 @@
   end;
 
+
 implementation
-
 
 { TPDClientXMLRPC }