德尔福F2084内部错误：AV07953449

在我的项目中，我试图连接一个名为Lang_Unit.pas的单元，并将其命名为Lang_Unit.pas，但在编译该项目时，Delphi给出了一个未知的错误，称为“[dcc32致命错误] Lang_Unit.pas（5）：F2084内部错误：AV07953449-R26D7474C-0“。
关键是，如果我将关闭我的项目，或删除这个连接的单元，错误不会消失。
如果我将创建清晰的默认VCL应用程序，它仍然会出现此错误。
只有当我重启我的Delphi 2010时，错误才会消失。
但是，如果我将尝试编辑代码中的某些内容，则会再次出现此错误...
什么是问题？ 一切都很好，我没有碰到任何东西。
我刚刚关闭了我的电脑，然后一段时间打开它，打开我的项目并编辑我的代码，然后我看到这个错误...

如果它有帮助，这是我的Lang_Unit.pas代码：

unit Languages_UNIT;

interface

Uses
  System.Generics.Collections, IniFiles;

Type
TLanguages_List = Class

  private
    LangType:string;
    LangDescription:string;
    LangFile:TIniFile;

  public
  Constructor Create(LType,LDes:string; LFile:TiniFile);
  Function GetLangType:string;
  Function GetDescription:string;
  Function GetStructure:TIniFile;

End;




TLanguages_Controller = Class

  public
  Function GetStructureByType(RequestedType:string; LangList:TObjectList<TLanguages_List>):TIniFile;
  Function TypeExists(RequestedType:string; LangList:TObjectList<TLanguages_List>):Boolean;
  Procedure LoadLanguage(RequestedType:string; LangList:TObjectList<TLanguages_List>);

End;

implementation

uses Unit1;

Constructor TLanguages_List.Create(LType,LDes:string; LFile:TiniFile);
  Begin
    LangType:=LType;
    LangDescription:=LDes;
    LangFile:=LFile;
  End;

Function TLanguages_List.GetLangType:string;
  Begin
    Result:=LangType;
  End;

Function TLanguages_List.GetDescription:string;
  Begin
    Result:=LangDescription;
  End;

Function TLanguages_List.GetStructure:TIniFile;
  Begin
    Result:=LangFile;
  End;







Function TLanguages_Controller.GetStructureByType(RequestedType:string; LangList:TObjectList<TLanguages_List>):TIniFile;
var
i:integer;
  Begin
    For i := 0 to LangList.Count-1 Do
      Begin
        IF(LangList[i].GetLangType=RequestedType) Then
          Begin
            Result:=LangList[i].GetStructure;
            Break;
          End;
      End;
  End;


Function TLanguages_Controller.TypeExists(RequestedType:string; LangList:TObjectList<TLanguages_List>):Boolean;
var
i:integer;
GOTYA:Boolean;
  Begin
    GOTYA:=False;
    For i := 0 to LangList.Count-1 Do
      Begin
        IF(LangList[i].GetLangType=RequestedType) Then
          Begin
            GOTYA:=True;
            Break;
          End;
      End;
      IF(GOTYA) Then
        Result:=True
      Else
        Result:=False;
  End;


Procedure TLanguages_Controller.LoadLanguage(RequestedType:string; LangList:TObjectList<TLanguages_List>);
var
i:integer;
SLS:TIniFile;//SELECTED LANGUAGE STRUCTURE
CS:string;//CURRENT SECTION
  Begin
    //GET SELECTED LANGUAGE STRUCTURE
    For i := 0 to LangList.Count-1 Do
      Begin
        IF(LangList[i].GetLangType=RequestedType) Then
          Begin
            SLS:=LangList[i].GetStructure;
            Break;
          End;
      End;

      //START LOADING SELECTED LANGUAGE
        //TABS SECTION LOAD
        CS:='TABS';
        SD_DEFNAME:=SLS.ReadString(CS,'Speed_Dials','Speed_Dials');
        Form1.goleft.Hint:=SLS.ReadString(CS,'Back','Back');
        Form1.goright.Hint:=SLS.ReadString(CS,'Forward','Forward');
        REFLESHBTN_TEXT:=SLS.ReadString(CS,'Reflesh','Reflesh');
        STOPBTN_TEXT:=SLS.ReadString(CS,'Stop','Stop');

        //PAGE_POPUP SECTION LOAD
        CS:='PAGE_POPUP';
        Form1.ChromiumPopup.Items[0].Caption:=SLS.ReadString(CS,'Forward','Forward');
        Form1.ChromiumPopup.Items[1].Caption:=SLS.ReadString(CS,'Back','Back');
        Form1.ChromiumPopup.Items[2].Caption:=SLS.ReadString(CS,'Reflesh','Reflesh');

        Form1.ChromiumPopup.Items[3].Caption:=SLS.ReadString(CS,'Copy_Link','Copy Link');
        Form1.ChromiumPopup.Items[4].Caption:=SLS.ReadString(CS,'Save','Save');
        Form1.ChromiumPopup.Items[5].Caption:=SLS.ReadString(CS,'Print','Print');
        Form1.ChromiumPopup.Items[6].Caption:=SLS.ReadString(CS,'view_source','View Source');
        Form1.ChromiumPopup.Items[7].Caption:=SLS.ReadString(CS,'code_debug','Code Debug');

  End;


end.

---

内部错误意味着编译器本身处于“困惑”状态。
解决这个问题的方法是：

将您的代码保存在安全的位置供以后参考。
重新启动Delphi
通过撤销上次编辑或加载临时保存文件，将源代码还原到最后一次已知的良好状态。

您可以在_backup文件夹中找到以前的文件。

确保将文件类型设置为any file 。

为了让Delphi在编译时生成一个保存文件，你需要启用自动保存

让Delphi保持超过默认的10次保存是个好主意。 我喜欢将它设置为最大值：90。

只要继续重新启动Delphi，并编译以前的版本，直到内部错误消失。
然后，您只需以稍微不同的方式重新创建代码。 （你确实保存了原始代码？）

---

我也有这个问题（在德尔福10柏林）。 它在框架中更改组件的名称后不久就开始了。 它也似乎很持久。 不过，我通过右键单击该项目并选择'Clean'然后选择'Build'来解决问题。

链接地址: http://www.djcxy.com/p/91105.html

上一篇: Delphi F2084 Internal Error: AV07953449

下一篇: Delphi: Which exception class should be used to raise last Win32/Win64 errors?