String from Status

[Fahmy Rofiq]

This is what i'm trying todo:

Code: [Select]

......
Type
  TMyStatus = (msOne, msTwo, msThree);
......
const
  MyStatus: array[0..2] of string = ('First Status', 'Second Status', 'Third Status');
......
var
  ms: TMyStatus;
......
Label1.Caption := MyStatus[ms];


Is that the correct way??
Thanks

[taazz]

I think you are after the following

Code: [Select]


type
  TMyStatus = (msFirst, msSecond, msThird, msLast);
  TMyStatusDescriptions = array[TMyStatus] of string;
const
  MyStatusDescriptions : TMyStatusDescriptions =('First', 'Second', 'Third', 'Last');

Function StatusDescription(const aStatus:TMyStatus):string;
begin
  Result := MyStatusDescriptions[aStatus];
end;


Now when you add a new item on the TMyStatus type MyStatusDescription will not compile until you add the desciption of the new item as well.

[Fahmy Rofiq]

Thanks, your code work very well.

But i have another problem, when i use like this:

Code: [Select]

const
  FIRST_STATUS = 999;
  SECOND_STATUS = 1000;
  THIRD_STATUS = $5a55aa55;
  LAST_STATUS = $5a55aa56;
type
  TMyStatus = (
      msFirst=FIRST_STATUS,
      msSecond=SECOND_STATUS,
      msThird=THIRD_STATUS,
      msLast=LAST_STATUS
      );
  TMyStatusDescriptions = array[TMyStatus] of string;
const
  MyStatusDescriptions : TMyStatusDescriptions =('First', 'Second', 'Third', 'Last');

Function StatusDescription(const aStatus:TMyStatus):string;
begin
  Result := MyStatusDescriptions[aStatus];
end;

Then i get Error: Data element too large for TMyStatusDescriptions.
How to solve this?

[User137]

Code: [Select]

MyStatusValues = array[TMyStatus] of dword = (999, 1000, $5a55aa55, $5a55aa56);

  Result := MyStatusValues[aStatus];Would this work? Having those just as values. Original status would go from 0..3 still. There are limitations and options to enums capacity, but it should automatically try to compile it with largest one.

[Leledumbo]

Extended enum won't work fine with sets, due to its internal implementation as bitsets. You could try using a true map data structure (fgl has tfpgmap, fcl-stl has gmap and ghashmap, I suggest ghashmap), though you'll need to do the mapping at runtime.