blob: f83ab3cefeac52eecc3c819d6728a6136024b2a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %fail }
program EnumPtrConvTest;
{$APPTYPE CONSOLE}
{$packenum 1}
type
TEnum = (a, b);
var
e: TEnum;
p: Pointer;
begin
e := b;
p := Pointer(e);
WriteLn(Integer(p)); // produces "1" in Delphi
end.
|