Custom Query (162 matches)

Sub Proc( a As Long, b As Long, c = 10 As Long )
    Print c  '10 が出力される
End Sub

Proc( 0, 0 )

このようなコードを実行できるようにしたい。

β16現在、#strict忘れてしまうと、型チェックが行われない仕様になっている。#strictは型チェックの警告を出すという意味を持つディレクティブだが、下記の点を考慮するとこのディレクティブの存在意義は薄いと考えられる。

• #strict忘れによる型指定ミスが発生する可能性がある
• 型チェックによる警告は「エラー」ではないので、コンパイルは最後まで行われる

よって、次回のバージョンアップで#strictはダミーディレクティブにし、デフォルトの状態で型チェックを行うよう、修正する。

Dim a = 10 As Double

という定義があったとき、従来（β16）までは下記のような処理が行われていた。

• 初期値の式は "10"
• 変数aの型指定は "As Double"

今後は、これを下記のように解釈する。

• 初期値の式は "10 As Double"
• 変数aの型指定は "10 As Double" の式の結果の型とする

どちらも同じように聞こえるかもしれないが、下記のようなケースで意味が曖昧になってしまう。

Dim a = 0.5 + 0.5 As Long
' 1. Dim a = (0.5 + 0.5) As Long   ※β16までの解釈
' 2. Dim a = 0.5 + (0.5 As Long)   ※β17からの解釈

このとき、1番目の解釈だと+演算子よりも優先順位が高いAs演算子が後に評価されるということになる。これは例外的な仕様、直感的ではない仕様というあまりよろしくないことなので、β17では2番目の解釈に変更する。

尚、下記のような初期値を一つの式として捉えることができないケースは従来どおり例外的に、As指定を特別視する。

Dim pos = [10,20] As POINTAPI