Как объявлять константу перечислимого сложного типа?

[stoi]

Часто нужно объявить сложный перечислимый тип.
Например

type
  TMyType = (mtFirst, mtSecond);

У каждого элемента перечисления должны быть строковые представления и числовые значения (например). Причем обращаться к ним хотелось бы через точку:

mtFirst.StrName, mtSecond.IntValue

Причем это должна быть константная информация, задаваемая при написании кода, а не во время исполнения программы.

Не могу придумать оптимальный способ - как это красиво и правильно сделать в Delph.
Отдельные константы-записи - они не объединены в перечислимый тип.
Константный массив записей - обращаться только по индексу....
Перепробовал кучу решений - все кажутся неоптимальными.

Что вы думаете?

[Аватар]

В ABC.NET вроде можно обращаться TMyType.mtFirst.
Все остальное свой язык нужно придумывать.

[stoi]

Сообщение от Аватар

В ABC.NET вроде можно обращаться TMyType.mtFirst

В Делфи тоже можно Только я ж не о том спрашивал

[stoi]

Допустим нужно объявить тип, описывающий ставки НДС (первое что в голову пришло). Должноа быть 2 фиксированные ставки, у каждой - строковое имя и числовое значение.

Просто интересно - кто как это решает. Понятно, что в Delphi нет простого способа это описать. Один мой коллега настаивает на том, что нужно объявлять коллекцию объектов, а заполнять её в разделе Initialization. Но мне это кажется всё равно "костылем". Во-первых - нелогично не задавать значение констант сразу в коде. Во-вторых - объявлено в одном месте, заполняется - в другом. Затрудняет понимание и читабельность...

[stoi]

Вот в одном из проектов я сделал так:

  TTax = class
  public
    type
      TValue = (txUndefined,  //< по старой схеме (брать из Tax1Code)
                tx20, tx18, tx10, tx20120, tx18118, tx10110, tx0, txNone);
  protected
    class function GetAsFloat(Index: TTax.TValue): Double; static;
    class function GetName(AValue: TTax.TValue): string; static;
    class function GetAsString(AValue: TTax.TValue): string; static;
  public
    class function FromFloat(AValue: Double): TValue;
  public
    class property Name[Index: TTax.TValue]: string read GetName;
    class property AsString[Index: TTax.TValue]: string read GetAsString;
    class property AsFloat[Index: TTax.TValue]: Double read GetAsFloat;
  end;

Но результат мне не нравится. Всё равно неудобно (

Можно объявить тип record. И насоздавать констант этого типа. Но они будут разрознены. Перебрать к примеру все элементы - не получится, это ведь не коллекция, не массив

[stoi]

Часто нужно объявить сложный перечислимый тип.
Например

type
  TMyType = (mtFirst, mtSecond);

У каждого элемента перечисления должны быть строковые представления и числовые значения (например). Причем обращаться к ним хотелось бы через точку:

mtFirst.StrName, mtSecond.IntValue

Причем это должна быть константная информация, задаваемая при написании кода, а не во время исполнения программы.

Не могу придумать оптимальный способ - как это красиво и правильно сделать в Delph.
Отдельные константы-записи - они не объединены в перечислимый тип.
Константный массив записей - обращаться только по индексу....
Перепробовал кучу решений - все кажутся неоптимальными.

Вот в одном из проектов я сделал так:

  TTax = class
  public
    type
      TValue = (txUndefined,  //< по старой схеме (брать из Tax1Code)
                tx20, tx18, tx10, tx20120, tx18118, tx10110, tx0, txNone);
  protected
    class function GetAsFloat(Index: TTax.TValue): Double; static;
    class function GetName(AValue: TTax.TValue): string; static;
    class function GetAsString(AValue: TTax.TValue): string; static;
  public
    class function FromFloat(AValue: Double): TValue;
  public
    class property Name[Index: TTax.TValue]: string read GetName;
    class property AsString[Index: TTax.TValue]: string read GetAsString;
    class property AsFloat[Index: TTax.TValue]: Double read GetAsFloat;
  end;

Но результат мне не нравится. Всё равно неудобно (

Можно объявить тип record. И насоздавать констант этого типа. Но они будут разрознены. Перебрать к примеру все элементы - не получится, это ведь не коллекция, не массив

[Аватар]

Перебрать к примеру все элементы - не получится, это ведь не коллекция, не

такой перебор чем не подходит?

  var xc: TValue;

  for xc:=Low(TValue) to High(TValue) do begin
    ...
  end;

[stoi]

Сообщение от Аватар

такой перебор чем не подходит?

  var xc: TValue;

  for xc:=Low(TValue) to High(TValue) do begin
    ...
  end;

Такой подходит. Но я ж говорю - результат мне не нравится

[evg_m]

type
 TMyType = (mtFirst =18, mtSecond =20);

procedure TestVal(val: integer);
begin
  case TMyType(val) of
  mtFirst: ShowMessage('first');
  mtSecond: ShowMessage('second');
  else ShowMessage('???');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  val: integer;
begin
  TestVal(0);

  val:=ord(mtFirst);
  TestVal(val);

  val:=20;
  TestVal(val);

end;

[stoi]

Сообщение от evg_m

type
 TMyType = (mtFirst =18, mtSecond =20);

procedure TestVal(val: integer);
begin
  case TMyType(val) of
  mtFirst: ShowMessage('first');
  mtSecond: ShowMessage('second');
  else ShowMessage('???');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  val: integer;
begin
  TestVal(0);

  val:=ord(mtFirst);
  TestVal(val);

  val:=20;
  TestVal(val);

end;

Да это понятно все )). Еще можно 100 вариантов подобных придумать. Но это совсем не то решение, о котором я спрашивал.
И кстати -

(mtFirst =18, mtSecond =20)

- плохая идея. Во первых, так можно закодировать только целые числа 0..255. Во-вторых будут гарантированные проблемы с таким типом, если он будет использоваться где-нить в RTTI