Исправление ошибки EInvalidPointer при использовании Unicode в Delphi XE8

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

При работе с Unicode-символами в Delphi XE8 разработчики могут столкнуться с ошибкой EInvalidPointer, особенно при использовании динамических массивов. Это происходит из-за неправильного доступа к элементам массива. В данной статье рассмотрим, как исправить данную ошибку, а также предложим улучшенный вариант кода.

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

Разработчик пытается изменить стиль символов, используя Unicode-символы в Delphi XE8. Все работает хорошо, пока не происходит закрытие приложения, в результате чего возникает ошибка Exception EInvalidPointer. Проблема связана с обращением к несуществующим элементам массива.

Исходный код, вызывающий ошибку

procedure ChangeStyle(OriginalText, DecoratedText: TsMemo; DecoList: TsListBox);
var
  StyleChars, TempText: string;
  Len, I: Integer;
  TextArray, StyleArray: array of UnicodeString;
begin
  // Код, вызывающий ошибку EInvalidPointer
  // ...
end;

Подтвержденное решение

Проблема заключается в том, что после выделения памяти для массива StyleArray размером 23 элемента, разработчик пытается обратиться к элементам с индексами от 1 до 23, в то время как индексация в динамических массивах начинается с 0. Следовательно, последний допустимый индекс - 22. Чтобы исправить это, необходимо выделить память для 24 элементов:

SetLength(StyleArray, 24);

Также важно понимать, что использование TStringList не поддерживает Unicode-символы, потому что в приведенном вопросе разработчик использовал его некорректно, пытаясь заменить динамические массивы. TStringList является специализированным классом, который уже поддерживает Unicode.

Альтернативное решение

Предложенное решение также включает в себя упрощение исходного кода, убрав излишние динамические массивы. Вместо этого можно напрямую обращаться к строкам:

procedure ChangeStyle(OriginalText, DecoratedText: TsMemo; DecoList: TsListBox);
var
  StyleChars, TempText: string;
  Len, I, Idx: Integer;
  Ch: Char;
begin
  // ...
  // Простой и эффективный способ изменения стиля символов
  // ...
end;

Комментарии по коду

• В коде используется функция Assert для проверки, что строка StyleChars содержит достаточно символов для обработки.
• Используется функция Ord для преобразования символов в числовые индексы, которые затем используются для доступа к стилям в строке StyleChars.
• Если индекс больше или равен 22, то он корректируется на 3 единицы меньше, чтобы учесть отсутствие стилей для символов T..V и t..v.

Заключение

При работе с Unicode-символами в Delphi важно правильно обращаться к элементам массивов и понимать особенности работы с динамическими массивами. Упрощение кода и понимание принципов работы с Unicode-строками помогут избежать ошибок и сделают код более читаемым и поддерживаемым.

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

Разработчик столкнулся с ошибкой `EInvalidPointer` при работе с Unicode-символами в Delphi XE8 из-за неправильного доступа к элементам динамического массива.

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

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

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