5 replies to this topic

[Rantor777]

[TRUCO DELPHI] Convertir de tipo enumerado a Cadena y
Entero.

 

Hay que adicionar la unidad System.TypInfo

delphi

type TEnumConverter = class
public
  class function EnumToInt<T>(const EnumValue: T): Integer;
  class function EnumToString<T>(EnumValue: T): string;
end;
 
class function TEnumConverter.EnumToInt<T>(const EnumValue: T): Integer;
begin
  Result := 0;
  Move(EnumValue, Result, sizeOf(EnumValue));
end;
 
class function TEnumConverter.EnumToString<T>(EnumValue: T): string;
begin
  Result := GetEnumName(TypeInfo(T), EnumToInt(EnumValue));
end;

Saludos!

 

@Sir.dev.a.lot me debes 10

[enecumene]

Interesante, me hubiese servido hace algún tiempo.

 

Saludos.

[sir.dev.a.lot]

@Rantor777

 

10 Pagados!

 

Saludos!

[escafandra]

Interesante, me hubiese servido hace algún tiempo.

 

Quizás de este tema: Pasaje de números a letras, podrías haber sacado ideas o un código que te hubiese dado solución y que sirviera para versiones delphi antiguas.

 

Saludos.

[sir.dev.a.lot]

Si alguien pudiese mostrarme un 

 

CASE OF... pero usando valores de tipos Enumerado se lo Agradecería, en el alma.   y tambien podrian especificarme la version de Delphi... yo normalmente trabajo en Delphi 7 + WinXP en una VM.

 

Editado:

php

type
TTipoNotificacao = (EMAIL, SMS, WHATSAPP, FACEBOOK);
 
var
tipo: TTipoNotificacao;
 
 case tipo of
    EMAIL: exit(TEmail.Create());
    SMS: exit(TSMS.Create());
    WHATSAPP: exit(TWhatsApp.Create());
    FACEBOOK: exit(TFaceBook.Create());
    SECREATARIA: exit(TSecretaria.Create());
end;
 
//Esto era lo que queria... Solucionado!

Saludos!

[escafandra]

Si alguien pudiese mostrarme un 

 

CASE OF... pero usando valores de tipos Enumerado se lo Agradecería, en el alma.   y tambien podrian especificarme la version de Delphi... yo normalmente trabajo en Delphi 7 + WinXP en una VM.

 

Saludos!

 

Creo que la pregunta está fuera de tema. Deberías abrir un tema a parte para tu cuestión y explicarte mejor.

 

Saludos.