![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
supongo que una vez que tienes hora de inicio y hora de fin e intervalo es fácil hazte dos while encadenados; uno que vaya de hora inicio a hora fin aumentando de uno en uno, y en el otro que vaya aumentando hasta sesenta con el intervalo definido, y vas metiendo los valores en el combobox.
Saludos, Tony |
|
#2
|
|||
|
|||
|
Al final ya he conseguido lo que me proponia de la siguiente forma:
Código:
procedure TForm2.dbComboBox1Enter(Sender: TObject);
var
horaini,horafin,hora:TTime;
intervalo:double;
horastr,horamax:string;
begin
intervalo:=1/1440*StrToInt(Edit2.Text);
horaini:=StrToTime(Edit3.Text);
horafin:=StrToTime(Edit4.Text)-intervalo;
DBCombobox1.Items.Clear;
While Horaini<HoraFin do
begin
horastr:=TimeToStr(horaini); //guardamos la hora en la variable
horastr:=Copy(horastr,1,Length(Horastr)-3); //le quitamos los ultimos digitos (:00)
DBComboBox1.Items.Add(horastr); //añadimos al combobox la hora
horaini:=horaini+intervalo;
end;
end;
|
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|