Одинаковые значения в enumeration

[D-mon]

Привет всем!!!
Есть 2-ва enumeration

...
type
   TEnum1 = (None, N1, N2);
   TEnum2 = (None, M1, M2);
...

Что надо сделать что бы не было:
[Error] Test.pas(39): Identifier redeclared: 'None' ???

P.S. Переименование None не подходит.

[grafgrial]

а пробовал типа такого, ну это примерчик. правда писал прямо сюда

type
 TEnum = (N1, N2, M1, M2);

var
 Enum: set of TEnum;

procedure TForm1.FormCreate(Sender: TObject);
const
 X_ENUM: array [TEnum] of string = ('N1', 'N2', 'M1', 'M2');
var
 i: LongInt;
begin
 Enum:= Enum + [N1];
 Enum:= Enum + [N2];

 For i:= 1 to High(TEnum) do // <- Incompatible types.
   If TEnum(i) in Enum then Caption:= Caption + ', ' + X_ENUM[TEnum(i)];
end;

[D-mon]

Как вариант, слить все перечисления в одно.
И все проперти в моём классе, которые наследуются от перечислений, наследовать только от этого одного сборного перечисления.

а если это на стадии разработки и все перечисления сидят в WSDL????

а вот и сами перечисления:

{ "http://tempuri.org/" }
  eTerm = (None, d15, m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11, year);

  { "http://tempuri.org/" }
  ePriveleg = (None, VOV, invalid, chernobil, pension);

  { "http://tempuri.org/" }
  eDiscount = (None, till10, till20, more20);

  { "http://tempuri.org/" }
  eZona = (None, kiyv, moreMillion, more5th, more1th, low1th, borispol, other);

  { "http://tempuri.org/" }
  eTypeAuto = (None, b1, b2, b3, b4, a1, a2, c1, c2, d1, d2, f, e, b, a, c, d);

  { "http://tempuri.org/" }
  eInsurantBlankStatus = (None, markToPrint, goodPrint, badPrint);

[JTG]

Получается путаница с неймспейсами на этапе компиляции, delphi вообще болезненно работает с перечислениями, ругаясь Identifier redeclared даже если его точно нигде больше не видно (например, strict private type).

Вот так съест, но это какой-то бег по граблям

unit NS1;

interface

type
   TEnum1 = (None, N1, N2);

implementation

end.

unit NS2;

interface

type
   TEnum2 = (None, M1, M2);

implementation

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, NS1, NS2, Typinfo;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var Enum1: TEnum1;
    Enum2: TEnum2;
begin
  ShowMessage('TEnum1 (0): ' + GetEnumName(TypeInfo(TEnum1), 0));
  ShowMessage('TEnum2 (0): ' + GetEnumName(TypeInfo(TEnum2), 0));
end;

end.

---

А не, эта грязная попытка обмануть компилятор работает в режиме read-only, т.к. None будет из последнего объявленного модуля и его не дадут присвоить переменной Enum1.