Как решить внутреннюю ошибку Delphi [Pascal Fatal Error] F2084: LA33?

Мне удалось решить это, следуя приведенной ниже процедуре

1. Создать новый пакет
2. Один за другим добавляйте компоненты в пакет, компилируйте и устанавливайте, пока не произойдет сбой.
3. Исследуйте устройство, вызвавшее сбой.

Как оказалось, рассматриваемый модуль имел массив констант класса, например

TMyClass = class(TComponent)
private
  const ErrStrs: array[TErrEnum] of string
    = ('', //erOK
       'Invalid user name or password', //erInvUserPass
       'Trial Period has Expired'); //erTrialExp
protected
  ...
public
  ...
end;

Таким образом, Delphi не любит константы класса (или, возможно, массивы констант класса) в компонентах пакета.

Обновление: да, об этом сообщили в codegear

Это ошибки в компиляторе/компоновщике. Вы можете найти много ссылок на эти ошибки в Интернете в разных версиях Delphi, но это не всегда одни и те же ошибки. Это затрудняет предоставление одного решения для всех этих различных проблем.

Общие решения, которые могут это исправить, как вы отметили:

• Удалить *.dcp *.dcpil *.dcu *.dcuil *.bpl *.dll
• Перепишите свой код по-другому
• Возиться с параметрами компилятора
• Получить последнюю версию Delphi

Лично я обнаружил, что одну из таких ошибок можно решить, если отключить проверку диапазона. Другие решаются, если вы не используете дженерики из другого модуля. И один был решен, если имя юнита и имя класса было переименовано, чтобы быть меньше.

И, конечно же, вы должны сообщать о любых проблемах на http://qc.codegear.com.

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

TMyArray = array[TErrEnum] of string;

TMyClass = class(TComponent)
private
  const ErrStrs: TMyArray
    = ('', //erOK
       'Invalid user name or password', //erInvUserPass
       'Trial Period has Expired'); //erTrialExp
protected
  ...
public
  ...
end;

Это делает объявление массива явным.

Я потратил несколько часов на эту проблему, удаляя dcu и т. д. безрезультатно.

Наконец, мне помогло снять флажок «Проверка переполнения» в параметрах компилятора, перестроить проект, повторно проверить проверку переполнения и снова перестроить. Вуаля! проблема ушла. Иди разберись. (все еще использую D7).

У меня был похожий случай, когда решением было удалить файл urlmon.dcu из /lib/debug.

Также удалось полностью отключить «использовать отладку .dcus». Это, конечно, нежелательно, но вы можете использовать его, чтобы проверить, связана ли проблема с каким-либо из ваших собственных модулей или с любым из модулей delphi.

Попробуйте очистить «Выходной каталог», чтобы Delphi не могла исправлять грязные .DCU и была вынуждена создавать .PAS. Иногда это помогает. Если вы не настроили «каталог вывода», попробуйте удалить (или лучше переместить в резервную папку) все файлы .DCU.

Отключение «Включить символы удаленной отладки» в параметрах компоновщика устранило проблему для меня Delphi 2007, проект dll.

Delphi XE3, обновление 2

F2084 Внутренняя ошибка: URW1147

СЛУЧАЙ 1:

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

procedure TMyClass<TContainerItem, TTarget>.Foo();
type
  TCacheInfo = record
    UniqueList: TStringList;
    UniqueInfo: TUniqueInfo;
  end;
var
  CacheInfo: TCacheInfo;

перемещение объявления типа в приватную часть объявления класса решило эту проблему.

СЛУЧАЙ 2:

проблема в этом случае была связана с необязательным параметром:

unit A.pas;
interface
type
  TTest<T> = class
  public
    type
      TTestProc = procedure (X: T) of object;
    constructor Create(TestProc_: TTestProc = nil);
  end;
...

внутренняя ошибка компиляции возникла, как только переменная класса TTest была объявлена ​​в другом модуле: например.

unit B.pas:

uses A;
var
  Test: TTest<TObject>;

решение состояло в том, чтобы сделать аргумент конструктора TestProc_ необязательным.

Для меня в D2010 отключение параметра компилятора «Выдавать информацию о типе времени выполнения» помогло.

Из различных ответов эта ошибка выглядит как общее необработанное исключение компилятором.

Моя проблема была вызвана ошибочным вызовом function X(someString:String) : Boolean;, который изменил строку и вернул логическое значение, используя someString := X(someString);

Поскольку мой опыт работы с внутренней ошибкой таков, я переписал строку за строкой и снова скомпилировал и понял, что некоторые операторы if else не работают, как

Возникла внутренняя ошибка

 if (DataType in ASet) 
    begin
 //do work
    end
    else if (DataType = B)
    begin
 //do work
    end
    else 
    begin
 //do work
    end;

Как я решил:

if (DataType = B)
        begin
     //do work
        end
        else if (DataType in ASet) 
        begin
     //do work
        end
        else 
        begin
     //do work
        end;

Просто переключил условия в качестве примера. Надеюсь, это поможет.

Я только что испытал подобное поведение, что привело к внутренней ошибке LA30. Причиной стали недавно добавленные строковые константы. После перехода с const cLogFileName : string = 'logfilename.log';

to const cLogFileName = 'logfilename.log';

(и, конечно же, перезапуск Delphi IDE) ошибка больше не появлялась.