blob: dd065abc8fa1e6070796719557c74b269b82b063 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %OPT=-Fcutf8}
{ Source provided for Free Pascal Bug Report 4155 }
{ Submitted by "rimga" on 2005-07-04 }
{ e-mail: rimga@ktl.mii.lt }
{this file encoded in UTF8}
{cmd fpc twchar.pas -FcUTF8}
var
c: widestring;
c2: widestring;
begin
c:= 'ą'; //problem handling char constants
c2:= 'ąa';
if c[1]<>c2[1] then
WriteLn('problem')
else
Writeln('OK');
end.
|
