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

* Patch from Graeme Geldenhuys:

Browse Source 
* 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 -
This commit is contained in:
michael 2008-07-17 14:40:33 +00:00
parent c74999cf5f
commit d763279046
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/codegen/fpcgtiopf.pp
View File

@ -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);