pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:TZeosDataSetSortEngine - use IsValidIdent

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4597 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-03-25 11:44:54 +00:00
parent ad77d88b77
commit 97b171d739
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/trunk/exsortzeos.pas
View File

@@ -54,9 +54,10 @@ uses ZDbcIntfs, ZVariant;
function FixFieldName(S:string):string;inline; function FixFieldName(S:string):string;inline;
begin begin
if Pos(' ', S)>0 then if not IsValidIdent(S) then
S:='"'+S+'"'; Result:='"'+S+'"'
Result:=S; else
Result:=S;
end; end;
procedure TZeosDataSetSortEngine.Sort(FieldName: string; ADataSet: TDataSet; procedure TZeosDataSetSortEngine.Sort(FieldName: string; ADataSet: TDataSet;