Note that there are some explanatory texts on larger screens.

plurals
  1. PODelphi F2084 Internal Error: AV07953449-R26D7474C-0
    primarykey
    data
    text
    <p><br /> In my project, i'm trying to connect one more UNIT, named Lang_Unit.pas with some classes and procedures, but, while compiling the Project, Delphi gives unknown error called "[dcc32 Fatal Error] Lang_Unit.pas(5): F2084 Internal Error: AV07953449-R26D7474C-0".<br /> And the point is that, what if i will close my project, or remove this connected UNIT, error is not getting away.<br /> And if i will create clear default VCL Application, its still gives this error.<br /> And only when i'm restarting my Delphi 2010, error is getting away.<br /> But, if i will try to edit something in the code, this error is comes again...<br /> What is problem ? Everything was works fine, im not touched nothing.<br /> I've just turned off my PC, then after some time turned it ON and opened my Project and edited my code, then i see this error...<br /></p> <p>If Its will help, here is my Lang_Unit.pas code : </p> <pre><code>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&lt;TLanguages_List&gt;):TIniFile; Function TypeExists(RequestedType:string; LangList:TObjectList&lt;TLanguages_List&gt;):Boolean; Procedure LoadLanguage(RequestedType:string; LangList:TObjectList&lt;TLanguages_List&gt;); 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&lt;TLanguages_List&gt;):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&lt;TLanguages_List&gt;):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&lt;TLanguages_List&gt;); 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. </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload