como crear un enum en delphi

[luigi_cr]

otra pregunta puedo hacer la enumeracion de Strings????

[droguerman]

Código Delphi [-]
TEnumString = class
  private
       FKeys : TStrings;
       FValues : TStrings;
       procedure setString(index: string): string;
       function getString(index: string; value : string): string;
  public
       constructor create;
       property items[index : string]: string read getString write setString; default;
       function add(key, value : string): integer;
end;

constructor TEnumString.create;
begin
  FValues := TStringList.create;
  FKeys := TstringList.create;
end;

function TEnumString.add(key, value : string): integer;
begin
  FValues.add(value);
  result := FKeys.add(key);
end;

function TEnumString.getString(index: string): string;
begin
    result := FValues[FKeys.indexOf(index)] ;
end;

procedure TEnumString.setString(index: string; value : string): string;
begin
        FValues[FKeys.indexOf(index)] := value;
end;

[delphi.com.ar]

Empezado por luigi_cr

otra pregunta puedo hacer la enumeracion de Strings????

Los tipos enumerados solo pueden ser de datos ordinales... Que bien podrían ser el ídice de un array de strings

¿Qué es lo que quieres hacer?... ¿Para qué lo piensas utilizar?

Saludos!