Ну так нет в D7 этого модуля, как, в прочем, и дженериков вообще.
Варианты:
1. Перейти на свежую версию, где они есть (есть бесплатная Community Edition, там с ограничениями, но они скорее декларативные, просто зарегистрироваться надо для получения ключа, раньше еще была бесплатная Starter Edition, но что с ней сейчас просто не знаю).
2. искать модуль для имплементации контейнеров для D7.
3. Использовать контейнеры общего назначения, как то TStringList в твоем случае. Кода будет чуть побольше, но не принципиально:
Код:
var
strArray : TStringList;
procedure CreateStrArray(var cont : TStringList; items : Array Of String);
var
I : Integer;
begin
if Not Assigned(cont) Then cont := TStringList.Create;
cont.Clear;
For I := Low(items) To High(items) Do
cont.Add(items[i]);
end;
Ну и в коде, где надо инициализировать твой массив пишешь:
Код:
CreateStrArray(strArray,['Раз', 'Два', 'Три', 'Четыре', 'Пять']);