Delphi Как связать и хранить кучу объектов?

[Эльфийский]

Всем привет, я начинающий программист(любитель) у меня есть задание, но дело всё равно не в этом! Я начал просчитывать алгоритм программы и понял что если я буду создавать кучу объектов(динамически) и хранить их либо в масиве либо в записи, у меня будет большой геморрой с перемещением их из одного места в другое(например даны 2 массива 4 на 4 и мне надо 1 2 переместить во 2 массив 4 3 и при етом чтобы то что находиться на позиции 4 3 сместилось дальше и всё остальное циклически... Но у меня 10 массивов и не 4 на 4 а 150 150 ес не больше)
помогите мож есть чтонить кроме массивов и записей похожее на связь?

если чтото я не так оформил, извините я первый день тут... если удалите ету тему прошу мне в ЛС напишите за что... чтобы я знал... зарание спасибо

[Пепел Феникса]

если обьекты(экземпляры классов) то это не так запарно ибо обьект это указатель то есть 4 байта...
перемещается довольно просто...
если же записи, то используй указатели на них и динамическую память(New,Dispose)
перемещать можно с помощью Copy,Insert(помоему можно для массивов)

[Эльфийский]

да с перемещением нету проблем просто лагает зверски когда куча объектов начинает перемещаться из одного массива в другой и при етом им надо сохранять порядок

[JTG]

Списки? (TList)

[Эльфийский]

я про списки ничего не говорил я про запись говорил а ес я не ошибаюсь запись ето рекорд а не лист)

вот смотрите образно пример приведу
у нас есть дерево из объектов и оно постоянно разветвляться и разветвляться, а тут бац и один из объектов по середине ветки удаляется и вся ветка и её отростки симметрично и не задевая ни один другой объект перебираются в низ... как это сделать с затратой минимума оперативы и прог. кода

[Пепел Феникса]

перечитайте мой пост.

если же записи, то используй указатели на них и динамическую память(New,Dispose)
перемещать можно с помощью Copy,Insert(помоему можно для массивов)

пока НЕ дошло читаем вновь

[Эльфийский]

блин толи я вилы туплю толи спать хочу...
толи я не вкурю никак толи чёто тут не так
если не сложно объясни для особо одаренных плиз... буду очень признателен и смогу сказать то или не то...

[Пепел Феникса]

type
 PMyRecord=^TMyRecord;
 TMyRecord=record
  I:integer;
  W,S:word;
 end;

var
 A:array of PMyRecord;

----------------------просто удобные функи

function Add(R:TMyRecord):integer;
begin
 SetLength(A,Length(A)+1);
 New(A[Length(A)-1]);
 A[Length(A)-1]^:=R;
end;

functuin Read(i:integer):TMyRecord;
begin
 Result:=A[i]^;
end;

---------------------обычное применение

procedure TForm1.Button1Click(Sender:TObject);
begin
 A[TrackBar1.Position]^.I:=StrToInt(Edit1.Text);
 A[TrackBar1.Position]^.I:=StrToInt(Edit2.Text);
 A[TrackBar1.Position]^.I:=StrToInt(Edit3.Text);
end;

а вообще, читаем учебник по дельфи главы: указатели и динамическая память

[JTG]

Ну я и говорю используй списки при удалении элемнта предыдущий сам сцепится со следующим

[Эльфийский]

ок спосиб терь ясно завтро попробую так сделать... а пока тема временно закрыта я спать))))