MyClassesUni assign
Posted: Tue 26 Nov 2013 08:59
In latest version 5.1.4 procedure Assign in MyClassesUni should copy FEmbParams as follows:
Code: Select all
procedure TMySQLConnection.Assign(Source: TCRConnection);
var
Src: TMySQLConnection;
begin
inherited;
Src := TMySQLConnection(Source);
FConnectionTimeout := Src.FConnectionTimeout;
FDatabase := Src.FDatabase;
FPort := Src.FPort;
FCompress := Src.FCompress;
FUseUnicode := Src.FUseUnicode;
FCharset := Src.FCharset;
FProtocol := Src.FProtocol;
FMySQLAPI := Src.FMySQLAPI;
FDirect := Src.FDirect;
{$IFNDEF CLR}
FIPVersion := Src.FIPVersion;
{$ENDIF}
FEmbedded := Src.FEmbedded;
//QUALISYS
FEmbParams.Assign(Src.FEmbParams);
FOptimizedBigInt := Src.FOptimizedBigInt;
FNullForZeroDelphiDate := Src.FNullForZeroDelphiDate;
FCheckPrecision := Src.FCheckPrecision;
FInteractive := Src.FInteractive;
end;