Custom Query (162 matches)

例えば次のような宣言で無数の「定数式にリテラル値、または定数以外のものが含まれています。」となります。

Delegate Function MessageFilter(ByRef m As MSG) As Boolean
Delegate Sub D1(ByRef x As Long)

次のコードがエラーになるのは意図された挙動でしょうか？もしそうでないなら、改修をお願いします。

Interface I
End Interface

Sub f(i As I)
	Dim o = i As Object
End Sub

CompareをCompareOrdinalの呼び出しで済ませたり、引数のチェックを怠っているなどあまりほめられた実装になっていないのを整理する。特に、次の変更を行う。

1. CompareはCompareString API関数の単語順で実装する。
2. Compareに大文字小文字の区別をしない指定のできる多重定義を追加する。
3. 比較演算子はCompareOrdinalで実装する。

本来はCompareOrdinalにも大文字小文字の区別をしない指定ができるはずだが、本チケットでは見送る。