paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Mysql servers before version 5.0.3 removes trailing spaces on varchar fields, adapted testvalues to take this into account

Browse Source 
git-svn-id: trunk@10779 -
This commit is contained in:
joost 2008-04-23 21:26:31 +00:00
parent 2109a8b611
commit f8e5776b11
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

@ -94,6 +94,7 @@ implementation
procedure TSQLDBConnector.CreateFConnection; procedure TSQLDBConnector.CreateFConnection;
var i : TSQLDBTypes; var i : TSQLDBTypes;
t : integer;
begin begin
for i := low(DBTypesNames) to high(DBTypesNames) do for i := low(DBTypesNames) to high(DBTypesNames) do
if UpperCase(dbconnectorparams) = DBTypesNames[i] then sqldbtype := i; if UpperCase(dbconnectorparams) = DBTypesNames[i] then sqldbtype := i;
@ -102,6 +103,13 @@ begin
if SQLDbType = MYSQL40 then Fconnection := tMySQL40Connection.Create(nil); if SQLDbType = MYSQL40 then Fconnection := tMySQL40Connection.Create(nil);
if SQLDbType = MYSQL41 then Fconnection := tMySQL41Connection.Create(nil); if SQLDbType = MYSQL41 then Fconnection := tMySQL41Connection.Create(nil);
if SQLDbType in [mysql40,mysql41] then
begin
// Mysql versions prior to 5.0.3 removes the trailing spaces on varchar
// fields on insertion. So to test properly, we have to do the same
for t := 0 to testValuesCount-1 do
testStringValues[t] := TrimRight(testStringValues[t]);
end;
if SQLDbType = MYSQL50 then Fconnection := tMySQL50Connection.Create(nil); if SQLDbType = MYSQL50 then Fconnection := tMySQL50Connection.Create(nil);
if SQLDbType in MySQLdbTypes then if SQLDbType in MySQLdbTypes then
FieldtypeDefinitions[ftLargeint] := 'BIGINT'; FieldtypeDefinitions[ftLargeint] := 'BIGINT';