Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
program EnumPtrConvTest;
{$APPTYPE CONSOLE}
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$packenum 1}
type
TEnum = (a, b);
var
e: TEnum;
p: Pointer;
begin
e := b;
p := Pointer(e);
if PtrUInt(p)<>1 then
halt(1); // produces "1" in Delphi
end.