Changeset 113 for trunk/Packages

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/ModularSystem/Language/UModularSystem.cs.po (modified) (1 diff)
• 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)
• Packages/synapse/synadbg.pas (modified) (2 diffs)

trunk

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

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

trunk/Packages/ModularSystem/Language/UModularSystem.cs.po

@@ -13 +13 @@
 msgid "Module \"%1:s\" not found as dependency for module \"%0:s\""
 msgstr "Pro modul \"%0:s\" nenalezen závislý modul \"%1:s\""
+

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);

trunk/Packages/synapse/synadbg.pas

@@ -127 +127 @@
     s := '-unknown-';
   end;
-  s := inttohex(integer(Sender), 8) + s + ': ' + value + CRLF;
+  s := inttohex(integer(Pointer(Sender)), 8) + s + ': ' + value + CRLF;
   AppendToLog(s);
 end;
@@ -141 +141 @@
   else
     d := '<- ';
-  s :=inttohex(integer(Sender), 8) + d + s + CRLF;
+  s :=inttohex(integer(Pointer(Sender)), 8) + d + s + CRLF;
   AppendToLog(s);
 end;

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