Crear Tipos de Datos Propios?

[roman]

Lo puedes hacer con los llamados tipos enumerados:

Código Delphi [-]
type
  TPosicion = (cArriba, cAbajo);

Te recomiendo que leas la ayuda de delphi, la parte de Delphi Language guide|Data types, variables and constants.

// Saludos

[*Caro*]

Hola jbautista, como te dice el amigo Román puedes definirte un tipo enumerado, en el cual colocas todos los posibles valores que puede tomar tu tipo (identificadores) y esos identificadores puedes utilizar en tu codigo como si fueran constantes.

Código Delphi [-]
//Definimos nuestro tipo
type
  TPosicion = (cArriba, cAbajo, cIzquierda, cDerecha);
..............
.............. 
//En tu procedimiento
MueveRenglon(posicion:TPosicion);
begin
 Case posicion Of
   cArriba : MueveArriba;
   cAbajo : MueveAbajo;
   cIzquierda : MueveIzquierda;
   cDerecha : MueveDerecha; 
   ........
 end;
end;

//En la llamada
MueveRenglon(cArriba);

Saluditos

[jbautista]

Gracias gracias a los dos por ayudarme, ya habia leido algo asi por ahi pero no lo entendi ya con el ejemplo todo bien.

Gracias Roman y Caro por su tiempo.

[DarkBlue]

como puedo mostrar en pantalla el tipo de dato que acabo de crear en un showmessage() por que dice que string y el nuevo dato no son compatibles , tengo que crear una operacion para convertir ese tipo de dato a string?

[Casimiro Noteví]

Hola, es que, por ejemplo, en:

Código Delphi [-]
type   TPosicion = (cArriba, cAbajo, cIzquierda, cDerecha);

cArriba=0, cAbajo=1, cIzquierda=2, cDerecha=3
No son strings.

[ecfisa]

Hola.

Como te explica claramente Casimiro en el ejemplo, no son strings que se puedan mostrar directamente, son de tipo ordinal. Cada nombre definido (cArriba, cAbajo, cIzquierda, cDerecha) tiene una órdinalidad que comienza desde cero y termina en el enésimo término.

Para mostrar el valor de un tipo ordinal debés hacer:

Código Delphi [-]
begin
  ShowMessage(IntToStr(Ord(cDerecha))); // muestra: 3
end;

Para realizar la operación inversa, es decir, dado el órden obtener el nombre, se puede usar la función GetEnumName:

Código Delphi [-]
uses TypInfo;
...
begin
  ShowMessage(GetEnumName(TypeInfo(TPosicion), 2)); // muestra: cIzquierda
end;

Un saludo.

[DarkBlue]

ohhhhhhh muchas gracias , que utiles son estas funciones. supongo que hace falta bucear un poco por las funciones y procedimientos de delphi
hasta luego y gracias