Changeset 45 for trunk/Application/Clients/UChronisClientMySQL.pas

Timestamp:

Mar 12, 2012, 10:23:40 AM (13 years ago)

Author:

chronos

Message:

• Modified: TChronisBase.Active property control Client connection instead of direct call of Client.Connect and Client.Disconnect methods.

File:

• trunk/Application/Clients/UChronisClientMySQL.pas (modified) (2 diffs)

trunk/Application/Clients/UChronisClientMySQL.pas

@@ -40 +40 @@
   SMissingBaseType = 'Missing base typ for %s';
   SUndefinedType = 'Undefinned type %s';
+  SCantLoadObjectWithoutId = 'Can''t load object without id';
 
 
@@ -69 +70 @@
   Table: string;
 begin
+  if AObject.Id = 0 then raise Exception.Create(SCantLoadObjectWithoutId);
   try
     DbRows := TDbRows.Create;