Changeset 561 for PersistentData/Backend/UPDClientMySQL.pas

Timestamp:

Sep 10, 2022, 6:26:39 PM (21 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: Use Generics.Collections.

File:

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

PersistentData/Backend/UPDClientMySQL.pas

@@ -1 +1 @@
 unit UPDClientMySQL;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, USqlDatabase, UPDClient, SpecializedDictionary;
+  Classes, SysUtils, USqlDatabase, UPDClient, UGenerics;
 
 type
@@ -22 +20 @@
     function GetConnected: Boolean; override;
     procedure Init; override;
+    function GetConnectionString: string; override;
   public
     procedure ObjectLoad(AObject: TObjectProxy); override;
@@ -45 +44 @@
   end;
 
+
 implementation
-
 
 resourcestring
   SMissingBaseType = 'Missing base typ for %s';
   SUndefinedType = 'Undefined type in %0:s.%1:s';
-
 
 { TPDClientMySQL }
@@ -155 +153 @@
 procedure TPDClientMySQL.ListSave(AList: TListProxy);
 begin
-
 end;
 
@@ -245 +242 @@
 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
@@ -255 +258 @@
 begin
   FreeAndNil(FDatabase);
-  inherited Destroy;
+  inherited;
 end;