blob: ba8d25a63709a7b3d80b5c8a2c4c9544151a6dba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
unit uw15591;
{$mode objfpc}
interface
type
generic GSmartArray<TSomeType> = class
private
fItems :array of TSomeType;
public
function Length() :Integer;
end;
TBooleanSmartArray = specialize GSmartArray<Boolean>;
implementation
function GSmartArray.Length() :Integer;
begin
Result := System.Length(fItems);
end;
end.
|
