delphi - TListbox和TCheckListbox的功能代码

Question

我想创建一个函数，该函数应作为调用参数来支持TListbox或TChecklistBox

 MyUISupportFunction ( ......  ; aListBox : TObject);


 if (aListBox as  TObject) is TListBox  then (aListBox as  TListbox).Items.Clear;
 if (aListBox as  TObject) is TCHeckListBox  then (aListBox as  TCheckListbox).Items.Clear;

我想知道我可以编写效率更高的UI（TListBox和TChechecklist Box）上的代码

Answer 1

两者都继承自TCustomListBox

Procedure MyUISupportFunction (aListBox : TCustomListBox);
begin
   aListBox.Items.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyUISupportFunction(Listbox1);
  MyUISupportFunction(CheckListBox1);
end;