Как избавиться от ошибки "Invalid class typecast" при освобождении компонентов в Delphi

Delphi , Синтаксис , Ошибки и Исключения

Разработчики, работающие с Delphi, иногда сталкиваются с ошибкой "Invalid class typecast" при попытке освободить компоненты. Эта ошибка может возникнуть из-за неправильного использования оператора typecasting или некорректного обращения к компонентам. В данной статье мы рассмотрим, как можно исправить эту проблему на примере освобождения компонентов при закрытии формы.

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

Пользователь столкнулся с ошибкой "Invalid class typecast" при попытке освободить компоненты в процедуре FormHide. Ошибка возникает в цикле, где происходит попытка освободить компоненты типа TImage и TLabel, используя их имена и индексацию компонентов формы.

Контекст и решение

procedure TfrmMenu.FormHide(Sender: TObject);
var
  I: Integer;
  sID: String;
begin
  I := 0;
  repeat
    Inc(I);
    with dmMenu.qryMcDonalds do
    begin
      SQL.Text := 'Select ItemID FROM tblMenu WHERE ItemID LIKE "' + IntToStr(I) + '%"';
      Open;
    end;
    sID := dmMenu.qryMcDonalds.Fields[0].AsString;

    if (Components[I] as TImage).Name = 'imgd' + sID then
    begin
      (Components[I] as TImage).Free;
    end;

    if (Components[I] as TLabel).Name = 'lbld' + sID then
    begin
      (Components[I] as TLabel).Free;
    end;
  until I = ComponentCount - 1;
end;

Ошибка возникает из-за неправильного использования оператора as в Delphi, который выполняет утвердительное приведение типов. Если компонент не соответствует ожидаемому типу, будет выброшено исключение EInvalidCast. В данном случае предполагается, что каждый компонент одновременно является TImage и TLabel, что невозможно.

Подтвержденный ответ

Исправленный код должен учитывать, что компоненты могут быть как TImage, так и TLabel, но не одновременно. Использование утвердительного приведения типов не требуется, так как свойство Name доступно в базовом классе TComponent. Также необходимо обращаться к компонентам в обратном порядке, чтобы избежать ошибок, связанных с изменением индексов компонентов после их освобождения.

procedure TfrmMenu.FormHide(Sender: TObject);
var
  I: Integer;
  sID: String;
begin
  I := ComponentCount - 1;
  repeat
    Dec(I);
    sID := IntToStr(I);
    if (Components[I] is TImage) and (Components[I].Name = 'imgd' + sID) then
      Components[I].Free;
    if (Components[I] is TLabel) and (Components[I].Name = 'lbld' + sID) then
      Components[I].Free;
  until I < 0;
end;

Альтернативный ответ

Если необходимо найти компоненты по их имени, можно использовать дополнительную логику, например, цикл внутри цикла для проверки каждого компонента на соответствие имени.

Заключение

При освобождении компонентов в Delphi важно правильно использовать операторы приведения типов и обращаться к компонентам в обратном порядке, чтобы избежать ошибок, связанных с изменением индексов после удаления компонентов. Это позволит избежать ошибки "Invalid class typecast" и корректно освободить все необходимые компоненты.

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

Разработчики Delphi сталкиваются с ошибкой 'Invalid class typecast' при попытке освобождения компонентов из-за неправильного использования приведения типов и обращения к компонентам.

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

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

:: Главная :: Ошибки и Исключения ::