[学习官方例子]Generics Collections TList

程序代码：

program TListTest;

{$APPTYPE CONSOLE}

uses
  Generics.Collections, SysUtils, Windows, Forms;

var
  List: TList<Integer>;
  FoundIndex: Integer;
begin
  List := TList<Integer>.Create();
  List.AddRange([5, 1, 8, 2, 9, 14, 4, 5, 1]);

  writeln('Index of first 1 is ' + IntToStr(List.IndexOf(1)));
  writeln('Index of last 1 is ' + IntToStr(List.LastIndexOf(1)));
  writeln('List contains element 100? ' + BoolToStr(List.Contains(100)));

  List.Add(100);
  writeln('There are ' + IntToStr(List.Count) + ' elements in the list.');

  List.Remove(1);
  List.Delete(0);  

  List.DeleteRange(0,2);

  List.Extract(1);
  List.TrimExcess();
  writeln('There capacity of the list is '+ IntToStr(List.Capacity));
  List.Clear();

  List.Insert(0, 2);  
  List.Insert(1,1);
  List.InsertRange(0, [6,3,8,10,11]);
  List.Sort();

  if List.BinarySearch(6, foundIndex) then
    writeln('Found element 6 at index ' + IntToStr(FoundIndex));

  List.Reverse;
  writeln('The element on position 0 is '+IntToStr(List.Items[0]));

  readln;
end.

 

运行结果：

但是还不是很清楚，下次在探索一下。

转载于:https://www.cnblogs.com/wouldguan/archive/2011/10/13/2209567.html