Asignacion de Valor

[ecfisa]

Ahora mi duda es, esos valores ( _1, _2, _3, _4, ..., _19, _20, _21) a que se refieren, especificamente el signo '_' antes de cada valor que yo supuse era un entero?

Hola ruedabeat2003.

Los tipos enumerativos son conjuntos de valores ordinales constantes, no predefinidos y se representan por identificadores. Al decir no predefinidos me refiero a que son creados por el usuario:

Código Delphi [-]
type
  TMeses = (enero,febrero,marzo,abril,mayo,junio,julio,agosto,septiembre,octubre,noviembre,diciembre);
  TAutosDeportivos = (Lamborghini,Ferrari,Porsche,Bugatti);
  ...

La calificación de ordinales, es por que poseen un órden (redundantemente hablando), que va del 0 al último elemento:

Código Delphi [-]
  ShowMessage(IntToStr(Ord(_22))); // mostrará 2 (en tu ejemplo)

Repitiendo lo dicho más arriba por Al si declaras

Código Delphi [-]
type
   TipoIdentificador = (_0, _110, _22);

el_identificador es de tipo TipoIdentificador, no es de ningún tipo predefinido en Delphi. También podría haber sido declarada como: (a0, a110, a22),(a_0, a_110, a_22),(a,b,c), etc. Siempre respetando la sintáxis exigida por Delphi para los identificadores. (no són válidos por ejemplo: *a, #3, -5,...).

A una variable de tipo TipoIdentificador declarada como en tu primer mensaje, solo se le podran asignar los valores: _0, _110 y _22.


Un saludo.

[ruedabeat2003]

Bien, bien, ya me queda claro, pudieron haber declarado TAnimal=(gato, perro, cerdo,tigre) y a una variable de tipo Tanimal solo le podria signar los valores: gato, perro, cerdo o tigre. OK

Gracias por la ayuda.

[[Al González]]

Empezado por ruedabeat2003

Bien, bien, ya me queda claro, pudieron haber declarado TAnimal=(gato, perro, cerdo,tigre) y a una variable de tipo Tanimal solo le podria signar los valores: gato, perro, cerdo o tigre. OK

Así es, y aunque signifiquen lo mismo que cerdo, no podrías asignarle cochino, marrano, puerco o guarro , a no ser que declares a estos como identificadores cuyo tipo sea TAnimal. Una manera de hacerlo sería incluirlos como "sinónimos" de cerdo dentro del tipo enumerado:

Código Delphi [-]
Type
  TAnimal = (gato, perro, cerdo, cochino = cerdo, marrano = cerdo,
    puerco = cerdo, guarro = cerdo, tigre);

procedure TForm1.Button1Click(Sender: TObject);
Var
  A :TAnimal;
begin
  A := gato;
  ShowMessage (IntToStr (Byte (A)));  // 0
  A := tigre;
  ShowMessage (IntToStr (Byte (A)));  // 3
  A := cerdo;

  If (A = cochino) And (A = marrano) And (A = puerco) And (A = guarro) Then
    ShowMessage (IntToStr (Byte (A)));  // 2
end;

Un cochino abrazo.

Al González.

[ruedabeat2003]

La verdad es que me estaba peleando con la definicion de Clases, tipos y conjuntos, ahora me ha quedado claro, y sobre lo que preguntaba era sobre un tipo definido de acuerdo a una tipo enumerado, mientras que yo seguia metido con las clases, ya me ha quedado claro y hoy he avanzado mucho en mi desarrollo.

Gracias por la ayuda. Saludos.