blob: e462e565e37ea544bb51bbdd5c4e8a59ee73b6e9 (
plain)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
|
{$mode tp}
program objarray;
type
TAny = object
public
constructor Init;
end;
TNameIndex = object(TAny)
Name : ^string;
Index: integer;
end;
constructor TAny.Init;
begin
end;
const
S0: string[5]='Obj-0';
S1: string[5]='Obj-1';
S2: string[5]='Obj-2';
Table: array[0..2] of TNameIndex = (
(Name:@S0; Index:0),
(Name:@S1; Index:1),
(Name:@S2; Index:2)
);
begin
WriteLn('@S0 = ',longint(@S0));
WriteLn('@S1 = ',longint(@S1));
WriteLn('@S2 = ',longint(@S2));
WriteLn('Table[0].Name = ',longint(Table[0].Name));
WriteLn('Table[1].Name = ',longint(unaligned(Table[1].Name)));
WriteLn('Table[2].Name = ',longint(Table[2].Name));
WriteLn('Table[0].Name^ = ',Table[0].Name^);
WriteLn('Table[1].Name^ = ',unaligned(Table[1].Name)^);
WriteLn('Table[2].Name^ = ',Table[2].Name^);
end.
|
