Fórum procedimento em dbedit #327923

Ex. 1)
Table1Hora.ValidChars := Table1Hora.ValidChars + [´:´] - [´,´, ´.´, ´-´, ´+´];

Ex. 2)
Table1Hora.ValidChars := [´0´..´9´, ´:´];

// sempre que for movida/posicionada uma linha na tabela,
// o MaskEdit é atualizado com o valor do campo da linha atual
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: Field);
begin
  MaskEdit1.Text := Table1Hora.DisplayText;
end;

// ao sair do MaskEdit, se a tabela estiver em modo edição/inserção
// atualizamos o valor do campo com o conteúdo digitado.
// Obs.: se quizer, poderá por a tabela em edição caso não esteja
procedure TForm1.MaskEdit2Exit(Sender: TObject);
begin
  if Table1.State in [dsInsert, dsEdit] then
    Table1HoraSetText(Table1Hora, MaskEdit1.Text);
end;

// Converte a hora armazenada no inteiro para o formato string
// a ser utilizado para mostrar o valor do campo.
// Obs.: Aqui eu considerei apenas o valor inteiro como sendo
// o valor da hora inteira. Talvez não seja seu caso
procedure TForm1.Table1HoraGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  if not Sender.IsNull then
    Text := Sender.AsString +´:00´
end;

// Converte o texto digitado de forma obtermos novamente um
// inteiro a ser atribuído ao campo da tabela.
// Obs.: para facilitar utilizei a função StrToIntDef.
procedure TForm1.Table1HoraSetText(Sender: TField; const Text: String);
var
  PosPonto :integer;
begin
  PosPonto := Pos(´:´, Text);
  if PosPonto > 0 then
    Sender.Value := StrToIntDef(Copy(Text, 1, PosPonto-1), 0)
  else
    Sender.Value := StrToIntDef(Text, 0);
end;