listar horas em um checklistbox no delphi
11/05/2020
0
Boa tarde , gostaria de listar as horas em um checklistbox (pode ser outro) no delphi
a ideia é que fique assim
06:00:00 - 06:59:59
07:00:00 - 07:59:59
08:00:00 - 08:59:59
....
20:00:00 - 20:59:59
e eu possa selecionar um ou mais de um intervalos
a ideia é que fique assim
06:00:00 - 06:59:59
07:00:00 - 07:59:59
08:00:00 - 08:59:59
....
20:00:00 - 20:59:59
e eu possa selecionar um ou mais de um intervalos
Emanuel Gonçalves
Curtir tópico
+ 0
Responder
Posts
11/05/2020
Emanuel Gonçalves
resolvido
for I := 6 to 21 do
begin
x := inttostr(i);
if Length(x) = 1 then
CLHoras.Items.Add(''0''+inttostr(i)+'':00:00 - ''+''0''+inttostr(i)+'':59:59'')
else
CLHoras.Items.Add(inttostr(i)+'':00:00 - ''+inttostr(i)+'':59:59'')
end;
for I := 6 to 21 do
begin
x := inttostr(i);
if Length(x) = 1 then
CLHoras.Items.Add(''0''+inttostr(i)+'':00:00 - ''+''0''+inttostr(i)+'':59:59'')
else
CLHoras.Items.Add(inttostr(i)+'':00:00 - ''+inttostr(i)+'':59:59'')
end;
Responder
11/05/2020
Emerson Nascimento
tente assim:
var
i: integer;
x: string;
begin
CLHoras.Clear;
for i := 6 to 21 do
begin
x := FormatFloat('00',i);
CLHoras.Items.Add(x+':00:00 - '+ x+':59:59');
end;
end;
Responder
12/05/2020
Emanuel Gonçalves
tente assim:
var
i: integer;
x: string;
begin
CLHoras.Clear;
for i := 6 to 21 do
begin
x := FormatFloat('00',i);
CLHoras.Items.Add(x+':00:00 - '+ x+':59:59');
end;
end;
obrigado pela dica, seu código ficou mais limpo
Responder
Clique aqui para fazer login e interagir na Comunidade :)
