* Change writeln+exit to ignore

This commit is contained in:
Michaël Van Canneyt 2022-05-03 12:20:21 +02:00
parent 3ecc1272e0
commit c6e9c7c1f8

View File

@ -470,10 +470,7 @@ var
I: Integer;
begin
if SQLServerType<>ssMSSQL then
begin
WriteLn('TestMSSQLLargeStrings is suitable only for MSSQL');
Exit;
end;
Ignore('TestMSSQLLargeStrings is suitable only for MSSQL');
Q := TSQLQuery.Create(nil);
try
Q.SQLConnection := TSQLDBConnector(DBConnector).Connection;