Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

Подкиньте перевод WinNT.h на pascal   Найти похожие ветки 

← →
PVOzerski   (2003-09-19 13:38) [4]

В оригинале на Си:
typedef enum _TOKEN_INFORMATION_CLASS { // tic

TokenUser = 1,
TokenGroups,
TokenPrivileges,
TokenOwner,
TokenPrimaryGroup,
TokenDefaultDacl,
TokenSource,
TokenType,
TokenImpersonationLevel,
TokenStatistics
} TOKEN_INFORMATION_CLASS;

Во FreePascal переведено как
TOKEN_INFORMATION_CLASS = (TokenUser := 1,TokenGroups,TokenPrivileges,
TokenOwner,TokenPrimaryGroup,TokenDefaultDacl,
TokenSource,TokenType,TokenImpersonationLevel,
TokenStatistics);

т.е. использована конструкция, не поддерживаемая в Delphi. При этом далее после TokenUser фактически прибавляется по единице - совместимо ли это с Си (т.е. не ошибочен ли перевод), я не знаю.
Ясно, что если перевод правилен, то в Delphi эта несовместимость обходится элементарно:

TOKEN_INFORMATION_CLASS = (Token__DUMMY,TokenUser,TokenGroups,TokenPrivileges,
TokenOwner,TokenPrimaryGroup,TokenDefaultDacl,
TokenSource,TokenType,TokenImpersonationLevel,
TokenStatistics);

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c