Changeset 345 for PersistentData/UPDClient.pas

Timestamp:

Apr 3, 2012, 8:30:29 AM (12 years ago)

Author:

chronos

Message:

• Modified: MySQL Schema renamed to more general Path. Path will be used for Registry, INI files and other persistent storages.

File:

• PersistentData/UPDClient.pas (modified) (6 diffs)

PersistentData/UPDClient.pas

@@ -25 +25 @@
     Client: TPDClient;
     ObjectName: string;
-    SchemaName: string;
+    Path: string;
     procedure Load;
     procedure Save;
@@ -47 +47 @@
     Condition: string;
     ObjectName: string;
-    SchemaName: string;
+    Path: string;
     Objects: TListObject; // TListObject<TObjectProxy>
     procedure Clear;
@@ -252 +252 @@
   NewProxy := TListProxy.Create;
   NewProxy.Client := Self;
-  NewProxy.SchemaName := 'information_schema';
+  NewProxy.Path := 'information_schema';
   NewProxy.ObjectName := 'TABLES';
   NewProxy.Condition := '(TABLE_SCHEMA = "' + Schema +
@@ -260 +260 @@
     NewObject := TObjectProxy.Create;
     NewObject.Client := Self;
-    NewObject.SchemaName := Schema;
+    NewObject.Path := Schema;
     NewObject.ObjectName := SystemVersionObject;
     NewObject.Id := 1;
@@ -278 +278 @@
     NewObject := TObjectProxy.Create;
     NewObject.Client := Self;
-    NewObject.SchemaName := Schema;
+    NewObject.Path := Schema;
     NewObject.ObjectName := SystemVersionObject;
     NewObject.Properties.Add('Version', Version);
@@ -308 +308 @@
     NewProxy := TListProxy.Create;
     NewProxy.Client := Self;
-    NewProxy.SchemaName := 'information_schema';
+    NewProxy.Path := 'information_schema';
     NewProxy.ObjectName := 'TABLES';
     NewProxy.Condition := 'TABLE_SCHEMA = "' + Schema + '"';