paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 08:31:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed AnsiCompareStr and AnsiCompareText if string(s) contains #0. It fixes webtbs/tw3170.pp

Browse Source 
git-svn-id: trunk@5949 -
This commit is contained in:
yury 2007-01-13 17:00:58 +00:00
parent 737634d781
commit fef99bf8cb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/wince/sysutils.pp
View File

@ -853,7 +853,7 @@ var
begin
ws1:=StringToPWideChar(S1);
ws2:=StringToPWideChar(S2);
Result:=CompareString(LOCALE_USER_DEFAULT, 0, ws1, -1, ws2, -1) - 2;
Result:=CompareString(LOCALE_USER_DEFAULT, 0, ws1, Length(S1), ws2, Length(S2)) - 2;
FreeMem(ws2);
FreeMem(ws1);
end;
@ -865,7 +865,7 @@ var
begin
ws1:=StringToPWideChar(S1);
ws2:=StringToPWideChar(S2);
Result:=CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE, ws1, -1, ws2, -1) - 2;
Result:=CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE, ws1, Length(S1), ws2, Length(S2)) - 2;
FreeMem(ws2);
FreeMem(ws1);
end;