Code: Select all
Assert(DM.Con.Port.IsZero, 'Port Not Zero');
DM.Con.ConnectString := AConnectString;
Assert(AConnectString.Equals(DM.Con.ConnectString), 'ConnectString: Input<>Generated: %s <> %s'.ToFmt([LF + SPACE + AConnectString, LF + SPACE + DM.Con.ConnectString]));
Code: Select all
EAssertionFailed: ConnectString: Input<>Generated:
Provider Name=SQL Server;Provider=MSOLEDBSQL.1;Data Source=MY-PC;Initial Catalog=PA;Force Create Database=False;User ID=sa;Password=Masterkey1;IP Version=ivIPBoth;Login Prompt=False;Pooling=True;Min Pool Size=4 <>
Provider Name=SQL Server;Provider=MSOLEDBSQL.1;Data Source=MY-PC;Initial Catalog=PA;Force Create Database=False;Port=3050;User ID=sa;Password=Masterkey1;IP Version=ivIPBoth;Login Prompt=False;Pooling=True;Min Pool Size=4 (D:\My Projects\Permissions Audit\Source\GUI\ThreadModule.pas, line 804) ($2D33F96) ($2D33F96) ($A399FC)
More important how do I bill you for time spent?