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

DSTL，闲来无事写的一个库，实现了STL下的一些容器如Vector，List，Deque等

项目主页:http://code.google.com/p/delphi-standard-template-library/

首先上一段代码
Delphi(Pascal) code

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只实现了很少的一些容器和算法，当然还有其他的一些工具类，欢迎大家下载试用！

不错,支持下