FreePascal клонирует тип данных для Delphi

Я пытаюсь использовать FreePascal 2.2.2 ibase60.inc из нижней ссылки этого ответа в Delphi Tokyo.

Он начинается со следующих определений:

type
  {  Unsigned types }

  UChar                = Byte;
  UShort               = Word;
  UInt                 = DWord;
  ULong                = DWord;

  { Signed types }

  Int                  = LongInt;
  Long                 = LongInt;
  Short                = SmallInt;
  Float                = Single;

  { Pointers to basic types }

  PInt                 = ^Int;
  PShort               = ^Short;
  PUShort              = ^UShort;
  PLong                = ^Long;
  PULong               = ^ULong;
  PFloat               = ^Float;
  PUChar               = ^UChar;
  PVoid                = ^Pointer;

const
   ISC_TRUE = 1;
   ISC_FALSE = 0;
const
   ISC__TRUE = ISC_TRUE;
   ISC__FALSE = ISC_FALSE;

Type
   ISC_USHORT    = word;
   ISC_STATUS    = clong;
   ISC_INT64     = int64;
   ISC_UINT64    = UInt64; // qword;
   ISC_LONG      = Longint;

   PISC_USHORT = ^ISC_USHORT;
   PISC_STATUS = ^ISC_STATUS;
   PPISC_STATUS = ^PISC_STATUS;
   PISC_INT64 = ^ISC_INT64;
   PISC_UINT64 = ^ISC_UINT64;
   PISC_LONG = ^ISC_LONG;

Как я могу преобразовать это ISC_STATUS = clong типа Delphi? Его нет в переменных и типах данных FreePascal, и до сих пор я не смог найти работающий код.

0 ответов

Другие вопросы по тегам