Tratamiento de constantes

[bitbow]

Si tienes
EstadoTipo = (NO_LEIDA, ACEPTADA, RECHAZADA, EXPIRADA);
Al final solo tienes de que tipo es el estado actuamente, solo necesitas compar el Estadotipo.

con algun case o varios if y devolver la cadena que desees.

Estadotipo no va a contener un valor si no el tipo.

Saludos.

[apicito]

Gracias bitbow.
No había trabajado nunca con este tipo de datos y me estaba volviendo loco.
Ahora lo entiendo:

         case result.Metadatos[i].Estado of
             EstadoTipo.NO_LEIDA: Estado := 'NO_LEIDA';
             EstadoTipo.ACEPTADA: Estado := 'ACEPTADA';
             EstadoTipo.RECHAZADA: Estado := 'RECHAZADA';
             EstadoTipo.EXPIRADA: Estado := 'EXPIRADA';
         end;

Un saludo.

[[AgustinOrtu]]

Podes usar este truco: Ayudante para tipos enumerados

Código PHP:

var
  s: string;
begin
  s := Enum<EstadoTipo>.ValueName(result.Metadatos[i].Estado);
end; 


[ecfisa]

Hola.

Para versiones mas antiguas de Delphi, otra opcion es:

Código Delphi [-]
uses TypInfo;
...
function StateName( const Estado: EstadoTipo ): string;
begin
  Result := GetEnumName( TypeInfo( EstadoTipo ), Ord( Estado ) );
end;

Uso:

Código Delphi [-]
...
  Estado := StateName( result.Metadatos[i].Estado );

  // o de forma directa: 
  Estado := GetEnumName( TypeInfo( EstadoTipo ), Ord( result.Metadatos[i].Estado ) );

Saludos

[apicito]

Gracias [AgustinOrtu] y ecfisa.
Al final é optado por la solución de ecfisa:

uses TypInfo;
...
memo.Lines.Add('Estado '+GetEnumName( TypeInfo( EstadoTipo ), Ord( result.Metadatos[i].Estado )));

[apicito]

Abusando de vuestra paciencia, aprovecho que ya está en el post #6 de este hilo la definición del TRemotable y el xml que se me devuelve para hacer otra pregunta.
Si el xml me devuelve el valor del TicketID en esta etiqueta:

	<tns:Metadatos tns:ticketID="148620">
		<tns:MensajeID>1485796663920-1-0</tns:MensajeID>

y está definido en el TRemotable como:

  MetadatosTipo = class(TRemotable)
  private
    FticketID: ticketID;
  ....
  published
    property ticketID:                ticketID                  Index (IS_ATTR) read FticketID write FticketID;

Como puedio obtener el valor del TicketID?.
Por que a pesar de que el IDE me lo sugiere como uno de los miembros de result.Metadatos[i], si hago:

memo.Lines.Add('ticketID '+result.Metadatos[i].ticketID);

me apareceen blanco.
Tengo que hacer algo distinto al estar declarado com IS_ATTR?.
Un saludo.