lazarus泛型的使用

泛型类型数组
type
generic TArray<T> = array of T;
调用
var
IntArray: specialize TArray<Integer>;
StrArray: specialize TArray<string>;
begin
SetLength(IntArray, 3);
IntArray[0] := 1;

SetLength(StrArray, 2);
StrArray[0] := 'Hello';
end.