paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 13:51:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: cosmetic

Browse Source 
git-svn-id: trunk@28029 -
This commit is contained in:
reiniero 2014-06-22 07:28:55 +00:00
parent bfb21cb4a0
commit e2c58f9f89
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/dbase/dbf_prscore.pas
View File

@ -248,9 +248,9 @@ procedure Func_OR(Param: PExpressionRec);
procedure Func_NOT(Param: PExpressionRec);
var
DbfWordsSensGeneralList, DbfWordsInsensGeneralList: TExpressList;
DbfWordsSensPartialList, DbfWordsInsensPartialList: TExpressList;
DbfWordsSensNoPartialList, DbfWordsInsensNoPartialList: TExpressList;
DbfWordsSensGeneralList, DbfWordsInsensGeneralList: TExpressList; //case sensitive and case insensitive
DbfWordsSensPartialList, DbfWordsInsensPartialList: TExpressList; //for partial matches
DbfWordsSensNoPartialList, DbfWordsInsensNoPartialList: TExpressList; //no partial match allowed
DbfWordsGeneralList: TExpressList;
implementation
@ -594,7 +594,7 @@ begin
begin
// save variable type for easy access
ExprRec^.ArgsType[I] := ExprRec^.ArgList[I]^.ExprWord.ResultType;
// check if we need to copy argument, variables in general do not
// check if we need to copy argument: variables in general do not
// need copying, except for fixed len strings which are not
// null-terminated
// if ExprRec^.ArgList[I].ExprWord.NeedsCopy then