[Katerina1993]

Мне в коде нужно использовать коллекции.
Пример:

Код:

1	strArray: TArray<string> = ['Раз', 'Два', 'Три', 'Четыре', 'Пять'];

Выдает ошибку, подключить в uses -> System.Generics.Collections, не получается. Может кто-нибудь сюда pas файл скинуть Collections, чтобы я могла подключить его?
P.S.
У меня delphi 7.

[lmikle]

Ну так нет в D7 этого модуля, как, в прочем, и дженериков вообще.
Варианты:
1. Перейти на свежую версию, где они есть (есть бесплатная Community Edition, там с ограничениями, но они скорее декларативные, просто зарегистрироваться надо для получения ключа, раньше еще была бесплатная Starter Edition, но что с ней сейчас просто не знаю).
2. искать модуль для имплементации контейнеров для D7.
3. Использовать контейнеры общего назначения, как то TStringList в твоем случае. Кода будет чуть побольше, но не принципиально:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

Ну и в коде, где надо инициализировать твой массив пишешь:

Код:

1	CreateStrArray(strArray,['Раз', 'Два', 'Три', 'Четыре', 'Пять']);

[Katerina1993]

Мне нужно присвоить эту процедуру к переменной. Какой тип переменной объявить в var?

Код:

1	CurrentString := CreateStrArray(strArray,['Раз', 'Два', 'Три', 'Четыре', 'Пять']);

Например
var CurrentString: -> ?

[lmikle]

Это ПРОЦЕДУРА. Она не возвращает значение. Соответственно, так писать нельзя. Для возвращаемого значения у нее есть первый параметр.

Если очень хочется иметь в виде функции, то тогда так:

Код:

1 2 3 4 5 6 7 8

function CreateStrArray(items : Array Of String) : TStringList; var   I : Integer; begin   Result := TStringList.Create;   For I := Low(items) To High(items) Do     Result.Add(items[i]); end;

И тогда вызов:

Код:

1 2 3 4

var   CurrentString : TStringList; ...   CurrentString := CreateStrArray(['Раз', 'Два', 'Три', 'Четыре', 'Пять']);

[Katerina1993]

У меня тут пример есть, который тоже не работает выдает ошибку. Как нибудь массивы можно сделать по delphi 7, так как здесь тоже есть TArray<TypeString>?

Код:

1 2 3 4 5 6 7

var   Str: PWideChar; begin   Str := '"T My \" " x'; // 11      ShowMessage(Test(Str[0], Length(Str), 0).ToString); end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

function Test(var Buffer; BufferLen, Offset: Cardinal): Integer; type   TypeString = char; var   CurrentByte: TypeString;   CurrentLen: Cardinal;   SkipDoubleQuotes: Boolean; begin   SkipDoubleQuotes := false;      CurrentLen := Offset;   while CurrentLen <= BufferLen do   begin     CurrentByte := TArray<TypeString>(@Buffer)[CurrentLen];     inc(CurrentLen);        if SkipDoubleQuotes then     begin       case CurrentByte of         '"', '''':           begin             if TArray<TypeString>(@Buffer)[CurrentLen - 2] = '\' then               Continue;                SkipDoubleQuotes := false;           end;       end;     end     else       case CurrentByte of         #9, #10, #13, #32:           exit(CurrentLen);         '"', '''':           SkipDoubleQuotes := true;       end;   end;      exit(-1); end;