[РЕШЕНО] Работа с матрицами в delphi7

[Enotik_1998]

Здравствуйте. У меня есть квадратная матрица целочисленного типа, описывается как глобальная переменная. Такой вопрос: как сделать ввод-вывод матрицы в stringgrid? Вот мой исходный код, там почему-то выводится 1 число из массива в 1 ячейку:

procedure TForm1.Button3Click(Sender: TObject);
begin
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
For i:=1 to StringGrid1.RowCount-1 do
For j:=1 to StringGrid1.ColCount-1 do
a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
For i:=1 to StringGrid1.ColCount-1 do
For j:=1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
//Form2.Show;
//Form1.Hide;
end;

[digitalis]

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

там почему-то выводится 1 число из массива в 1 ячейку:

??
А как должно быть? Несколько чисел - в одну ячейку ?
Надо только помнить, что нумерация в StringGrid1 идет от 0. Если массив объявлен таким же макаром, то

For i:=0 to StringGrid1.RowCount-1 do

[Serge_Bliznykov]

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

StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;

грид становится размером в одну ячейку?
Так проверяйте, чему у Вас равно n в момент нажатия на кнопку Button3
(воспользуйтесь отладчиком - поставьте точку останова и посмотрите значение в переменной).
Это раз.

второе. Вы сначала определитесь, что Вам нужно - перекинуть данные из StringGrid -> в массив a или, наоборот, из массива a -> StringGrid ?
выполнять два действия подряд - бессмысленно.

третье.
я не знаю, как у Вас сконфигурирован StringGrid (если ли зафиксированные строки/столбцы), но, в общем случае, нумерация в гриде идёт от 0
тем более, что Вы цикл выполняете до n-1 (для грида это правильно, а для массива - НЕ ВЕРНО).

[digitalis]

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

(для грида это правильно, а для массива - НЕ ВЕРНО).

Ну почему же? Массив может тоже быть определен как [0..n-1]
А StringGrid1.RowCount,StringGrid1.Co lCount, точнее, одтн из них - матрица ведь квадратная - объявить бы константами . Массив-то не динамический ?

[Enotik_1998]

Что-то сильно сложно. Вы можете дать готовый пример для ввода и вывода целочисленной матрицы в stringgrid без random?

массив не динамический

[digitalis]

Согласен. Не просто сложно, а зупер-сложно. Цикл не от 1, а от 0 - свихнуться можно.
Serge_Bliznykov спрашивает: есть зафиксированные ячейки ? Туда обычно заголовки строк-колонок помещают.

[Enotik_1998]

Если это суперсложно, то дайте код по вводу-выводу матрицы в stringrid без random. Фиксированных ячеек нету.

[Serge_Bliznykov]

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

Если это суперсложно, то дайте код по вводу-выводу матрицы в stringrid без random. Фиксированных ячеек нету.

объявление глобальных переменных

var 
   N, M : integer;
   A : array[1..100, 1..100] of integer;

.....
запись данных из грида -> в массив

procedure TForm1.ButtonGridToArrayClick(Sender: TObject);
var i,j : integer;
begin
  N := StringGrid1.RowCount;
  M := StringGrid1.ColCount;
  For i:=0 to StringGrid1.RowCount-1 do
     For j:=0 to StringGrid1.ColCount-1 do
        a[i+1,j+1]:=StrToInt(StringGrid1.Cells[j,i]);
end;

вывод из массива -> StringGrid

procedure TForm1.ButtonArrayToGridClick(Sender: TObject);
var i,j : integer;
begin
 StringGrid1.RowCount := N;
 StringGrid1.ColCount := M;
  For i:=0 to StringGrid1.RowCount-1 do
     For j:=0 to StringGrid1.ColCount-1 do
        StringGrid1.Cells[j,i] := StrToInt(a[i+1,j+1]);
end;

всё.
есть вопросы?

[digitalis]

Вариант для квадратной матрицы (и квадратной же StringGrid)

var 
   N : integer;
   A : array[0..100, 0..100] of integer;

.....
запись данных из грида -> в массив

procedure TForm1.ButtonGridToArrayClick(Sender: TObject);
var i,j : integer;
begin
  N := StringGrid1.RowCount;
  For i:=0 to N-1 do
     For j:=0 to N-1 do
        a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
end;

и т.д.

[Enotik_1998]

Всё работает. Спасибо за помощь.