Registrar citas.

[alfredosg19]

Hola!, tengo un cuadrante con un horario en un StringGrid de Lunes a Domingo y con las horas del día y si clico sobre una celda en concreto me crea una cita con el día y la hora a la que corresponde la celda. El problema es que si ya tengo una cita el Lunes de 7 a 8 para trabajar y clico la contigua el programa no me debería crear una cita nueva sino modificar la existente y ahora la cita sería Lunes de 7 a 9 trabajar, ¿como puedo hacer esto?. Muchas gracias.

[jachguate]

Así:

Código Delphi [-]
Procedure TForm1.GridHorarioClick(Sender : TObject);

Var
  HoraInicio : Integer;

Begin
  HoraInicio := HoraDeLaCeldaSeleccionada;
  if not ExisteCita(HoraInicio-1) Then
    CrearNuevaCita(HoraInicio)  // Crea una nueva cita en la hora de inicio
  else
    AgrandarCita(HoraInicio - 1, 1); //Agranda la cita anterior en 1 hora
end;

Hasta luego,



pd. Si por casualidad no coincidiera con el código de tu aplicación, será porque la telepatía me fallo y me conecté a otro equipo. Pido que me disculpes por anticipado por mi error.

[alfredosg19]

No te preocupes has acertado totalmente, pero si no hubiese sido así de todas formas te estaría muy agradecido. Aunque a mucha gente mis dudas les puede parecer demasiado sencillas de resolver y aunque no lo parezca le doy muchas vueltas y busco mucho en el foro antes de escribir una duda, resumiendo: Muchas gracias.