blob: e09251f3ba22661b13a74d8894732621afacf91e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %skiptarget=android }
program tcpstr9;
{$mode delphiunicode}
{$apptype console}
uses
unicodeducet, fpwidestring;
begin
// this test can be only run with the compiler built right now on the
// same system
if StringCodePage(AnsiString('test')) <> DefaultSystemCodePage then
begin
WriteLn(StringCodePage(AnsiString('test')), ' <> ', DefaultSystemCodePage);
halt(1);
end;
Writeln('ok');
end.
|
