/packages/fcl-stl/doc/stackexample.pp

https://github.com/slibre/freepascal · Puppet · 17 lines · 13 code · 4 blank · 0 comment · 2 complexity · 9e0beb219744991fa7c142fe8973addf MD5 · raw file 

    

  1. uses gstack;
    2. 

  2. 

  3. type stacklli = specialize TStack<longint>;
    4. 

  4. 

  5. var data:stacklli; i:longint;
    6. 

  6. 

  7. begin
    8. 

  8.   data:=stacklli.Create;
    9. 

  9.   for i:=1 to 10 do
    10. 

  10.     data.Push(10*i);
    11. 

  11.   while not data.IsEmpty do begin
    12. 

  12.     writeln(data.Top);
    13. 

  13.     data.Pop;
    14. 

  14.   end;
    15. 

  15. 

  16.   data.Destroy;
    17. 

  17. end.
    18.