Ignore:
Timestamp:
Oct 16, 2015, 9:14:25 PM (9 years ago)
Author:
chronos
Message:
  • Fixed: Release build mode paths.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        66ZdechovNET.lps
        77heaptrclog.trc
         8index.dbg

  • trunk/Packages/PersistentData/Backend/UPDClientMemory.pas

    r87 r113  
    162162function TPDClientMemory.TypeIsDefined(AType: TPDType): Boolean;
    163163begin
    164 
     164  Result := False;
    165165end;
    166166

  • trunk/Packages/PersistentData/Backend/UPDClientMySQL.pas

    r87 r113  
    2222    function GetConnected: Boolean; override;
    2323    procedure Init; override;
     24    function GetConnectionString: string; override;
    2425  public
    2526    procedure ObjectLoad(AObject: TObjectProxy); override;
    … …  
    245246end;
    246247
     248function TPDClientMySQL.GetConnectionString: string;
     249begin
     250  Result := 'Host:' + Host + ',Port:' + IntToStr(Port) + ',User:' + User +
     251    ',Password:' + Password + ',Schema:' + Schema;
     252end;
     253
    247254constructor TPDClientMySQL.Create(AOwner: TComponent);
    248255begin
Note: See TracChangeset for help on using the changeset viewer.