Исправление ошибки "Ordinal type required" при компиляции под 64-битный Windows в программах на Delphi

Delphi , ОС и Железо , Windows

При разработке программ на Delphi, особенно при переходе с 32-битной на 64-битную версию Windows, можно столкнуться с ошибкой "Ordinal type required". Это происходит, когда в коде используются типы данных, не поддерживаемые в 64-битной версии компилятора как ординальные типы. В данной статье мы рассмотрим, как исправить эту ошибку на примере использования свойства Tag компонента.

Описание проблемы

При компиляции программы, написанной для 32-битной версии Windows, под 64-битную версию может возникнуть ошибка с кодом 2001, указывающая на необходимость использования ординального типа. Это связано с изменением размера типов данных в 64-битной версии. Например, использование значения свойства Tag компонента, которое в 32-битной версии является NativeInt (32 бита), в 64-битной версии становится NativeInt64 (64 бита), и не рассматривается как ординальный тип.

Пример кода, вызывающего ошибку

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils, System.Classes;
var
  S: set of byte;
  C: TComponent;
begin
   C := TComponent.Create(nil);
   C.Tag := 1;
   S := [C.Tag]; // Ошибка: Ordinal type required
   C.Free;
end.

Исправление ошибки

Чтобы исправить ошибку, необходимо привести тип данных к ординальному. В данном случае, так как используется только младший байт значения Tag, можно привести его к типу Byte:

S := [Byte(C.Tag)]; // Исправленная строка

Объяснение

В 64-битной версии компилятора Delphi тип NativeInt становится NativeInt64, который не рассматривается как ординальный тип. Это означает, что для использования в контекстах, требующих ординальных типов, необходимо явно привести тип к ординальному, например, к Byte или Integer.

Заключение

Использование свойства Tag в программах на Delphi может быть небезопасным, так как оно не является типобезопасным хранилищем и может привести к коллизиям при использовании несколькими частями программы. Рекомендуется избегать использования свойства Tag и хранить данные в переменных, тип которых можно выбрать самостоятельно.

Альтернативные решения

Если необходимо сохранить совместимость с 32-битной версией Windows, но при этом избежать проблем с 64-битной, можно использовать приведение типов. Однако, более безопасным и рекомендуемым решением будет использование собственных полей или свойств для хранения данных, что позволит избежать потенциальных ошибок и улучшить читаемость и поддерживаемость кода.

Создано по материалам из источника по ссылке.

При разработке программ на Delphi для 64-битной версии Windows может возникнуть ошибка 'Ordinal type required', связанная с использованием свойства Tag компонента, и для её исправления необходимо привести тип данных к ординальному.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::