delphi 生成当月月份列表

方法1：

方法2：

procedure TForm1.FormCreate(Sender: TObject);

var

  Year, Month, Day: Word;

  I :Integer;

begin

  Memo1.Clear;

  Memo1.Lines.Add('本月');

  DecodeDate(Now(),Year,Month,Day);

  for I:=Month-1 downto 1 do

  begin

    Memo1.Lines.Add(Format('%d-%.2d',[Year,I]));

  end;

end;