Почему я получаю ошибку «Слишком много локальных констант»? - PullRequest
Новая
       19

Почему я получаю ошибку «Слишком много локальных констант»?

5 голосов
/ 28 октября 2008

Delphi 2009 сообщает об ошибке E2283: [DCC Error] outputcode.pas (466): E2283 Слишком много локальных констант. Используйте более короткие процедуры

Delphi 2007 компилируется просто отлично. Я не могу найти изобилие локальных констант, это короткая (500 строк) единица. Вы видите какое-нибудь изобилие констант или литералов, к которым я могу обратиться? 

procedure TOutputCodeForm.FormCreate(Sender: TObject);
var
   poParser : TStringStream;
begin

   if ( IsWindowsVista() )  then
   begin
      SetVistaFonts( self );
   end;

   poParser := TStringStream.Create( gstrSQLParser );

   SQLParser := TSyntaxMemoParser.Create( self );
   SQLParser.RegistryKey := '\Software\Advantage Data Architect\SQLSyntaxMemo';
   SQLParser.UseRegistry := True;
   SQLParser.CompileFromStream( poParser );

   FreeAndNil( poParser );
   poParser := TStringStream.Create( gstrCPPParser );



   cppParser := TSyntaxMemoParser.Create( self );
   cppParser.RegistryKey := '\Software\Advantage Data Architect\SQLSyntaxMemo';
   cppParser.UseRegistry := True;
   cppParser.CompileFromStream( poParser );

   FreeAndNil( poParser );
   poParser := TStringStream.Create( gstrPasParser );

   pasParser := TSyntaxMemoParser.Create( self );
   pasParser.RegistryKey := '\Software\Advantage Data Architect\SQLSyntaxMemo';
   pasParser.Script := ExtractFilePath( Application.ExeName ) + 'pasScript.txt';
   pasParser.CompileFromStream( poParser );

   {* Free the stream since we are finished with it. *}
   FreeAndNil( poParser );

   poCodeOutput := TSyntaxMemo.Create( self );
   poCodeOutput.Parent := Panel1;
   poCodeOutput.Left := 8;
   poCodeOutput.Top := 8;
   poCodeOutput.Width := Panel1.Width - 16;
   poCodeOutput.Height := Panel1.Height - 16;
   poCodeOutput.ClipCopyFormats := [smTEXT, smRTF];
   poCodeOutput.Font.Charset := ANSI_CHARSET;
   poCodeOutput.Font.Color := clWindowText;
   poCodeOutput.Font.Height := -11;
   poCodeOutput.Font.Name := 'Courier New';
   poCodeOutput.Font.Style := [];
   poCodeOutput.GutterFont.Charset := DEFAULT_CHARSET;
   poCodeOutput.GutterFont.Color := clWindowText;
   poCodeOutput.GutterFont.Height := -11;
   poCodeOutput.GutterFont.Name := 'MS Sans Serif';
   poCodeOutput.GutterFont.Style := [];
   poCodeOutput.HyperCursor := crDefault;
   poCodeOutput.IndentStep := 1;
   poCodeOutput.Margin := 2;
   poCodeOutput.Modified := False;
   poCodeOutput.MonoPrint := True;
   poCodeOutput.Options := [smoSyntaxHighlight, smoPrintWrap, smoPrintLineNos, smoPrintFilename, smoPrintDate, smoPrintPageNos, smoAutoIndent, smoTabToColumn, smoWordSelect, smoShowRMargin, smoShowGutter, smoShowWrapColumn, smoTitleAsFilename, smoProcessDroppedFiles, smoBlockOverwriteCursor, smoShowWrapGlyph, smoColumnTrack, smoUseTAB, smoSmartFill, smoOLEDragSource];
   poCodeOutput.ReadOnly := False;
   poCodeOutput.RightMargin := 80;
   poCodeOutput.SaveFormat := sfTEXT;
   poCodeOutput.ScrollBars := ssBoth;
   poCodeOutput.SelLineStyle := lsCRLF;
   poCodeOutput.SelStart := 3;
   poCodeOutput.SelLength := 0;
   poCodeOutput.SelTextColor := clWhite;
   poCodeOutput.SelTextBack := clBlack;
   poCodeOutput.TabDefault := 4;
   poCodeOutput.TabOrder := 0;
   poCodeOutput.VisiblePropEdPages := [ppOPTIONS, ppHIGHLIGHTING, ppKEYS, ppAUTOCORRECT, ppTEMPLATES];
   poCodeOutput.WrapAtColumn := 0;
   poCodeOutput.OnKeyDown := FormKeyDown;
   poCodeOutput.ActiveParser := 3;
   poCodeOutput.Anchors := [akLeft, akTop, akRight, akBottom];
   poCodeOutput.Parser1 := pasParser;
   poCodeOutput.Parser2 := cppParser;
   poCodeOutput.Parser3 := SQLParser;

   SQLParser.AttachEditor( poCodeOutput );
   cppParser.AttachEditor( poCodeOutput );
   pasParser.AttachEditor( poCodeOutput );

   poCodeOutput.Lines.AddStrings( poCode );

   if ( CodeType = ctCPP ) then
      poCodeOutput.ActiveParser := 2
   else if ( CodeType = ctPascal ) then
      poCodeOutput.ActiveParser := 1
   else
      poCodeOutput.ActiveParser := 3;

   MainForm.AdjustFormSize( self, 0.95, 0.75 );
