在主机中添加单元时不兼容的类型

Question

我是一个新的Delphi开发人员,并且有一些奇怪的问题.我必须在我的主程序中添加一个名为Filters的单元,名为Unit1(默认名称).但是,当我尝试运行代码时,alaways:[错误] Unit1.pas(48):不兼容的类型.如果我从"使用"中删除过滤器,则运行代码.有人知道如何解决这个问题.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  ArrayOfInteger = array of integer;
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    options: TMenuItem;
    checkResult: TMenuItem;
    GerarJogos1: TMenuItem;
    exit: TMenuItem;
    edtGame: TEdit;
    mmoResult: TMemo;
    btnConfirm: TButton;
    procedure btnConfirmClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation
uses Utils, Error, Filters;
{$R *.dfm}

procedure TMain.btnConfirmClick(Sender: TObject);
var utils: TUtils;
var filter: TFilters;
var error: Errors;
var num: ArrayOfInteger;
var nstr, str: string;
begin
     SetLength(num, 6);
     FillChar(str, SizeOf(str), #0);
     FillChar(nstr, SizeOf(nstr), #0);
     utils := TUtils.Create;
     filter := TFilters.Create;
     error := Errors.Create;
     str := edtGame.Text;
     num := utils.strInput(str);

第48行:num:= utils.strInput(str);

unit Filters;

interface

uses Classes, SysUtils, Math;

type
  ArrayOfInteger = array of integer;
  TFilters = class
  private
  protected
  public
    Constructor Create;

   // function isPair(number: integer): Boolean;
    //function fSum(numbers: ArrayOfInteger): Boolean;
    //function fNLNPNO(numbers: ArrayOfInteger): integer;
  end;

implementation

Constructor TFilters.Create;
begin
     Inherited Create;
end;

Answer 1

您已ArrayOfInteger在两个不同的单位中定义,这会导致此错误.从其中一个单元中删除定义或指定var num: ArrayOfInteger您要使用的定义,例如:TMain.ArrayOfInteger