Changeset 362 for PersistentData/Backend/UPDClientMySQL.pas

Timestamp:

May 10, 2012, 1:18:25 PM (13 years ago)

Author:

chronos

Message:

• Modified: PersistentData Memory backend partial implementation.
• Modified: Some persistent type system modifications.

File:

• PersistentData/Backend/UPDClientMySQL.pas (modified) (2 diffs)

PersistentData/Backend/UPDClientMySQL.pas

@@ -50 +50 @@
 resourcestring
   SMissingBaseType = 'Missing base typ for %s';
-  SUndefinedType = 'Undefinned type %s';
-  SCantLoadObjectWithoutId = 'Can''t load object without id';
+  SUndefinedType = 'Undefined type in %0:s.%1:s';
 
 
@@ -172 +171 @@
     for I := 0 to AType.Properties.Count - 1 do
     with AType.Properties do begin
-      RefType := Types.SearchByName(Items[I].Value);
+      RefType := TPDTypeProperty(Items[I]).DbType;
       if not Assigned(RefType) then
-        raise Exception.Create(Format(SUndefinedType, [Items[I].Value]));
+        raise Exception.Create(Format(SUndefinedType, [AType.Name, TPDTypeProperty(Items[I]).Name]));
       if RefType.DbType = '' then
         raise Exception.Create(Format(SMissingBaseType, [RefType.Name]));
 
-      Query := Query + '`' + Items[I].Key + '` ' + RefType.DbType + ' NULL,';
+      Query := Query + '`' + TPDTypeProperty(Items[I]).Name + '` ' + RefType.DbType + ' NULL,';
     end;
     Query := Query + 'PRIMARY KEY (`Id`)' +