Exibir Horários no DBGrid em ordem?
Fiz uma agenda onde defini no Banco a hora inicial:
08:00 e a final 13:00 o intervalo de 00:30 minutos, ou seja:
Edit1.Text = Hora Inicial
Edit2.Text = Hora Final
Edit3.Text = Intervalo
Fz da seguinte forma:
var
i, j, x : TDateTime;
begin
i := StrToDateTime(Edit1.Text);
j := StrToDateTime(Edit2.Text);
x := StrToDateTime(Edit3.Text);
// Condição
while (i <= j ) do
begin
ListBox1.Items.Add(FormatDateTime('hh:mm', i));
i := i+x;
end;
end;
O Laço cria pra mim automaticamente os horários como abaixo:
08:00, 08:30, 09:00, 09:30, 10:00, 10:30, 11:00, 11:30, 12:00, 12:30
Detalhe esses horarios não estão salvos no banco apenas o horario inicial, o final e o intervalo para que o While gere. Esses horários é apenas para consulta mesmo de acordo com o horario inicial, final e intervalo que defini acima.
Como posso exibir esses horários no DBGrid da mesma forma que eu fiz pelo laço de repetição e exibi acima para que possa cadastrar algo pelo ODblClick???
DBGrid
Campo Horario:
Horario -- Nome
08:00 -- Fulano
08:30 -- Ciclano
09:00 -- Beltrano
09:30
10:00
10:30
11:00
11:30
12:00
12:30
Discussão (1)
Carregando comentários...