Changeset 52 for trunk/Client/USystem.pas

Timestamp:

Apr 3, 2012, 7:28:01 AM (13 years ago)

Author:

chronos

Message:

• Modified: Code related to persistence layer abstraction moved to separated package PersistentData.

File:

• trunk/Client/USystem.pas (modified) (6 diffs)

trunk/Client/USystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
-  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls, UChronisClient,
+  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls, UPDClient,
   UChronisModule;
 
@@ -93 +93 @@
     Base: TChronisBase;
     procedure UpdateList;
+    function IsInstalled: Boolean;
     procedure Install;
     procedure Uninstall;
@@ -104 +105 @@
     procedure SetActive(AValue: Boolean);
   public
-    Types: TChronisTypeList;
-    Client: TChronisClient;
+    Types: TPDTypeList;
+    Client: TPDClient;
     Modules: TChronisModuleList;
     ModuleSystem: TChronisModule;
@@ -635 +636 @@
     Types.Clear;
     for I := 0 to Proxy.Objects.Count - 1 do begin
-      with TChronisType(Types.AddNew(TChronisType.Create)) do
+      with TPDType(Types.AddNew(TPDType.Create)) do
       with TObjectProxy(Proxy.Objects[I]) do begin
         Id := StrToInt(Properties.Values['Id']);
@@ -667 +668 @@
 constructor TChronisBase.Create;
 begin
-  Types := TChronisTypeList.Create;
+  Types := TPDTypeList.Create;
   Modules := TChronisModuleList.Create;
   Modules.Base := Self;
@@ -781 +782 @@
 end;
 
+function TChronisModuleList.IsInstalled: Boolean;
+var
+  NewType: TPDType;
+begin
+  with TPDType.Create do
+  try
+    Client := Base.Client;
+    Name := SystemModuleObject;
+    Result := IsDefined;
+  finally
+    Free;
+  end;
+end;
+
 procedure TChronisModuleList.Install;
 var
-  NewType: TChronisType;
-begin
-  NewType := TChronisType.Create;
-  NewType.Client := Base.Client;
-  NewType.Name := SystemModuleObject;
-  NewType.Properties.Add('SysName', 'String');
-  NewType.Properties.Add('Name', 'String');
-  NewType.Properties.Add('Version', 'String');
-  NewType.Properties.Add('License', 'String');
-  NewType.Properties.Add('Creator', 'String');
-  NewType.Properties.Add('HomePage', 'String');
-  NewType.Properties.Add('Installed', 'Boolean');
-  NewType.Define;
+  NewType: TPDType;
+begin
+  with TPDType.Create do
+  try
+    Client := Base.Client;
+    Name := SystemModuleObject;
+    with Properties do begin
+      Add('SysName', 'String');
+      Add('Name', 'String');
+      Add('Version', 'String');
+      Add('License', 'String');
+      Add('Creator', 'String');
+      Add('HomePage', 'String');
+      Add('Installed', 'Boolean');
+    end;
+    Define;
+  finally
+    Free;
+  end;
 end;
 
 procedure TChronisModuleList.Uninstall;
 var
-  NewType: TChronisType;
-begin
-  NewType := TChronisType.Create;
-  NewType.Client := Base.Client;
-  NewType.Name := SystemModuleObject;
-  NewType.Undefine;
+  NewType: TPDType;
+begin
+  with TPDType.Create do
+  try
+    Client := Base.Client;
+    Name := SystemModuleObject;
+    Undefine;
+  finally
+    Free;
+  end;
 end;