* Patch from Graeme Geldenhuys:

  * Minor classname adjustment
  * Query.SQL.Text   --->  Query.SQLText otherwise the setter method is bypassed, 
    which could contain custom code.
  * uses clause cleanup

git-svn-id: trunk@11388 -

packages/fcl-db/src/codegen/fpcgtiopf.pp

@@ -125,8 +125,8 @@ end;
 constructor TTiOPFCodeOptions.Create;
 begin
   inherited Create;
-  FListAncestorName:='TTiObjectList';
-  AncestorClass:='TTiObject';
+  FListAncestorName:='TtiObjectList';
+  AncestorClass:='TtiObject';
   ObjectClassName:='MyObject';
   FVisitorOptions:=[voRead,voCreate,voDelete,voUpdate];
   FClassOptions:=[caCreateList,caListAddMethod,caListItemsProperty];
@@ -185,7 +185,7 @@ function TTiOPFCodeGenerator.GetInterfaceUsesClause: string;
 begin
   Result:=inherited GetInterfaceUsesClause;
   If (Result<>'') then
-    Result:=Result+',';
+    Result:=Result+', ';
   Result:=Result+'tiVisitor, tiVisitorDB, tiObject';
 end;
 
@@ -702,7 +702,7 @@ end;
 procedure TTiOPFCodeGenerator.WriteSetSQL(Strings : TStrings; Const ASQL : String);
 
 begin
-  Addln(Strings,Format('Query.SQL.Text:=%s;',[ASQL]));
+  Addln(Strings,Format('Query.SQLText:=%s;',[ASQL]));
 end;
 
 procedure TTiOPFCodeGenerator.WriteDeleteVisitor(Strings : TStrings; Const ObjectClassName : String);