class - Delphi 10.2 - 无法解析单元名称 'Controls' 和 'Dialogs'

Question

我收到一系列未声明的标识符类型错误。比如:第 1300 行未声明的标识符“MessageDlg”。

我认为这是因为 Delphi 无法识别“控件”和“对话框”类。

但我在 uses 子句中声明:

    uses
    Windows, Messages, SysUtils, Variants, Classes, Controls, Dialogs,
    ADODB, DateUtils, DB, Math, SqlExpr;
    //Cannot resolve unit name 'Controls'
    //Cannot resolve unit name 'Dialogs'
    .
    .
    .
    Procedure Insert_Data_BD();
    var
      j: Integer;
      IDOffer: Integer;
      Hour: String;
      adocOpen: TADOConnection;
      adospSELECT, adospINPUTX, adospINPUTY,
      adospINPUTZ, adospINPUTW, adospOUTPUTR : 
      TADOStoredProc;
      adoQuery: TADOQuery;
      blnUpdate: Boolean;
      strTabela: ShortString;
   begin
      Try
        ShortDateFormat := 'dd/mm/yy'; //Undeclared Identifier 'ShortDateFormat'
        ShortTimeFormat := 'hh:mm:ss'; //Undeclared Identifier 'ShortTimeFormat'
        DateTimeToString(Hour, 't', Time);
        blnUpdate := False;
   .
   .
   .
       MessageDlg('Error', mtInformation, [mbOK], 0); 
       // Undeclared identifier 'MessageDlg' 
       // Undeclared identifier 'mtInformation'
       // Undeclared identifier 'mbOK'
   end;

有人知道会发生什么吗？

提前致谢!

Answer 1

我发现发生了什么......

我需要用 vcl 声明控件和对话框。我不知道为什么，因为在其他项目中没有必要这样做。

uses
   Windows, Messages, SysUtils, Variants, Classes, vcl.Controls, vcl.Dialogs,
   ADODB, DateUtils, DB, Math, SqlExpr;

对于错误:Undeclared Identifier 'ShortDateFormat'

 Procedure Insert_Data_BD();
var
  j: Integer;
  IDOffer: Integer;
  Hour: String;
  adocOpen: TADOConnection;
  adospSELECT, adospINPUTX, adospINPUTY,
  adospINPUTZ, adospINPUTW, adospOUTPUTR : 
  TADOStoredProc;
  adoQuery: TADOQuery;
  blnUpdate: Boolean;
  strTabela: ShortString;

  begin
      Try
      //ShortDateFormat := 'dd/mm/yy';     
      //ShortTimeFormat := 'hh:mm:ss';     
        FormatSettings.ShortDateFormat := 'dd/mm/yy';       
        FormatSettings.ShortTimeFormat := 'hh:mm:ss';       
        DateTimeToString(Hour, 't', Time);
        blnUpdate := False;

另请参阅此链接:http://delphiprogrammingdiary.blogspot.com/2015/12/e2003-undeclared-identifier.html?_sm_au_=iVVBsnZBF232BDHF

耐心是一种美德! :)