自己写的一个Delphi下实现STL的库DSTL

Question

DSTL，闲来无事写的一个库，实现了STL下的一些容器如Vector，List，Deque等项目主页:http://code.google.com/p/delphi-standard-template-library/首先上一段代码program a;{$APPTYPE CONSOLE}uses
  SysUtils,
  DSTL.STL.Iterator,
  DSTL.Algorithm.Algorithm,
  DSTL.STL.List,
  DSTL.Exception;var
  l: TList<integer>;
  ia: TIterAlgorithms<Integer>;
  i: integer;procedure print(int: integer);
begin
  write(int, ' ');
end;begin
  writeln('Sort test');
  l := TList<integer>.create;
  randomize;
  for i := 1 to 100 do l._push_back(random(30000));
  writeln('Before sorting:');
  ia.for_each(l.start, l.finish, @print);
  l.sort;
  writeln;
  writeln('After sorting:');
  ia.for_each(l.start, l.finish, @print);
  writeln;
end.上面这段代码创建了一个list并插入元素和排序，最后用foreach输出，方便吧？目前DSTL只实现了很少的一些容器和算法，当然还有其他的一些工具类，欢迎大家下载试用！