validar dbedit para horario

[ecfisa]

Hola.

Una forma puede ser:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  LongTimeFormat:= 'hh:mm:ss';
  DataSet1.FieldByName('HORA').EditMask:= '!90:00:00;1;_';
  ...
end;

procedure TForm1.DataSet1HORASetText(Sender: TField; const Text: String);
var
  Hora,m1,m2,
  t1,t2: TTime;
  aux: string;
begin
  aux:= Text;
  // Rango turno mañana
  m1:= StrToTime('08:00');  
  m2:= StrToTime('12:00');
  // Rango turno tarde
  t1:= StrToTime('16:00');  
  t2:= StrToTime('20:00');
  Hora:= StrToTime(aux);
  DataSet1.Edit;
  if ((ComboBox1.Text = 'MAÑANA') and
     ((Hora < m1) or ( Hora > m2))) or
     ((ComboBox1.Text = 'TARDE') and
     ((Hora < t1) or (Hora > t2))) then
  begin
    ShowMessage('Horario no permitido en el turno elegido');
    DataSet1.Cancel;
  end
  else
    (Sender as TField).AsDateTime:= Hora;
end;

Saludos.

[gonza_619]

hola, perdon por no entender bien, unas preguntas.

DataSet1.FieldByName('HORA').EditMask:= '!90:00:00;1;_';

esta parte seria table1.fieldbyname.... o se puede hacer directamente por dataset?

y esta parte:
aux:= Text; /// text de donde obtengo esta variable?

y tambien en
DataSet1.Edit;/// aca estaria modificando desde el dbedit? o directamente desde el table?
gracias perdon por tantas preguntas.

[ecfisa]

Hola Gonza.

El DBEdit es la representación visual de un campo de un DataSet, asi que es lo mismo asignar la máscara con la línea: DataSet1.FieldByName('HORA').EditMask:= '!90:00:00;1;_'; que desde el editor de máscaras del campo. Puse el código
por que se presta menos a confuciones que explicar el proceso visual.

La variable aux me quedó de una prueba, perdón.

En la línea: DataSet1.Edit; estoy poniendo el DataSet en modo edición. Te agrego el mismo ejemplo con algunos cambios
que creo te van a aclarar como se hace lo mismo pero referenciando el DataSet desde el parámetro Sender de tipo TField.

Código Delphi [-]
procedure TForm1.DataSet1HORASetText(Sender: TField; const Text: String);
var
  Hora,m1,m2,
  t1,t2: TTime;
begin
  // Rango turno mañana
  m1:= StrToTime('08:00');
  m2:= StrToTime('12:00');
  // Rango turno tarde
  t1:= StrToTime('16:00');
  t2:= StrToTime('20:00');
  Hora:= StrToTime(Text);
  (Sender as TField).DataSet.Edit;
  if ((ComboBox1.Text = 'MAÑANA') and
     ((Hora < m1) or ( Hora > m2))) or
     ((ComboBox1.Text = 'TARDE') and
     ((Hora < t1) or (Hora > t2))) then
  begin
    ShowMessage('Horario no permitido en el turno elegido');
    (Sender as TField).DataSet.Cancel;
  end
  else
    (Sender as TField).AsDateTime:= Hora;
end;

Un saludo.