mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Optimize StrFloatCmpW function

Browse source
This commit is contained in:
Alexander Koblov 2011-10-16 11:28:33 +00:00
commit ebe30e8ebc
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/udcutils.pas
View file

@ -1398,6 +1398,7 @@ var
number_result: ptrint = 0;
number1_size: ptrint = 0;
number2_size: ptrint = 0;
str_cmp: function(const s1, s2: WideString): PtrInt;
function is_digit(c: widechar): boolean; inline;
begin
@ -1410,6 +1411,12 @@ var
end;
begin
// Set up compare function
if CaseSensitive then
str_cmp:= WideStringManager.CompareWideStringProc
else
str_cmp:= WideStringManager.CompareTextWideStringProc;
while (true) do
begin
// compare string part
@ -1442,10 +1449,7 @@ begin
if (is_digit2 and not is_digit1) then
exit(+1);
if CaseSensitive then
string_result:= WideCompareStr(str1^, str2^)
else
string_result:= WideCompareText(str1^, str2^);
string_result:= str_cmp(str1^, str2^);
if (string_result <> 0) then exit(string_result);