Ver Mensaje Individual
  #3  
Antiguo 19-02-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
La forma de manejar esto es usar funciones de conversion

Código Delphi [-]
function MesAInt(const TextMes: strnig): Integer;
function IntAMes(const IntMes: Integer): string;

Dependiendo de la version de Delphi, la mejor forma de hacerlo es combinando un tipo enumerado con su correspondiente helper

Te permite implementar algo como esto:

Código Delphi [-]
var
  AMonth: TMonth;
  I: Integer;
  Text: string;
begin
  AMonth := TMonth.Enero;
  ShowMessage(AMonth.ToStr); // imprime Enero en pantalla
  AMonth := AMonth.Next; // AMonth = TMonth.Febrero;

  I := AMonth.ToInt; // I = 2

  Text := 'Julio';
  AMonth := TMonth.Parse(Text); // AMonth = TMonth.Julio  

  Text := TMonth.ParseInt(12).ToStr; // TMonth.ParseInt(12) = TMonth.Diciembre -> ToStr = 'Diciembre'
end;
Responder Con Cita