[poli-smen]

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

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

При запуске чего таблица должна заполниться?

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

И почему в процедуре

Код:

procedure TForm3.ComboBox4Change(Sender: TObject; k: integer; var MU5w, MU8w, MO1w, MUw: TMasMin);

end-ов больше, чем begin-ов , хотя, если один убрать -- ругается.

Потому что если бы ты нормально форматировал свой код, то такой вопрос у тебя даже не возник бы.
Вот как твоя TForm3.ComboBox4Change выглядит отформатированной:

Код:

procedure TForm3.ComboBox4Change(Sender: TObject; k: integer; var MU5w, MU8w, MO1w, MUw: TMasMin);
var
  i, j: integer;
begin
  if k = 0 then
  begin
    case Form3.ComboBox4.ItemIndex of
      0: VivodMakr(MU8w);
      1: VivodMakr(MU5w);
      2: begin
          for i := 1 to 4 do
            for j := 1 to 4 do
              MUw[i, j] := MU5w[i, j] + MU8w[i, j];

          VivodMakr(MUw);
        end;
    end;
  end;
end;