diff options
| author | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-04-24 20:33:44 +0000 |
|---|---|---|
| committer | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-04-24 20:33:44 +0000 |
| commit | 0a50881147965b39106da0d03ac5ac5dffec9c8b (patch) | |
| tree | 57755e2d19d55eef78d6c47584c5a4b58670d090 /packages/fcl-db/tests/sqldbtoolsunit.pas | |
| parent | be71592c42f8cb96813973ac5ec7bcc250128437 (diff) | |
| download | fpc-0a50881147965b39106da0d03ac5ac5dffec9c8b.tar.gz | |
* Refactored test-values, removed duplicate and re-enabled a string-testvalue containing quotes
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10786 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-db/tests/sqldbtoolsunit.pas')
| -rw-r--r-- | packages/fcl-db/tests/sqldbtoolsunit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-db/tests/sqldbtoolsunit.pas b/packages/fcl-db/tests/sqldbtoolsunit.pas index e943b5b033..bad3a8d4e9 100644 --- a/packages/fcl-db/tests/sqldbtoolsunit.pas +++ b/packages/fcl-db/tests/sqldbtoolsunit.pas @@ -217,7 +217,7 @@ begin begin sql := sql + ',F' + Fieldtypenames[FType]; if testValues[FType,CountID] <> '' then - sql1 := sql1 + ',''' + testValues[FType,CountID] + '''' + sql1 := sql1 + ',''' + StringReplace(testValues[FType,CountID],'''','''''',[rfReplaceAll]) + '''' else sql1 := sql1 + ',NULL'; end; |