pascalabcnet/InstallerSamples/!MainFeatures/07_NetLibs/LinkedList.pas

19 lines
457 B
ObjectPascal
Raw Permalink Normal View History

// Использование LinkedList - двусвязного списка стандартной библиотеки - и его итератора
2015-05-14 22:35:07 +03:00
begin
var L: LinkedList<integer> := new LinkedList<integer>;
2015-05-14 22:35:07 +03:00
L.AddLast(3);
L.AddLast(5);
L.AddLast(7);
L.AddFirst(2);
Println(L);
2015-05-14 22:35:07 +03:00
var a := new integer[10];
L.CopyTo(a,0);
Println(a);
2015-05-14 22:35:07 +03:00
var lit: LinkedListNode<integer> := L.Find(5);
L.AddBefore(lit,777);
Println(L);
2015-05-14 22:35:07 +03:00
end.