Declarar tipo que pueda tomar varios valores

[adpa]

Hola

Tengo que declarar un tipo en delphi 4 que pueda tomar uno de los siguientes valores. valla de madera,valla de métal, sin valla.
¿Como lo tengo que declarar? ¿Como implemento sus propiedades?

Muchas Gracias

[Neftali [Germán.Estévez]]

Código Delphi [-]
type
  //: Tipo para definir tipos de vallas.
   TTipoValla = (tvVallaMetal, tvVallaMadera, tvSinValla);

Cuando tengas que crear una variable o propiedad de éste tipo basta con:

Código Delphi [-]
var
  Tipov:TTipoValla;
....

// para propiedades, por ejemplo.
property TipoValla:TTipoValla read FTipoValla write FTipoValla;

[adpa]

Hola,

El problema que tengo es que lo leo de un fichero que viene de la foma
que he escrito antes valla de madera, valla de metal, sin valla.

y cuando yo lo grabo en el fichero lo tengo que grabar de esta manera tambien.

¿Como lo hago?

Estoy un poco perdida, nunca habia trabajado con delphi.


Muchas Gracias

[Neftali [Germán.Estévez]]

Basta con que añadas las funciones de conversión.

Código Delphi [-]
function TipoVallaToStr(TipoValla:TTipoValla):String;
begin
  // valla de madera, valla de metal, sin valla
  case TipoValla of
    tvVallaMetal:   Result := 'valla de metal';
    tvVallaMadera:  Result := 'valla de madera';
    tvSinValla:     Result := 'sin valla';
  end;
end;


function StrToTipoValla():TTipoValla;
begin
...Equivalente a la anterior
end;

Otra opcion y si no tienes que tratar mucho con ésto en tu programa, es que definas tres constantes para los diferentes valores y utilices esas constantes olvidandete del tipo TTipoValla, para leer y grabar.

Código Delphi [-]
  STR_VALLA_METAL = ' valla de metal';
  STR_VALLA_MADERA = ' valla de madera';
  STR_VALLA_SINVALLA = 'sin valla';

[adpa]

Muchas Gracias, voy a ponerme con ello