Двумерный массив из Edit-ов

[.FROST.]

Здравствуйте, пытаюсь создать двумерный массив из Edit-ов, рядом с которым будет Lable, в которые будут вноситься значения a[i,j] (i,j=1..n, n вводится с клавиатуры). При этом если i не равно j, то в лэйбл вводится 2a[i,j]. Короче говоря, нужно заполнить значения в формуле . И потом, эти значения из эдитов занести в массив a[i,j]. Попытался создать динамически эдиты и лэйблы, но при создани ругается, мол access violation at address, на строку Lab[i,j] := TLabel.Create(Self);
Скорее всего я не правильно описал процедуру создания компонентов, но по-другому я не придумал((( Может подскажите как это сделать?

procedure TForm1.Button1Click(Sender: TObject);
var
 Lab: Array of array of TLabel;
 Ed: Array of array of TEdit;
 n,i,j: Integer;
begin
  n:=strtoint(edtkp.text);
  SetLength(Lab, n+1);
  SetLength(Ed, n+1);
  for i := 0 to n-1 do
  for j := 0 to n-1 do
    begin
      Lab[i,j] := TLabel.Create(Self);
      Lab[i,j].Parent := Self;
      Lab[i,j].Left := 10;
      Lab[i,j].Top := i*30+250;
      Lab[i,j].Caption := 'a1'+IntToStr(i+1)+'=';
      Ed[i,j] := TEdit.Create(Self);
      Ed[i,j].Parent := Self;
      Ed[i,j].Left := 150;
      Ed[i,j].Top := i*30+250;
      Ed[i,j].Text := '';
    end;
end;

[Аватар]

А эдиты с лейблами зачем? StringGrid для таких вещей наиболее подходит

[.FROST.]

Не спорю. Но, чтобы заполнить значения a[i,j], думаю, удобнее использовать эдиты... Не посвященным понятнее.

Подправил, но теперь выводит не все значения. Разбираюсь..

procedure TForm1.Button1Click(Sender: TObject);
var
 Lab: Array of array of TLabel;
 Ed: Array of array of TEdit;
 n,i,j: Integer;
begin
  n:=strtoint(edtkp.text);
  SetLength(Lab, n+1,n+1);
  SetLength(Ed, n+1,n+1);
  for i := 0 to n-1 do
  begin
  j:=0;
  while j<=n-1 do
    begin
      Lab[i,j] := TLabel.Create(Self);
      Lab[i,j].Parent := Self;
      Lab[i,j].Left := 10;
      Lab[i,j].Top := i*30+250;
      Lab[i,j].Caption := 'a'+IntToStr(i+1)+IntToStr(j+1)+'=';
      Ed[i,j] := TEdit.Create(Self);
      Ed[i,j].Parent := Self;
      Ed[i,j].Left := 150;
      Ed[i,j].Top := i*30+250;
      Ed[i,j].Text := '';
      Inc(j);
    end;
    end;
end;

[doktor255]

У тебя выводится всё. Просто из за того что Left всех контроллов это константа, ты наложил их друг на друга.

Lab[i,j].Left := j*30;
...
Ed[i,j].Left := 150 + j * 150;

[northener]

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

У тебя выводится всё. Просто из за того что Left всех контроллов это константа, ты наложил их друг на друга.

Lab[i,j].Left := j*30;
...
Ed[i,j].Left := 150 + j * 150;

Так Top'ы то у них разные. А менять Left'ы? Тебе нравится лесенка?

P.S.
Но я лично не понял слова ТС "теперь выводит не все значения". Кто выводит, какие значения?

[doktor255]

northener Не кури больше эту траву. Двойной цикл, и вся вторая ветка цикла визуально ложится друг на друга.

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

Кто выводит?

Программа

какие значения?

Не значения а компоненты. Только выводятся все, просто они накладываются. Не можешь сообразить, напиши в делфи код, и посмотри.

[Stilet]

Не посвященным понятнее.

Дело в том что если ты просто учишься создавать тучу компонентов и выстраивать их по некому ордеру, то еще понять можно, но твой код выше увы плодит много мусора, поскольку уже созданные эдиты при втором нажатии останутся перекрытыми вновь создаваемыми, и потеряют якорь к программе - т.е. их по идее не освободишь (хотя собственно освободить можно через контейнер формы).

Если же тебе нужно просто нормальное отображение данных - выше был дан правильный ответ про грид.

Да, еще такой момент: Я бы наверное предпочел вместо вычисления координат, куда ставить эдиты выравнивание. Т.е. Align:=AlTop.
А если нужно в несколько колонок - помещал бы на Panels.