Двухмерные массивы - ошибка

[fudzy79]

Приветствую, у меня небольшая проблемка, не могу понять в чем ошибка в коде, аж Делфи выносит

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
begin
  // Заполнение названий колонок и столбцов
  for i:= 1 to 5 do SG1.Cells[0, i]:= 'Филиал № ' + IntToStr(i);
  for j:= 1 to 12 do SG1.Cells[j, 0]:= 'Месяц - ' + IntToStr(j);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  mas: array of array of integer;
begin
    // создание массива
  Randomize;
  for i:= 1 to 5 do
    for j:= 1 to 12 do
      mas[i, j]:= Random(1000);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: integer;
  mas: array of array of integer;
begin
  //заполнение сетки
  for i:= 1 to 5 do
    for j:= 1 to 12 do
      SG1.Cells[j, i]:= IntToStr(mas[i, j]);
end;

end.

и еще вопросик, как можно автоматически (через цикл) обозвать столбцы названиями месяцев года

Делфи вылетает на 22 строке и выдает вот это:

[B_N]

Небольшая проблемка? Так вообще ничего работать не должно. Размерность массивов нигде не определяется, массивы объявлены как локальные переменные - после выхода из функции они перестают существовать.

[fudzy79]

подправил, сделал так:

type
  TMassive = array of array of integer;
  TForm1 = class(TForm)
  .......
  end;

var
  Form1: TForm1;
  i, j: integer;
  mas: TMassive;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Заполнение названий колонок и столбцов
  for i:= 1 to 5 do SG1.Cells[0, i]:= 'Филиал № ' + IntToStr(i);
  for j:= 1 to 12 do SG1.Cells[j, 0]:= 'Месяц - ' + IntToStr(j);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  for i:= 1 to 5 do
    for j:= 1 to 12 do
      mas[i, j]:= Random(10);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  for i:= 1 to 5 do
    for j:= 1 to 12 do
      SG1.Cells[j, i]:= IntToStr(mas[i, j]);
end;

end.

не помогает

[zetrix]

...array of array of integer

вы объявили динамический массив. Необходимо установить его длину при первом использовании: Setlength(SG1,12,5);
Учтите, что размерность массива после этого будет 0..11,0..4. Обратите на это внимание!

SG1.Cells[0, i]:= 'Филиал № ' + IntToStr(i);

Это бред! тут вам не PHP. Элементы массива могут быть только одного типа! Нельзя объявить его как integer, а потом пытаться запихнуть туда строку!

[B_N]

Ну а размер массива mas надо же указать. Или явно, или через SetLength, а то так и будет access violation давать.

[fudzy79]

Цитата:SG1.Cells[0, i]:= 'Филиал № ' + IntToStr(i);

Это бред! тут вам не PHP. Элементы массива могут быть только одного типа! Нельзя объявить его как integer, а потом пытаться запихнуть туда строку!

Почему бред? Всё без проблем запихивается

[Карась]

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

Это бред! тут вам не PHP. Элементы массива могут быть только одного типа! Нельзя объявить его как integer, а потом пытаться запихнуть туда строку!

SG1.Cells - это не массив.

[puporev]

Напиши так и не мучайся, заодно посмотри свои ошибки.

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
begin
  for i:= 1 to 5 do SG1.Cells[0, i]:= 'Филиал № ' + IntToStr(i);
  for j:= 1 to 12 do SG1.Cells[j, 0]:= 'Месяц - ' + IntToStr(j);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  mas: array[1..5,1..12] of integer;
begin
  Randomize;
  for i:= 1 to 5 do
    for j:= 1 to 12 do
      mas[i, j]:= Random(1000);
   for i:= 1 to 5 do
    for j:= 1 to 12 do  
      SG1.Cells[j, i]:= IntToStr(mas[i, j]);
end;   
end.

[zetrix]

упс... Я напутал. Извиняюсь.
Кароче размер массива надо указать и всё. =)

[fudzy79]

Спасибо, уже поправил и усё заработало!!!