['Zanuda']

Здравствуйте, пытаюсь создать двумерный массив из Edit-ов, рядом с которым будет Lable, в которые будут вноситься значения a[i,j] (i,j=1..n, n вводится с клавиатуры). При этом если i не равно j, то в лэйбл вводится 2a[i,j]. Короче говоря, нужно заполнить значения в формуле . И потом, эти значения из эдитов занести в массив 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;

[poli-smen]

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

Здравствуйте, пытаюсь создать двумерный массив из Edit-ов, рядом с которым будет Lable, в которые будут вноситься значения a[i,j] (i,j=1..n, n вводится с клавиатуры). При этом если i не равно j, то в лэйбл вводится 2a[i,j]. Короче говоря, нужно заполнить значения в формуле . И потом, эти значения из эдитов занести в массив a[i,j]. но пока почему-то не все "а" создаются.

Создаваться то они создаются, вот только накладываются друг на друга, так как у всех Label-ов координата Left равна 10, а у всех Edit-ов координата Left равна 150.
Так как координата Top привязана к переменной цикла i, то координата Left должна быть привязана к переменной j, т.е. как-то так:

Код:

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

И ещё обрати внимание, что на вкладке Additional палитры компонентов есть компонента TLabeledEdit, которая уже является Label-ом и Edit-ом "в одном флаконе".