11 respuestas en este tema

[yapt]

Hola a todos,

una pregunta que creo que será un poco rara.  A ver que pensais vosotros.

Tengo una enumeración:

delphi

type
  TSiNo = (esNo=0, esSi=1);

Pero me gustaría poder pasarle null a esta enumeración:

delphi

procedure Tform1.Button1Click(Sender: TObject);
var
p : TSiNo;
  function QueEs(Value: TSiNo):string;
  begin
     if '......Value es NULO.....' then exit('NULO');  // COMO PREGUNTAR ESTO ??  
     // Assigned(Value) tampoco funciona....
     if Value = esSi then exit('ES SI');
     if Value = esNo then exit('ES NO');
  end;
begin
  ShowMessage(QueEs(p));
  p := esSi;
  ShowMessage(QueEs(p));
  p := esNo;
  ShowMessage(QueEs(p));
  p := null;  // Esto NO FUNCIONA.
  ShowMessage(QueEs(p));
end;

El problema está en como poner a nulo una enumeración... (si es que esto se puede)...  O que alternativa tengo dentro de una enumeración ??

Saludos y gracias por vuestras aportaciones.

[escafandra]

En principio no se pueden tener mas valores que los enumerados. Puedes añadirle el valor nulo... Pero usando un truco puede que puedas acercarte a lo que quieres.

Define un puntero al tipo enumerado. Dale el valor nil si no está especificado un valor... Dale el valor del puntero de la variable enumerada cuando esté especificado, en ese momento el puntero no es nil y el valor de la enumeración tiene sentido.

Saludos.

[yapt]

Gracias Escafandra.... creo que se acerca bastante, bastante a lo que quiero.

Voy a ello..

SaludOS.

[escafandra]

¿Que tal algo así...?

delphi

type
   TSiNo = (esNo=0, esSi=1);
   PSiNo = ^TSiNo;

delphi

var
  p : TSiNo;
  pp: PSiNo;
begin
  pp:= nil;
//  ......
  pp:= @p;
  if pp <> nil then
  begin
  end;
end;

Saludos.

[yapt]

Efectivamente, así es.

Muchas gracias Escafandra...

Saludos.

[enecumene]

Efectivamente, así es.

Muchas gracias Escafandra...

Saludos.

Vale qué bien, si está resuelto debes poner el tema como [RESUELTO], si no sabes me dices.

Saludos.

[yapt]

Está puesto como RESUELTO.  No sé porque a tí no te sale....

Al menos lo he puesto en mi respuesta...

[yapt]

Ahora creo que ya.... :-)

Saludos...

[enecumene]

Ahora sí, el caso es que debe ser en el primer post .

[Marc]

Está claro que lo que habéis propuesto funciona, ¿ pero no os parece que es complicáis un poco ?, nunca me ha gustado trabajar con punteros (demasiados malos recuerdos de las prácticas con C en la Universidad).

A mi me parece mucho más sencillo :

type
  TSiNo = (esNo=0, esSi=1, esNulo=-1);

Aunque para mi gusto personal, quizás preferiría :

type
  TSiNo = (esNulo=0, esSi=1, esNo=2);

¿ Porqué ?, por que si lo guardo en un campo, entonces al leer un valor nulo con AsInteger voy a recibir siempre un 0 (tanto si tiene almacenado un 0 como un nulo).

Saludos.

[escafandra]

Está claro que lo que habéis propuesto funciona, ¿ pero no os parece que es complicáis un poco ?...
....
A mi me parece mucho más sencillo :

type
  TSiNo = (esNo=0, esSi=1, esNulo=-1);

Si, tienes razón y lo normal es hacerlo como propones:

En principio no se pueden tener mas valores que los enumerados. Puedes añadirle el valor nulo...

Pero a veces las circunstancias mandan...

...nunca me ha gustado trabajar con punteros (demasiados malos recuerdos de las prácticas con C en la Universidad)...

Pues a mi me parece que con muy potentes (bien es verdad que mi lengua nativa es el C/C++ ). La misma librería VCL está focalizada en punteros, aunque en delphi quedan camuflados o mas bien abstraídos. En definitiva, los punteros nos permiten solucionar problemas aparentemente difíciles o no posibles.

Saludos.

[yapt]

Bueno, el asunto es que es un protocolo (Serie RS232) y tengo que adaptarme al formato que le dió quien lo diseñó.

Según este formato, debo enviar:

#KEY/value#KEY/value#KEY/value#

KEY = string
value = 0, 1 (representando 0 como NO y 1 como SI).
Si el valor es NULO, NO debo enviar (ni KEY, ni value).

Es decir:
Si queremos enviar:
ROJO = SI
VERDE = NO
AMARILLO = NULO

Enviaremos:

#ROJO/1#VERDE/0#

  (AMARILLO simplemente NO existirá).

El asunto está en que el valor está en un TField de Tabla de base de datos.  Con lo que vendrá como NULO (en el caso de null), pero debo cargarlo a una clase donde están las propiedades concretas.  Y me gustaría no dar el paso intermedio de comprobar si viene a null para asignar -1 a la propiedad de la clase y, de vuelta, comprobar si el valor de la propidad de la clase es -1 (esNull) para asignar un null real al campo.

Y he aquí el problema:  Las enumeraciones no admiten NULOS.      Sé que tiene una pinta de boolean (que lo está pidiendo a gritos), pero hay otros valores con más de 3 estados. 

Espero que ahora se entienda mejor cual es el asunto (y el problema).

Finalmente estoy implementando una clase TSiNo, con una propiedad FValor: Variant (así puedo asignar nulos directos) y el método SetFValor y GetFValor (write y read) son los que se encargan de devolver los valores correctos.