1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
program trtti7;
{$mode delphi}
uses
typinfo;
type
// RTTI for this type will have 1251 codepage
T1251String = type AnsiString(1251);
var
S: T1251String = 'Test';
Info: PTypeInfo;
Data: PTypeData;
begin
// change runtime string codepage to make it different from RTTI value
SetCodePage(RawByteString(S), 866, False);
// check if runtime codepage is 866
if StringCodePage(S) <> 866 then
halt(1);
// check that it is an ansistring in RTTI
Info := TypeInfo(S);
WriteLn(Info^.Kind);
if Info^.Kind <> tkAString then
halt(2);
// check that compiletime RTTI is 1251
Data := GetTypeData(Info);
if Data^.CodePage <> 1251 then
halt(3);
end.
|
