XojoでFinderと同じ文字列照合

956 ワード
MacOSX unicode Xojo MacOSX テキストリンク

XojoでFinderと同じ文字列照合をするメソッドです。


Function FinderCompare(str1 as String, str2 as String) As Integer

  Declare function localizedStandardCompare lib "Cocoa" selector "localizedStandardCompare:" (s1 as CFStringRef, s2 as CFStringRef) as Integer

  Return localizedStandardCompare(str1, str2)

End Function

戻り値は、-1、0、1の3つ。
* str1 < str2 … -1
* str1 = str2 … 0
* str1 > str2 … 1

これを利用して、ListBoxのCompareRowsイベントに以下のように書いておくと、Finderと同等のソートをするようになりますよ。

  result = FinderCompare( me.Cell(row1,column), me.cell(row2,column) )

  Return True