Validar Datos de una tabla de memoria
 

Hola a todos. Estoy usando un clientdataset para crear una tabla de memoria a la cual le agrego datos (fechas Sacadas de un DateTimePicker) lo que necesitaria seria saber como hacer para que no la tabla de memoria no me permita colocar dos veces la misma Fecha.si alguno sabe como hacerlo lo Agradeceria.

el codigo que tengo hasta ahora es este:

Código Delphi [-]
procedure TFRM_ViajeAgregar.BT_FechaAgregarClick(Sender: TObject);
var
  FechaColocar:TDate;

begin
 FechaColocar :=DTP_1.Date;

  while not CDST_ViajeFechas.Eof do   {Mientras no llegue al final de la tabla de memoria.}
   begin
    {Comparo si la fecha a colocar es la misma que alguna de que haya hay colocadas}
   if FechaColocar = CDST_ViajeFechas.FieldByName('CDSTCAM__FECHA').Value then
     begin
       Application.MessageBox('Fecha ya seleccionada','Agregar Fecha',MB_ICONWARNING);
     end
   else
     begin
       // Agrego una fila mas para que se coloque los datos
      CDST_ViajeFechas.Append;

      // Coloco el CLIENTDATASET en Modo de edicion
      CDST_ViajeFechas.Edit;

      // Agreguo la fecha
      CDSTCAM__FECHA.AsDateTime := FechaColocar;
     end
   end;
end;

Gracias espero sus respuestas

Y si usas Locate.

Código Delphi [-]
if not CDST_ViajeFechas.Locate('CDSTCAM__FECHA',FechaColocar,[])then
begin
       // Agrego una fila mas para que se coloque los datos
      CDST_ViajeFechas.Append;

      // Coloco el CLIENTDATASET en Modo de edicion
      CDST_ViajeFechas.Edit;

      // Agreguo la fecha
      CDSTCAM__FECHA.AsDateTime := FechaColocar;
     end;

No se si sea lo que buscas.

Saludos

Gracias por la pronta respuesta. me sirvio perfectamente.

Hola nickolas. :)

Sólo agregar que la sentencia CDST_ViajeFechas.Edit está de más. Esto es porque el método Append ya pone al ClientDataSet en modo de recibir datos.

Saludos.

Es verdad. No me había percatado de esa linea al copiar el código...

Otra forma es definir un índice único en el clientdataset, entonces no te dejara grabar un duplicado al ejecutar el método post.