Как создать массив строковых констант в Delphi и Pascal: решение ошибки "Constant expression expected"

Delphi , Синтаксис , Массивы

Создание массива строковых констант в Delphi и Pascal: решение ошибки "Constant expression expected"

В Delphi и Pascal часто возникает необходимость в создании массивов, содержащих строковые константы. Однако, попытка инициализировать такой массив с использованием типизированных констант может привести к ошибке компиляции "Constant expression expected". В этой статье мы разберем причины этой ошибки и предложим несколько способов ее решения, а также рассмотрим альтернативные подходы к инициализации массивов строковых данных.

Проблема: Ошибка "Constant expression expected"

Рассмотрим следующий пример кода, который демонстрирует проблему:

const
  Test1: String = '''
  [
    {'Computer Webcam', TAlphaColors.Aliceblue},
    {'Computer Monitor', TAlphaColors.Blueviolet},
    {'Computer Mouse', TAlphaColors.Aqua},
    {'Computer Keyboard', TAlphaColors.Blue},
  ]
''';
const
  Test2: String = '''
  [
    {'External Harddrive', TAlphaColors.Brown},
    {'USB Hub', TAlphaColors.Chartreuse},
    {'Computer Mousepad', TAlphaColors.Crimson}
  ]
''';
const
  Test3: String = '''
  [
    {'Computer Mouse', TAlphaColors.Aqua},
    {'Computer Keyboard', TAlphaColors.Blue},
    {'External Harddrive', TAlphaColors.Brown},
  ]
''';

const
  AllTestJSON: TArray<String> = [Test1, Test2, Test3]; // Ошибка: Constant expression expected

В этом коде мы пытаемся создать массив AllTestJSON, содержащий строковые константы Test1, Test2 и Test3. Однако, компилятор выдает ошибку "Constant expression expected" при инициализации массива.

Причина ошибки

Ошибка возникает из-за того, что в Delphi и Pascal существует различие между "истинными константами" (True Constants) и "типизированными константами" (Typed Constants).

• Истинные константы не имеют явно указанного типа. Они вычисляются во время компиляции и рассматриваются как литеральные значения.

• Типизированные константы имеют явно указанный тип (например, String, Integer, Boolean). Они ведут себя больше как переменные, которым присвоено начальное значение. Их значения могут быть вычислены во время выполнения программы, а не во время компиляции.

Массивы констант, такие как AllTestJSON, требуют, чтобы их элементы были "истинными константами", которые могут быть вычислены во время компиляции. Типизированные константы не удовлетворяют этому требованию.

Решение 1: Использование истинных констант

Самое простое решение - убрать указание типа String для отдельных строковых констант, тем самым превратив их в "истинные константы":

const
  Test1 = '''
  [
    {'Computer Webcam', TAlphaColors.Aliceblue},
    {'Computer Monitor', TAlphaColors.Blueviolet},
    {'Computer Mouse', TAlphaColors.Aqua},
    {'Computer Keyboard', TAlphaColors.Blue},
  ]
''';
const
  Test2 = '''
  [
    {'External Harddrive', TAlphaColors.Brown},
    {'USB Hub', TAlphaColors.Chartreuse},
    {'Computer Mousepad', TAlphaColors.Crimson}
  ]
''';
const
  Test3 = '''
  [
    {'Computer Mouse', TAlphaColors.Aqua},
    {'Computer Keyboard', TAlphaColors.Blue},
    {'External Harddrive', TAlphaColors.Brown},
  ]
''';

const
  AllTestJSON: TArray<String> = [Test1, Test2, Test3]; // Теперь работает

Удалив : String из объявлений Test1, Test2 и Test3, мы делаем их "истинными константами", которые могут быть использованы при инициализации массива AllTestJSON.

Решение 2: Использование секции initialization

Альтернативный подход - объявить массив AllTestJSON как переменную (var) и инициализировать его в секции initialization модуля. Секция initialization выполняется один раз при загрузке модуля, гарантируя, что массив будет инициализирован до того, как он будет использован.

unit MyUnit;

interface

uses
  System.SysUtils; // Для TArray<String>

type
  // Объявляем строковые константы
  const
    Test1: String =
    '''
      [
        {"Computer Webcam", TAlphaColors.Aliceblue},
        {"Computer Monitor", TAlphaColors.Blueviolet},
        {"Computer Mouse", TAlphaColors.Aqua},
        {"Computer Keyboard", TAlphaColors.Blue}
      ]
    ''';

    Test2: String =
    '''
      [
        {"External Harddrive", TAlphaColors.Brown},
        {"USB Hub", TAlphaColors.Chartreuse},
        {"Computer Mousepad", TAlphaColors.Crimson}
      ]
    ''';

    Test3: String =
    '''
      [
        {"Computer Mouse", TAlphaColors.Aqua},
        {"Computer Keyboard", TAlphaColors.Blue},
        {"External Harddrive", TAlphaColors.Brown}
      ]
    ''';

  // Объявляем AllTestJSON как переменную
  var
    AllTestJSON: TArray<String>;

implementation

initialization
  // Инициализируем массив в секции initialization
  AllTestJSON := [Test1, Test2, Test3];

end.

Этот подход позволяет использовать типизированные константы для отдельных строк, а затем инициализировать массив во время выполнения программы. Это может быть полезно, если значения констант зависят от каких-либо внешних факторов, которые не могут быть определены во время компиляции.

Сравнение решений

Заключение

В этой статье мы рассмотрели проблему инициализации массива строковых констант в Delphi и Pascal и предложили два решения: использование "истинных констант" и инициализация массива в секции initialization. Выбор подходящего решения зависит от конкретных требований вашего проекта и от того, когда значения констант становятся известны. Использование "истинных констант" является более простым и эффективным решением, если значения констант известны во время компиляции. Использование секции initialization предоставляет большую гибкость, если значения констант могут меняться во время выполнения.

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

В статье рассматривается решение ошибки "Constant expression expected" при создании массива строковых констант в Delphi и Pascal, предлагая использовать либо "истинные константы", либо инициализацию массива в секции `initialization`.

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

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

:: Главная :: Массивы ::