paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-22 21:11:37 +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); procedure Func_NOT(Param: PExpressionRec);
var var
DbfWordsSensGeneralList, DbfWordsInsensGeneralList: TExpressList; DbfWordsSensGeneralList, DbfWordsInsensGeneralList: TExpressList; //case sensitive and case insensitive
DbfWordsSensPartialList, DbfWordsInsensPartialList: TExpressList; DbfWordsSensPartialList, DbfWordsInsensPartialList: TExpressList; //for partial matches
DbfWordsSensNoPartialList, DbfWordsInsensNoPartialList: TExpressList; DbfWordsSensNoPartialList, DbfWordsInsensNoPartialList: TExpressList; //no partial match allowed
DbfWordsGeneralList: TExpressList; DbfWordsGeneralList: TExpressList;
implementation implementation
@ -594,7 +594,7 @@ begin
begin begin
// save variable type for easy access // save variable type for easy access
ExprRec^.ArgsType[I] := ExprRec^.ArgList[I]^.ExprWord.ResultType; 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 // need copying, except for fixed len strings which are not
// null-terminated // null-terminated
// if ExprRec^.ArgList[I].ExprWord.NeedsCopy then // if ExprRec^.ArgList[I].ExprWord.NeedsCopy then