Сместить значения массива

[kettanaito]

Доброго времени суток.

У меня есть массив и TabControl с вкладками, которые создаются динамически. Суть задачи - привязать вкладку к массиву.

type TTabArray:array[1..1000] of record
   Name:String;
   ImageIndex:Integer;
end;
...
var TabArray:TTabArray;

Привязываю значение массива при создании вкладки:

TabArray[TabControl.TabIndex].Name:=TabControl.Tabs.Caption;
TabArray[TabControl.TabIndex].ImageIndex:=TabControl.Tabs.ImageIndex;

(выше приведен пример процедуры создания, который не скомпилируется)

Все это работает отлично. Но у меня есть вопрос: когда мы удаляем вкладку, все позиции (Index) после удаленной смещаются на 1. Т.е., если мы удаляем вкладку у которой был индекс 8, то последующая вкладка (которая до удаления была девятой) становится восьмой. И так далее со следующими, которые стояли после удаленной.

Как по такому же принципу сместить массив?
Я привязываю адреса файлов к вкладкам через тип, описанный в начале. Когда происходит удаление не последней вкладки, то тип сбивается, т.к. в значении array[значение] индекс остается прежним.

Еще один пример:
К вкладке под номером 3 закреплено имя файла C:\example.txt, к вкладке под номером 4 - F:\boots.xml. Удаляем третью вкладку, на ее место (индекс) становится четвертая (но уже под индексом 3). И тебе по клику на третью мы имеем путь C:\example.txt, а не F:\boots.xml. Это логично, т.к. именно под таким индексом записан путь в массиве.

Всячески пытался объяснить проблему.
Буду признателен за помощь.

[Человек_Борща]

вмесо массива используй TObjectList облегчишь себе жизнь и гемороя меньше.

[Аватар]

TabIndex нумеруется с 0. Массив тоже с 0 сделать лучше будет
При удалении вкладки с индексом i все элементы массива от i+1 и до конца перемещаем на одну позицию к началу массива

[kettanaito]

Сообщение от Аватар

TabIndex нумеруется с 0. Массив тоже с 0 сделать лучше будет
При удалении вкладки с индексом i все элементы массива от i+1 и до конца перемещаем на одну позицию к началу массива

Вот у меня собственно вопрос как это сделать?

[kettanaito]

Решил проблему. Извините, что создал новую тему, нужно было использовать поиск.

[Аватар]

for k:=i+1 to 1000 do TabArray[k-1]:=TabArray[k];

Вместо 1000 лучше кол-во TabControl без 1

[Lesha]

Удаление и добавление элементов в динамический массив

[Человек_Борща]

ТС, странный вы=) Чесно. Пишите свои грабли. А ведь за вас такие грабли уже придумали ещё в 2002 году. И называются они Tlist(Classes.pas) и его наследник TObjectList(Contrs.pas). Эти классы создают динам. массив указателей. Это значит, что Tlist может хранить в себе все, что вы в него запихаете. А TobjectList может ещё и автоматически убивать(вызывть Free у обьектов) при вызове TobjectList.Destroy.

Очень удобные классы. Особенно при вашей задаче.

[JUDAS]

for k:=i+1 to 1000 do TabArray[k-1]:=TabArray[k];

Господи люди, по сколько вы лет программируете в Делфи?
Код приведённые Вами будет маслать несколько миллисеунд.
A : array of TRecord;
SetLenGth(A,200);
записываем элементы
----------
удаляем 102 элемент

Move(A[102], A[101], SizeOf(TRecord)*99);
if LenGth(A)>0 then SetLenGth(A, LenGth(A)-1);

числа 102,102,99 вычисляются в зависимости от того какой элемент и сколько нужно удалить
Так же можно и вставить элемент, зхаранее расширив размерность массива и сместив элементы командой Move

[Аватар]

Сообщение от JUDAS

Господи люди, по сколько вы лет программируете в Делфи?

Для динамического массива да. А где вы его увидели в вопросе ТС?