Fórum listar horas em um checklistbox no delphi #610584
11/05/2020
0
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
+ 0Posts
11/05/2020
Emanuel Gonçalves
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;
Gostei + 0
11/05/2020
Emerson Nascimento
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;
Gostei + 0
12/05/2020
Emanuel Gonçalves
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
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)