Home/ Questions/Q 6719955
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-26T09:09:16+00:00

I am writing a Delphi 2010 application. It has many files, two of which

  • 0

I am writing a Delphi 2010 application. It has many files, two of which are called Utils_ABS and Utils_MAT. I have created a record type that both files need to understand, so I put it in its own file, called TypeDefs.inc.

At the top of both Utils_MAT and Utils_ABS, I have INCLUDED TypeDefs.inc.

unit Utils_ABS;

interface

{$WARNINGS ON}
{$HINTS ON}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}

uses
Windows, Messages, ... Utils, Analysis, UserFeedback, Utils_MAT;

{$I TypeDefs.inc}     // Include TypeDefs that are used multiple places

procedure ABS_Load;
...

Utils_MAT looks very similar, especially as relates to {$I TypeDefs.inc}.

The key item is that both files reference a third file, TypeDefs.inc, as an INCLUDE, which has the definition of a RECORD:

type
TTableAttrType = Record
tabIOT: Boolean; // Is table an IOT
...
end;

There is nothing else but this one record definition in this file.

The problem is that when I compile, I get the following error:

[DCC Error] Utils_ABS.pas(212): E2010 Incompatible types: ‘Utils_ABS.TTableAttrType’ and ‘Utils_MAT.TTableAttrType’

I am totally confused. How can they be incompatible types if they come from the same definition? Not a copy of the definition, but literally the same definition.

I have checked all my source code, and this TTableAttrType record is not defined anywhere else.

I have tried to comment out the $INCLUDE, and hard-code the definition of the record into both Utils_ABS and Utils_MAT, but I still get the same error.

How do I get this error to go away?
How do I define a record structure in one place, and have multiple files access it?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    By including the definition like this, you are defining the type in both units. Since Pascal (and by extension Delphi) uses a nominative type system, rather than a structural type system, the two types are not the same – they have different names, as shown in the error message.

    Put the definition of TTableAttrType in a separate unit, and throw that new unit into the uses clause of the interface section in the two other units. Then the type will only be defined once, and you will no longer have incompatible types.

    • 0