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

[Delphi_ProGer]

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

Сначала нужно создать TLabel:

lblArray[i]:=TLabel.Create(nil);

Думаю что ошибка именно в этом.

[_Iren_]

нет, с этим все нормально.. они создаются

[_Iren_]

не может обратиться ни к root.next[i], ни к root.data[i]

[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;

procedure TForm1.FormCreate(Sender: TObject);
var
  root: TreePointer;
  lblArray: array of TLabel;
  i: Integer;
begin
  SetLength(lblArray, 10);
  for i := 0 to High(lblArray) do
  begin
    lblArray[i] := TLabel.Create(Self);
    lblArray[i].Caption := IntToStr(i);
  end;
  CreateRoot(root, lblArray);
  for i := 0 to High(lblArray) do
    lblArray[i].Free;
end;

после CreateRoot(root, lblArray)
root^=(('0', '1', '2', '3', '4', '5', '6', '7', '8', '9'),0,(nil, nil, nil, nil, nil, nil, nil, nil, nil, nil))

[_Iren_]

спасибо большое) у меня уже после перезагрузки перестал ругаться)