blob: 76b06d0d28aa7e341cb13a54433a7c9036ef8d67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
uses
unicodeducet, fpwidestring, cp1253, cp1251,
SysUtils;
type
ts1253 = type AnsiString(1253);
ts1251 = type AnsiString(1251);
var
s1 : ts1253;
s2 : ts1251;
au : unicodestring;
begin
au := #$20AC; // Euro symbol
s1 := au;
s2 := au;
if (s1<>s2) then
halt(1);
writeln('ok');
end.
|
