N-мерное дерево Delphi

[_Iren_]

Здравствуйте. Помогите, пожалуйста, разобраться с деревом на Delphi.
Суть в том, что в каждой вершине должен храниться массив строк и оценка вершины. Пыталась создать класс, вообще не запустилось.. Через запись не может корень создать, не говоря уж о добавлении новых вершин потом..
писала вот так:

type
  TreePointer = ^tree;
  tree = record
    data: Array of String;
    mark: double;
    next: Array of TreePointer;
  end;

 function CreateRoot(root:TreePointer;  lblArray: Array of TLabel): TreePointer;
 var i,l:integer;
  begin
  new(root);
  root^.next:=nil;
  l:=length(lblArray);
  GetMem(root, SizeOf(String)*l+SizeOf(Double));
  for i := 0 to l-1 do
    root^.data[i]:=lblArray[i].Caption;
  root^.mark:=0;
  result:=root;
  end;

думаю, что если с корнем разберусь, добавление/удаление осилю.

[Delphi_ProGer]

Сам не знаю как реализовать задачу, но зачем вам там TLabel ???

[_Iren_]

Массив меток.. У меня из него берутся значения, чтобы заполнить массив в корне.

[Utkin]

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

Массив меток.. У меня из него берутся значения, чтобы заполнить массив в корне.

Визуальные компоненты должны использоваться для отображения и ввода информации, но никак не для хранения и обработки.

[Delphi_ProGer]

Вам в задании нужно TLabel-ы сохранять в массиве? Просто можно просто string...

[_Iren_]

они для этого и используются в действительности..
просто корень мне нужно заполнить именно этими значениями

[Utkin]

Избавьтесь от ссылок - переведите все на динамические массивы. Проще и понятней.

[Bob256]

type
  TreePointer = ^tree;
  tree = record
    data: Array of String;
    mark: double;
    next: Array of TreePointer;
  end;

 function CreateRoot(var root:TreePointer;  lblArray: Array of TLabel): TreePointer;
 var i,l:integer;
 begin
  new(root);
  l:=length(lblArray);
  SetLength(root^.data,l);
  SetLength(root^.next,l);
  for i := 0 to l-1 do
  begin
    root^.data[i]:=lblArray[i].Caption;
    root^.next[i]:=nil;
  end;
  root^.mark:=0;
  result:=root;
 end;

[_Iren_]

на строчке
root^.data[i]:=lblArray[i].Caption;
вылетает и пишет: Access violation at address 00407266 in module 'Project4.exe'. Write of address 00000000
Почему так?

[Bob256]

убери "^" Delphi и так понимает