mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
24 lines
345 B
ObjectPascal
24 lines
345 B
ObjectPascal
program testarray3;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TFixedString15 = array[1..15] of char;
|
|
generic TLinkedList<T> = class
|
|
type
|
|
PNode = ^TNode;
|
|
TNode = record
|
|
key: T;
|
|
value : dword;
|
|
next : PNode;
|
|
end;
|
|
var
|
|
first: PNode;
|
|
end;
|
|
|
|
var
|
|
MyLinkedList: specialize TLinkedList<TFixedString15>;
|
|
|
|
begin
|
|
end.
|