mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-25 23:59:27 +01:00
38 lines
647 B
ObjectPascal
38 lines
647 B
ObjectPascal
{$codepage UTf8}
|
|
Var cad1:unicodeString;
|
|
cad2:Widestring;
|
|
n:integer;
|
|
Begin
|
|
cad1:='犮犯狃狄狪独';
|
|
cad2:=cad1;
|
|
|
|
//Unicodestring, 1 character is ok
|
|
Writeln('unicodestring');
|
|
n:=pos('犮',cad1);
|
|
Writeln(n);
|
|
if n<>1 then
|
|
halt(1);
|
|
|
|
Writeln('widestring');
|
|
n:=pos('犮',cad2);
|
|
Writeln(n);
|
|
if n<>1 then
|
|
halt(1);
|
|
|
|
//Unicodestring, more charactere wrong
|
|
Writeln('unicodestring');
|
|
n:=pos('狃狄',cad1);
|
|
Writeln(n); //show position 0
|
|
if n<>3 then
|
|
halt(1);
|
|
|
|
Writeln('widestring');
|
|
n:=pos('狃狄',cad2); //Is correct position 3
|
|
|
|
Writeln(n);
|
|
if n<>3 then
|
|
halt(1);
|
|
|
|
Writeln('ok');
|
|
End.
|