Changeset 137 for trunk/Packages/PersistentData

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

Files:

• Backend/UPDClientINI.pas (modified) (3 diffs)
• Backend/UPDClientMemory.pas (modified) (5 diffs)
• Backend/UPDClientMySQL.pas (modified) (3 diffs)
• Backend/UPDClientRegistry.pas (modified) (4 diffs)
• Backend/UPDClientXMLRPC.pas (modified) (2 diffs)
• Demo/UFormMain.pas (modified) (2 diffs)
• UPDClient.pas (modified) (5 diffs)
• UPDServer.pas (modified) (2 diffs)
• UPersistentData.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 }

trunk/Packages/PersistentData/Demo/UFormMain.pas

@@ -1 +1 @@
 unit UFormMain;
-
-{$mode delphi}{$H+}
 
 interface
@@ -30 +28 @@
 var
   FormMain: TFormMain;
+
 
 implementation

trunk/Packages/PersistentData/UPDClient.pas

@@ -1 +1 @@
 unit UPDClient;
-
-{$mode delphi}
 
 interface
@@ -226 +224 @@
 begin
   Properties.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -257 +255 @@
 begin
   Properties.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -289 +287 @@
   Objects.Free;
   ColumnsFilter.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -423 +421 @@
 begin
   Types.Free;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/PersistentData/UPDServer.pas

@@ -1 +1 @@
 unit UPDServer;
-
-{$mode delphi}
 
 interface
@@ -10 +8 @@
 type
   TPDServer = class
+  end;
 
-  end;
 
 implementation

trunk/Packages/PersistentData/UPersistentData.pas

@@ -1 +1 @@
 unit UPersistentData;
-
-{$mode delphi}{$H+}
 
 interface
@@ -84 +82 @@
 begin
   FreeAndNil(Items);
-  inherited Destroy;
+  inherited;
 end;