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

Rx DBUtils: use UTF8CompareText in function DataSetLocateThrough

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2711 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-03-27 20:23:34 +00:00
parent 3c9d8fa4f5
commit b85c797fd5
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/dbutils.pas
View File

@ -401,9 +401,9 @@ var
Delete(S, Length(S1) + 1, MaxInt);
if (loCaseInsensitive in Options) then
Result := AnsiCompareText(S, S1) = 0
Result := UTF8CompareText(S, S1) = 0
else
Result := AnsiCompareStr(S, S1) = 0;
Result := UTF8CompareStr(S, S1) = 0;
end
// else Result := false //(Field.Value = Value);
else Result := (Field.Value = Value);