Changeset 113 for trunk/Packages/PersistentData

Timestamp:

Oct 16, 2015, 9:14:25 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Release build mode paths.

Location:

trunk

Files:

• . (modified) (1 prop)
• Packages/PersistentData/Backend/UPDClientMemory.pas (modified) (1 diff)
• Packages/PersistentData/Backend/UPDClientMySQL.pas (modified) (2 diffs)
• Packages/PersistentData/UPDClient.pas (modified) (1 diff)
• Packages/PersistentData/UPersistentData.pas (modified) (1 diff)

trunk

@@ -6 +6 @@
 ZdechovNET.lps
 heaptrclog.trc
+index.dbg

@@ -6 +6 @@
 ZdechovNET.lps
 heaptrclog.trc
+index.dbg

trunk/Packages/PersistentData/Backend/UPDClientMemory.pas

@@ -162 +162 @@
 function TPDClientMemory.TypeIsDefined(AType: TPDType): Boolean;
 begin
-
+  Result := False;
 end;
 

trunk/Packages/PersistentData/Backend/UPDClientMySQL.pas

@@ -22 +22 @@
     function GetConnected: Boolean; override;
     procedure Init; override;
+    function GetConnectionString: string; override;
   public
     procedure ObjectLoad(AObject: TObjectProxy); override;
@@ -245 +246 @@
 end;
 
+function TPDClientMySQL.GetConnectionString: string;
+begin
+  Result := 'Host:' + Host + ',Port:' + IntToStr(Port) + ',User:' + User +
+    ',Password:' + Password + ',Schema:' + Schema;
+end;
+
 constructor TPDClientMySQL.Create(AOwner: TComponent);
 begin

trunk/Packages/PersistentData/UPDClient.pas

@@ -161 +161 @@
 
 procedure TPDTypePropertyList.AddSimple(Name: string; TypeName: string;
-  Unique: Boolean; Index: Boolean);
+  Unique: Boolean = False; Index: Boolean = False);
 var
   NewProperty: TPDTypeProperty;

trunk/Packages/PersistentData/UPersistentData.pas

@@ -17 +17 @@
 
   TPDManager = class(TComponent)
+  public
     Items: TListObject;
     procedure Register(ClientClass: TPDClientClass);

@@ -6 +6 @@
 ZdechovNET.lps
 heaptrclog.trc
+index.dbg