StringGrid и матрица

[DoGFoX]

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

Вот код:

begin
 n:=StrToInt(ComboBox1.Text);
 m:=StrToInt(ComboBox2.Text);
for i:=1 to n-1 do begin
for j:=1 to m-1 do Matrix1[i,j]:=StrToInt(StringGrid1.Cells[j,i]);end;

for i:=1 to m-1 do begin
for j:=1 to n-1 do
StringGrid2.Cells[i,j]:=IntToStr(Matrix1[j,i]);end;
end;

[DoGFoX]

всё, всем спасибо)) сам во всём разобрался)))

[baster128]

Во первых Грид заполни StringGrid1.Cells[i,j]:=IntToStr(i)+IntToStr(j);, а во вторых (измучился пока заметил) чо у нас тут наоборот то все MyMatrix[i,j]:=StrToInt(StringGrid1.Cells[j,i]);, (переменные циклов) так надо что-ли. Если так то это только для квадратной матрицы пойдет.(Подумай это чертовски интересно)

[DoGFoX]

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

Во первых Грид заполни StringGrid1.Cells[i,j]:=IntToStr(i)+IntToStr(j);, а во вторых (измучился пока заметил) чо у нас тут наоборот то все MyMatrix[i,j]:=StrToInt(StringGrid1.Cells[j,i]);, (переменные циклов) так надо что-ли. Если так то это только для квадратной матрицы пойдет.(Подумай это чертовски интересно)

заинтересовал однако
как эту фигню исправить, чтоб не только на квадратных работало??))

[baster128]

Держи целиком прогу поэсперементировал я тут спьяну...

[DoGFoX]

Спасибо огромное

чё то не разобрался я в твоём исходнике

нарооооооооооод, подскажите кто нибудь

[savva]

эксперименты походу были весьма)

так я не пойму что нужно сделать то))

чтобы перенести все данные из
StringGrid1 в StringGrid2 нужно сделать так

for i=1 to m-1 do
for j=1 to n-1 do // с n и m не помню,разберешься.
begin
StringGrid2[i,j]:=StringGrid1[i,j];
end;

вот и все.

" Пытаюсь считать массив из стрингрида, после щелчка на кнопке вывести этот же массив в другом стрингриде... Проблема в том, что во второй стринг записывается только последнее значение матрицы."

исходя из этого я понял:
Ты хочешь считать с стрингрида в массив(причем в двумерный не так ли?) значения,а потом заполнить другой стрингрид значениями из массива?
Смысл?это как из питера в москву через владивосток.

[DoGFoX]

Не обязательно из StringGrida в StringGrid. Мне просто нужно разобраться, как правильно вывести массив порядка NxM в StringGrid

[DomiNick]

массив порядка NxM

Это уже матрица тогда уж получается...

TStringGrid.Cells[Col, Row]: string;

В StringGrid'е сначала столбцы, а потом строки... В матрицах наоборот...
Надо просто об этом не забывать...

[Serge_Bliznykov]

Мне просто нужно разобраться, как правильно вывести массив порядка NxM в StringGrid

Это же элементарно!
N - это число строк
M - число столбцов
но в StringGrid.Cells наборот, сначала указывается столбец, потом строка.

Далее, строки/столбцы в StringGrid нумеруются от нуля. Но, есть проперти (свойства) FixedCol и FixedRow - это сколько столбцов и колонок сделать нескролируемыми. Обычно (по умолчанию) это 1 строка и 1 столбец. И обычно их используют, чтобы заносить туда заголовки (имена столбцов, номера строк и т.п.). Мы туда запишем просто номера по порядку.


вот и всё.

procedure TForm1.FillStringGridClick(Sender: TObject);
var N, M : integer;
  A : array[1..100,1..100] of integer;
  i,j : integer;
begin
  N := StrToInt(Edit1.Text);
  M := StrToInt(Edit2.Text);

  {заполним массив последовательностью чисел}
  for i:=1 to N do
    for j:=1 to M do
      A[i,j] := (i-1)*M+j;


  { зададим размеры StringGrid'а
    ( так как у нас есть
       дополнительные строка  и столбец
       (с учётом FixedRow/FixedCol)
       получается N+1 и M+1 }
  StringGrid1.RowCount := N+1;
  StringGrid1.ColCount := M+1;

  // заполним заголовки столбцов
  for i:=1 to M do
    StringGrid1.Cells[i,0] := IntToStr(i);

  // заполним заголовки строчек
  for i:=1 to N do
    StringGrid1.Cells[0, i] := IntToStr(i);

  {а вот и кульминация, перенос из двухмерного
    массива N x M
    в StringGrid}
  for i:=1 to N do
    for j:=1 to M do
      StringGrid1.Cells[j,i] := IntToStr(A[i,j]);


end;