Сложение матриц в оконном режиме Delphi Опции

[BananaMan]

здрасьте)
вы даете советы по оконному режиму delphi?
вопрос такой
нужно сложить две матрицы
сложность заключается в том как это все реализовать через стринггриды, как сделать обращение к ним
по идее должно быть три окна stringgrid( 1ая матрица , 2ая матрица, результат сложения)
так же хотелось бы узнать как осуществить ввод в эти самые стринггриды

Сообщение отредактировано: BananaMan - 27.05.2006 18:42

[мисс_граффити]

не прикрепляй ты exe-шники!
ну сколько раз повторять?!
просто выкладывай код!!!

итак, чтобы не пришлось скачивать...
что имеется в программе:

procedure TForm2.Button2Click(Sender: TObject);
var i,j,i1,i2,i3,m,n:integer;
begin
 for m:=1 to StringGrid1.RowCount-1 do
  if (StringGrid1.Cells[i,j]='') or (StringGrid2.Cells[i,j]='') then
   begin
    ShowMessage('Матрицы имеют незаполненные ячейки');
    break;
   end
   else
  for n:=1 to StringGrid1.ColCount-1 do
   begin
    if (StringGrid1.Cells[i,j]='') or (StringGrid2.Cells[i,j]='') then
     begin
      ShowMessage('Матрицы имеют незаполненные ячейки');
      break;
    end
    else
   begin
    i1:=StrToInt(StringGrid1.Cells[i,j]);
    i2:=StrToInt(StringGrid2.Cells[i,j]);
    i3:=i1+i2;
    StringGrid3.Cells[i,j]:=IntToStr(i3);
    StringGrid3.Visible:=True;
   end;
   end;

очень логично запустить циклы по m и n, а обращаться к ячейкам i и j.

[BananaMan]

может и не логично, но ошибка не в этом =(

for j:=1 to StringGrid1.RowCount-1 do
  if (StringGrid1.Cells[i,j]='') or (StringGrid2.Cells[i,j]='') then
   begin
    ShowMessage('Матрицы имеют незаполненные ячейки');
    break;
   end
   else
  for i:=1 to StringGrid1.ColCount-1 do
   begin
    if (StringGrid1.Cells[i,j]='') or (StringGrid2.Cells[i,j]='') then
     begin
      ShowMessage('Матрицы имеют незаполненные ячейки');
      break;
    end
    else
   begin
    i1:=StrToInt(StringGrid1.Cells[i,j]);
    i2:=StrToInt(StringGrid2.Cells[i,j]);
    i3:=i1+i2;
    StringGrid3.Cells[i,j]:=IntToStr(i3);
    StringGrid3.Visible:=True;
   end;

эффект тот же
в чем же ошибка?

Сообщение отредактировано: volvo - 2.11.2006 16:55