すべてのアイテムのデザインインターフェースのOnFindメソッドを実行
ブック (PRIM_BOOK) のメンバ
名前 |
タイプ |
データタイプ |
記述 |
Result |
*Result (任意) |
正数の結果を返す最初のデザインインスタンスへの参照 |
|
Key |
*Input |
バリアント |
検索する値 |
StartItem |
*Input (任意) |
検索の最初として使用されるアイテムへの参照 |
FindItem メソッドは、デザインインスタンスによって実装された Prim_Book.iBookDesignイ ンターフェイスの OnFind メソッドを呼び出します。
デザインインスタンスによって True が返された場合、 BookItem が Result として返されます。
項目が返されたり見つからない場合は、 FindItem 処理は停止します。
この例では、見つかったアイテムにはハイライト表示のスタイルが与えられます。
Mthroutine Name(Find)
Define_Map For(*Input) Class(#Prim_Alph) Name(#Key)
Define_Com Class(#prim_Book.BookItem) Name(#FoundItem) Reference(*Dynamic)
Begin_Loop
#FoundItem <= #Book.FindItem( #Key #FoundItem )
Leave If(#FoundItem *Is *Null)
#FoundItem.Style <= #MyStyles<Highlight>
End_Loop
Endroutine