[RomanRens]

Доброго времени суток! Есть база данных, в которой каждому объекту присваивается категория, но число категорий ограничено массивом.Задача: необходимо сделать чтобы количество этих категорий было динамическим и их конец ничем не определялся (например, количество вводится с консоли). Эскпериментировал с SetLenght, но что-то пошло не так..

[Страдалецъ]

В каком месте вы экспериментировали? Единственное упоминание динамического массива в описании типов TArr.

[CynicRus]

Я узрел только GroupArr : array [0..8] of string[20];, что вроде как по описанию проблемы и должно быть вроде как динамически. Но этот статический массив гвоздями прибит к категориям в процедуре заполнения этих категорий. Экспериментов я не увидел.
PS: форматирование вырвиглазно.

Но я сегодня добрый и потому укажу направление:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

type   DataArray<T> = record     Data: array of T;     procedure Append(const Value: T);     function Count: integer;   end;     { DataArray<T> }   procedure DataArray<T>.Append(const Value: T); begin   SetLength(Data, length(Data) + 1);   Data[high(Data)] := Value; end;   function DataArray<T>.Count: integer; begin   result := length(Data); end;

Использование:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.FormCreate(Sender: TObject); var   data: DataArray<string>; begin   data.Append('Alpha');   data.Append('Beta');   Caption := IntToStr(data.Count) + ': ' data.Data[0] + ' & ' + data.Data[1]; end;

MAD: пользуемся тегами по назначению.

[Страдалецъ]

Что это? DataArray<T>
Первый раз вижу такое описание и ведь компилируется.
Я так понимаю, это какое-то хитрое расширение позволяющее делать структуру с динамическим типом поля?

[CynicRus]

Сообщение от Страдалецъ

Что это? DataArray<T>
Первый раз вижу такое описание и ведь компилируется.
Я так понимаю, это какое-то хитрое расширение позволяющее делать структуру с динамическим типом поля?

T? Так это ведь дженерики.

Подробнее тут: https://sergworks.wordpress.com/2014...ces-in-delphi/

[Страдалецъ]

Веришь, но понятие то я это слышал, а вот на практике ни разу не сталкивался. Для чего и как его прилепить в своих проектах пока даже и не соображу.

[CynicRus]

Сообщение от Страдалецъ

Веришь, но понятие то я это слышал, а вот на практике ни разу не сталкивался. Для чего и как его прилепить в своих проектах пока даже и не соображу.

Здорово экономит время-))) Вместо наследников от TList - TList<T> С итератором. Или вместо самописных хэштаблиц - TDictionary. Красота.