Fórum Array contendo somente os dia do mês #196737

dias array[1..31] of word

Obrigado por tentar me ajuda Leucimar ...
mas o problema não é em declarar o array e sim em como atribuir cada dia a um valor do array e apresentar os valores em labels ...

Bom.. .existe uma função no delphi
function DaysInAMonth(const AYear, AMonth: Word): Word;
Essa função devolve a quantidade de dias de um mês.
Então você pode fazer o seguinte
Declarar uma variável array
Dias: array[1..31] of TLabel;
e quando mudar de mês e ano, você apaga tudo e faz novo da seguinte forma:

for cont := 1 to 31 do
begin
Dias[cont].Caption := ´´;
end;
for cont := 1 to DaysInAMonth(Ano,Mes) do
begin
Dias[cont] := IntToStr(cont);
end;

dessa forma, você está colocando em cada label o seu respectivo dia.
Mas não esqueça de no Create da Form criar os label nas posições que você quer, e destruir os label quando você destruir a form.
abraços