mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:06:14 +02:00
parent
80d69c8a22
commit
b002c36e8b
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -10722,6 +10722,7 @@ tests/webtbs/tw1755.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw17550.pp svneol=native#text/plain
|
tests/webtbs/tw17550.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw17560.pp svneol=native#text/plain
|
tests/webtbs/tw17560.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw1758.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/tw17604.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw17646.pp svneol=native#text/plain
|
tests/webtbs/tw17646.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw1765.pp svneol=native#text/plain
|
tests/webtbs/tw1765.pp svneol=native#text/plain
|
||||||
|
14
tests/webtbs/tw17591.pp
Normal file
14
tests/webtbs/tw17591.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user