| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
faccruz
Colaborador
Registrado: Terça-Feira, 20 de Julho de 2010
Mensagens: 1563
|
 Enviada: Sex Nov 30, 2012 9:46 am Assunto: Meses por Extenso (Resolvido) |
 |
|
No meu sistema, possuo 2 combos com os meses, preciso trazer o intervalo de meses, por extenso, entre os meses selecionados
Ex. Inicio = Março
Fim = Setembro
Trazer os meses entre esses 2 escolhidos
Março, Abril, Maio, Junho, Julho, Agosto, Setembro.
_________________
Facc System - Sistemas para Computador
Editado pela última vez por faccruz em Sex Nov 30, 2012 10:44 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Sex Nov 30, 2012 10:02 am Assunto: |
|
|
Bom dia,
Experimente desta forma:
| Código: | var
i: integer;
begin
for i := cmbMesIni.ItemIndex to cmbMesFim.ItemIndex do
ShowMessage(cmbMesIni.Items[i]); |
Espero que ajude.
Editado pela última vez por imex em Qua Out 04, 2023 3:10 pm, num total de 2 vezes |
|
| Voltar ao Topo |
|
|
CesarRocha
Mestre
Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP
|
| Enviada: Sex Nov 30, 2012 10:10 am Assunto: |
|
|
Costumo utilizar dessa forma:
| Código: | procedure GetMonthsBetween(StartMonth, EndMonth: Integer; List: TStrings);
var
I: Integer;
begin
List.Clear;
for I := StartMonth to EndMonth do
List.Add(FormatSettings.LongMonthNames[I]);
end; |
Bye. |
|
| Voltar ao Topo |
|
|
faccruz
Colaborador
Registrado: Terça-Feira, 20 de Julho de 2010
Mensagens: 1563
|
| Enviada: Sex Nov 30, 2012 10:44 am Assunto: |
|
|
Obrigado.
As 2 formas funcionaram.
_________________
Facc System - Sistemas para Computador |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
