"Inkompatible Typen" bei gleichen Typ-Items?

[Helmi]

Hallo,

ich versteh gerade nicht, wieso mir Delphi die Fehlermeldung:

Zitat:

[Fehler] MDatenUnit.pas(520): Inkompatible Typen: 'TSpeichertyp' und 'TMD_Typ'

um die Ohren haut.

Ich hab folgendes Konstrukt:

1. Unit:

Delphi-Quellcode:

unit CommonUnit;

interface

uses
  Classes, SysUtils, Contnrs, StrNatComp;

type
  TSpeichertyp = (MD_Allgemein, MD_Kanal, MD_Achse, MD_Antrieb, MD_Setting,
                  NC_Prog, R_Parameter, Defintionen, SI_Daten);

2. Unit:

Delphi-Quellcode:

unit MDatenUnit;

interface

uses
  Classes, SysUtils, StrUtils, MainUnit, CommonUnit;

type
  TMD_Typ = (MD_Achse, MD_Antrieb);

{ Aufrufe }

In der zweiten Unit hab ich zwei Functions. Eine verwendet TMD_Typ und die andere TSpeichertyp.

Beim Aufruf der Function die TSpeichertyp verwendet erhalte ich die o. g. Fehlermeldung, wenn
TMD_Typ im Type-Block vorhanden ist.

Wie man sieht sind die Items der Typen gleich (bis auf die Anzahl).

Wieso erhalte ich die o. g. Fehlermeldung? - Das sind doch zwei komplett getrennte Typen.
Oder merkt Delphi wenn die Items gleichen Namens sind?