RxFPC:TZeosDataSetSortEngine - use IsValidIdent

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

View File

@ -54,8 +54,9 @@ uses ZDbcIntfs, ZVariant;
function FixFieldName(S:string):string;inline;
begin
if Pos(' ', S)>0 then
S:='"'+S+'"';
if not IsValidIdent(S) then
Result:='"'+S+'"'
else
Result:=S;
end;