btree1.dfm

在故障事件关联中使用的binary tree.包含一个简单的demo演示。效率还可以。

object Form1: TForm1
  Left = 208
  Top = 102
  Width = 328
  Height = 357
  Caption = 'B tree'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object searchresult: TLabel
    Left = 75
    Top = 216
    Width = 70
    Height = 33
    AutoSize = False
  end
  object Label1: TLabel
    Left = 16
    Top = 208
    Width = 31
    Height = 13
    Caption = 'find it?'
  end
  object Label2: TLabel
    Left = 16
    Top = 64
    Width = 26
    Height = 13
    Caption = 'value'
  end
  object Label3: TLabel
    Left = 16
    Top = 104
    Width = 57
    Height = 13
    Caption = 'input values'
  end
  object add: TButton
    Left = 216
    Top = 280
    Width = 75
    Height = 25
    Caption = 'add value'
    TabOrder = 0
    OnClick = addClick
  end
  object SpinEdit1: TEdit
    Left = 80
    Top = 64
    Width = 185
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 1
    Text = '0'
  end
  object Memo1: TMemo
    Left = 80
    Top = 104
    Width = 185
    Height = 89
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object list2: TButton
    Left = 128
    Top = 280
    Width = 75
    Height = 25
    Caption = 'list values'
    TabOrder = 3
    OnClick = listClick
  end
  object search: TButton
    Left = 40
    Top = 280
    Width = 75
    Height = 25
    Caption = 'search value'
    TabOrder = 4
    OnClick = searchClick
  end
end