Ver Mensaje Individual
  #1  
Antiguo 27-08-2007
Shikanda Shikanda is offline
Miembro
 
Registrado: ago 2007
Posts: 36
Reputación: 0
Shikanda Va por buen camino
Asignar valor nulo a un entero

Hola a todos
Soy nuevo en el foro y nuevo con el delphi (de hecho soy incluso nuevo como programador) por lo que todavia hay cosas que no tengo muy claras.

Os explico. Es tan sencillo como un gestor de citas. Cada dia se van a programar unas citas para unas horas y estoy haciendo la funcion para que se puedan eliminar citas. Os muestro el código:
Código Delphi [-]
 
procedure TFCreaCitas.btnEliminarClick(Sender: TObject);
var respuesta: word;
begin
  respuesta:= MessageDlg('Eliminar cita?', mtconfirmation, [mbYes, mbNo], 0);
        If respuesta=mrYes then begin
                showmessage('Cita eliminada');
 
        DMCitasCalendario.QIntervalo.Edit;
        DMCitasCalendario.QIntervaloDESCRIPCION.AsString := '';
        DMCitasCalendario.QIntervaloUSUARIO.AsInteger := null ;
        DMCitasCalendario.QIntervaloNOM_USUARIO.AsString := '';
        DMCitasCalendario.QIntervaloLOGIN.AsString := '';
El campo QIntervaloUSUARIO es de tipo entero y recoge el numero del usuario de tenia concertada la cita. Intento ponerlo a null pero me da un error de tipo: "could not convert variant of type (null) into type (integer)". Por tanto, supongo que a los enteros no se les puede asignar el valor null (no, al menos, "a pelo"). Si le asigno un valor numérico (por ejemplo, cero) lo coge perfectamente. He intentado poner QIntervaloUSUARIO.AsString := '' pero, aunque no da fallo, no cambia nada. Sé que es una chorrada de problema, pero le doy vueltas y no sé como hacerlo.

Gracias a los que os molesteis en respondedme y un saludo

Última edición por marcoszorrilla fecha: 27-08-2007 a las 12:54:59. Razón: Etiquetas Delphi
Responder Con Cita