From 51c45335ae9ebc28307437fb71eead6eafcd4fb3 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sat, 19 Apr 2008 19:56:22 +0000
Subject: [PATCH]  * Removed space before fieldname

git-svn-id: trunk@10722 -
---
 packages/fcl-db/tests/testdbbasics.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/tests/testdbbasics.pas b/packages/fcl-db/tests/testdbbasics.pas
index 326fd957dc..14aa3d816d 100644
--- a/packages/fcl-db/tests/testdbbasics.pas
+++ b/packages/fcl-db/tests/testdbbasics.pas
@@ -1321,7 +1321,7 @@ begin
   with ds do
     begin
 
-    AddIndex('testindex','F'+FieldTypeNames[ftString]+'; F'+FieldTypeNames[ftInteger],[]);
+    AddIndex('testindex','F'+FieldTypeNames[ftString]+';F'+FieldTypeNames[ftInteger],[]);
     FList := TStringList.Create;
     FList.Sorted:=true;
     FList.CaseSensitive:=True;