详测 Generics Collections TList (9): BinarySearch

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses Generics.Collections, Generics.Defaults; procedure TForm1.Button1Click(Sender: TObject); var List: TList<string>; num: Integer; b: Boolean; Comparer: IComparer unit Unit1; interface uses Windows, Messages, S