paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Test for #17591

Browse Source 
git-svn-id: trunk@16294 -
This commit is contained in:
sergei 2010-11-02 07:36:55 +00:00
parent 80d69c8a22
commit b002c36e8b
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10722,6 +10722,7 @@ tests/webtbs/tw1755.pp svneol=native#text/plain
tests/webtbs/tw17550.pp svneol=native#text/plain
tests/webtbs/tw17560.pp svneol=native#text/plain
tests/webtbs/tw1758.pp svneol=native#text/plain
tests/webtbs/tw17591.pp svneol=native#text/plain
tests/webtbs/tw17604.pp svneol=native#text/plain
tests/webtbs/tw17646.pp svneol=native#text/plain
tests/webtbs/tw1765.pp svneol=native#text/plain

14
tests/webtbs/tw17591.pp Normal file
View File

@ -0,0 +1,14 @@
program comparetext;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
uses
sysutils{,msesysintf};
var
int1: integer;
ustr1,ustr2: unicodestring;
begin
ustr1:= 'A';
ustr2:= 'a';
writeln(unicodecomparestr(ustr1,ustr2));
writeln(unicodecomparetext(ustr1,ustr2));
end.