end;

Ответы [ 6 ]

3 голосов
/ 28 октября 2008

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

Я бы создал специальные подпрограммы для каждой части FormCreate вместо этой вашей большой сумки. - SQLParseInit
- cppParseInit
- pasParseInit
- CodeOutPutInit <- +++++ много констант там </p>

И посмотрите, не вызывает ли, в частности, 1 проблемы.

И было бы неплохо создать минимальный случай с минимальным количеством сторонних зависимостей, чтобы позволить другим воспроизводить его и посмотреть, действительно ли это ошибка или просто плохой код.
А также удалите эти $ IFDEF ... Просто предоставьте фактический код, который вызывает это поведение без всего беспорядка.

Добавлено: поскольку это работает в D2007, но не в D2009, я также дважды проверю, чтобы все библиотеки / сторонние компоненты, которые вы включили в свой код, были правильно перенесены в D2009. (разверните этот cppParser)

3 голосов
/ 28 октября 2008

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

Я бы выполнил бинарный поиск: продолжайте вырывать половину модуля, пока он не скомпилируется, затем добавляйте обратно.

Да, это отстой, но это одна из особенностей отладки внутренних ошибок компилятора BorlandCodeGaembarcadero.

0 голосов
/ 08 ноября 2008

Я бы посмотрел на строку "poCodeOutput.Options: = [xx ....]" Похоже, слишком много опций в наборе в одной строке кода.

Возьми эту строку и посмотри, получишь ли ты ошибку.

0 голосов
/ 01 ноября 2008

Из справки:

Одна или несколько ваших процедур содержат так много строковых константных выражений, что они превышают предел внутренней памяти компилятора. Это может происходить в коде, который генерируется автоматически. Чтобы это исправить, вы можете сократить ваши процедуры или объявить идентификаторы констант вместо использования в коде такого количества литералов.

Так что, возможно, попробуйте поместить некоторые из этих строк в переменные или другие переменные (не локальные).

0 голосов
/ 29 октября 2008

Учитывая, что проблема возникает только в одном из ваших компиляторов / настроек Delphi, я задаюсь вопросом, не связано ли это с проблемой установки компонента. Вы пробовали просто создать базовую форму, которая использует статические версии всех компонентов, которые вы создаете динамически? (TSyntaxMemoParser и т. Д.).

(Используете ли вы эти версии Delphi на отдельных машинах / кстати, виртуальной машине? Может сэкономить много хлопот, если вы используете много сторонних компонентов и более одной версии Delphi)

0 голосов
/ 28 октября 2008

Я нашел метод (FormCreate), который является проблемой, и проводил рефакторинг, но независимо от того, насколько маленьким я делаю куски, у компилятора все еще есть проблема, если я не удалю часть кода.

Франсуа спасибо, но я произвел рефакторинг кода и все еще получаю сообщение об ошибке. Если он построен на D2007, а не на D2009, это кажется мне подозрительным. 

procedure TOutputCodeForm.FormCreate(Sender: TObject);
begin

   if ( IsWindowsVista() )  then
   begin
      SetVistaFonts( self );
   end;

   SetupParser( SQLParser, gstrSQLParser, '' );
   // unresolved jmu - have to comment this out for now or delphi will complain
   // that there are too many literals in this file. Seems like a delphi bug
   // since this builds in older versions, and I've already refactored it.
   //SetupParser( cppParser, gstrCPPParser, '' );
   SetupParser( pasParser, gstrPasParser, ExtractFilePath( Application.ExeName ) + 'pasScript.txt' );
   SetupCodeOutput( poCodeOutput );

   SQLParser.AttachEditor( poCodeOutput );
   cppParser.AttachEditor( poCodeOutput );
   pasParser.AttachEditor( poCodeOutput );

   poCodeOutput.Lines.AddStrings( poCode );

   if ( CodeType = ctCPP ) then
      poCodeOutput.ActiveParser := 2
   else if ( CodeType = ctPascal ) then
      poCodeOutput.ActiveParser := 1
   else
      poCodeOutput.ActiveParser := 3;

   MainForm.AdjustFormSize( self, 0.95, 0.75 );
end;
...