You've already forked lazarus-ccr
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:
@ -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;
|
||||
|
||||
|
Reference in New Issue
Block a user