paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds compared tests

Browse Source 
git-svn-id: trunk@32742 -
This commit is contained in:
sekelsenmat 2011-10-07 11:16:29 +00:00
parent d2e2258a3c
commit 5eb21ceaeb
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/lazutils/testunicode.pas
View File

@ -74,7 +74,8 @@ begin
lStartTime := Now; lStartTime := Now;
for i := 0 to 9999 do for i := 0 to 9999 do
begin begin
Str := UTF8UpperCase('aąbcćdeęfghijklłmnńoóprsśtuwyzźż'); Str := UTF8UpperCase('ABCDEFGHIJKLMNOPQRSTUWVXYZ');
Str := Str + UTF8UpperCase('aąbcćdeęfghijklłmnńoóprsśtuwyzźż');
Str := Str + UTF8UpperCase('AĄBCĆDEĘFGHIJKLŁMNŃOÓPRSŚTUWYZŹŻ'); Str := Str + UTF8UpperCase('AĄBCĆDEĘFGHIJKLŁMNŃOÓPRSŚTUWYZŹŻ');
end; end;
lTimeDiff := Now - lStartTime; lTimeDiff := Now - lStartTime;
@ -100,11 +101,22 @@ begin
lStartTime := Now; lStartTime := Now;
for i := 0 to 9999 do for i := 0 to 9999 do
begin begin
Str := UTF8LowerCase('aąbcćdeęfghijklłmnńoóprsśtuwyzźż'); //Str := UTF8LowerCase('abcdefghijklmnopqrstuwvxyz');
Str := Str + UTF8LowerCase('AĄBCĆDEĘFGHIJKLŁMNŃOÓPRSŚTUWYZŹŻ'); //Str := Str + UTF8LowerCase('aąbcćdeęfghijklłmnńoóprsśtuwyzźż');
//Str := Str + UTF8LowerCase('AĄBCĆDEĘFGHIJKLŁMNŃOÓPRSŚTUWYZŹŻ');
Str := UTF8LowerCase('名字叫嘉英，嘉陵江的嘉，英國的英');
end; end;
lTimeDiff := Now - lStartTime; lTimeDiff := Now - lStartTime;
WriteLn('LowerCase Performance test took: ', DateTimeToMilliseconds(lTimeDiff), ' ms'); WriteLn('LowerCase Performance test took: ', DateTimeToMilliseconds(lTimeDiff), ' ms');
lStartTime := Now;
for i := 0 to 9999 do
begin
//Str := UTF8LowerCaseMattias('aąbcćdeęfghijklłmnńoóprsśtuwyzźż');
//Str := Str + UTF8LowerCaseMattias('AĄBCĆDEĘFGHIJKLŁMNŃOÓPRSŚTUWYZŹŻ');
Str := UTF8LowerCaseMattias('名字叫嘉英，嘉陵江的嘉，英國的英');
end;
lTimeDiff := Now - lStartTime;
WriteLn('Mattias LowerCase Performance test took: ', DateTimeToMilliseconds(lTimeDiff), ' ms');
end; end;
begin begin