[juggle]

Помогите, пожалуйста, разобраться почему на запуск моей програмки выходит ошибка exception class EConvertError with message ''' is not a valid integer value'.
Сама задача проста: перемножить матрицу А размерностью MxN на матрицу B размерностью NxQ.

Код программы:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
var m:integer;

begin
if Edit1.Text<>'' then
begin
 m:=strtoint(Edit1.Text);
 StringGrid1.RowCount:=m;
 StringGrid3.RowCount:=m;
 StringGrid1.Visible:=true;
 StringGrid3.Visible:=true;
end
else
 begin
 StringGrid1.Visible:=false;
 StringGrid3.Visible:=false;
 end;
end;

procedure TForm1.Edit2Change(Sender: TObject);
var n: integer;
begin
if Edit2.Text<>'' then
begin
 n:=strtoint(Edit2.Text);
 StringGrid1.ColCount:=n;
 StringGrid2.RowCount:=n;
 Edit3.Text:=Edit2.Text ;
 StringGrid1.Visible:=true;
 StringGrid2.Visible:=true;
 end
else
 begin
 StringGrid1.Visible:=false;
 StringGrid2.Visible:=false;
 end;
end;

procedure TForm1.Edit4Change(Sender: TObject);
var q: integer;
begin
if Edit4.Text<>'' then
begin
 q:=strtoint(Edit4.Text);
 StringGrid2.ColCount:=q;
 StringGrid3.ColCount:=q;
 StringGrid2.Visible:=true;
 StringGrid3.Visible:=true;
end
else
 begin
 StringGrid2.Visible:=false;
 StringGrid3.Visible:=false;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,x: array [0..100,0..100] of integer;
 i,j,l: integer;
 m,n,q:integer;
begin
// считываем матрицы с гридов
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
q:=StrToInt(Edit4.Text);

  for i:=1 to m do 
    for j:=1 to n do 
      a[i,j] := StrToInt(StringGrid1.Cells[i,j]);

  for i:=1 to n do 
    for j:=1 to q do 
       b[i,j] := StrToInt(StringGrid2.Cells[i,j]);

// перемножение матрицы
  For i:= 1 to m do
    For j:= 1 to q do
          Begin
          x[i,j]:=0;
           For l:= 1 to n do
           begin
             x[i,j]:=x[i,j]+a[l,i]*b[j,l];
           end;
           end;

// отображение матрицу в 3-ем гриде
   for i:=1 to m do
   begin
     for j:=1 to q do
     begin
     StringGrid3.cells[i,j]:=IntToStr(x[i,j]);
     end;
   end;
end;

end.

Admin: Пользуемся тегами!

[Yurgen]

Где-то у тебя Integer нужен =)
наверное реакция на StrToInt когда вводишь что-то аля "аыв34" то трудно переобразовать его в Integer. Попробуй использовать TryStrToInt - функция со встроеной проверкой, если чё-то не конвертирует то ризалт False от функции, а не КонвертЕррор от винды =)

[juggle]

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

когда вводишь что-то аля "аыв34"

Нет, точно ввожу цифры.... и чего она не понимает(

[PhoeniX]

на какую строчку ругается?

[juggle]

Прошлась по шагам (F7) и когда выхожу со строчки с

a[i,j] := StrToInt(StringGrid1.Cells[i,j]);

вышла эта ошибка.

Здесь я считываю значения с грида 1
for i:=1 to m do
for j:=1 to n do
a[i,j] := StrToInt(StringGrid1.Cells[i,j]);

for i:=1 to n do
for j:=1 to q do
b[i,j] := StrToInt(StringGrid2.Cells[i,j]);

[BoRoV]

У нее ругается на пустую ячейку.

Попробуй так:

Код:

 for i:=1 to m - 1 do 
    for j:=1 to n - 1 do 

[juggle]

Да, спасибо, место прошла!!!!
Но вот только не выводит мне то, что получается в 3-и грид.
Просто не выводит, ошибок нет.
По коду везде где есть m, n или q дописала '-1'.
Что бы еще дописать / подправить?

[PhoeniX]

гм.... побуду КЭПом - размеры третьего грида верно заданы на момент вывода? Если да, то хз. Попробуй сделать что-то по типу StringGrid1.Repaint в конце ButtonOnClick.

[BoRoV]

Ну вроде бы всё правильно. А она у тебя отображается, может ты там что-то с свойством висибл перемудрила.

[juggle]

Размеры 3-его отображаются правильно: они меняются в зависимости какие размеры ввожу для первых двух гридов.
Вообще, у меня опять все сломалось, на том же месте.
Последняя редакция "того места":

Код:

begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
 
  for i:=0 to m-1 do
    for j:=0 to n-1 do 
      a[i,j] := StrToInt(StringGrid1.Cells[i,j]);

p:=StrToInt(Edit2.Text);
q:=StrToInt(Edit4.Text);
  for i:=0 to p-1 do 
    for j:=0 to q-1 do 
       b[i,j] := StrToInt(StringGrid2.Cells[i,j]);

Admin: Пользуемся тегами! В случае несоблюдения правил последуют санкции!

При разных значениях m,n,q падает то на a[i,j], то на b[i,j]

[juggle]

Текст ошибки тот же.

[BoRoV]

Скинь проект, так проще будет.

[juggle]

Вот он, в аттаче должен быть.

[PhoeniX]

Ругается, если не задана одна из размерностей. Проставь в едитах по умолчанию тройки, и код модифицируй как-то так (мог напутать в выделенных строках, писал прямо тут).

Код:

  m:=StringGrid1.ColCount; // ??
  n:=StringGrid1.RowCount; // ??
  for i:=0 to m-1 do
    for j:=0 to n-1 do
      a[i,j] := StrToInt(StringGrid1.Cells[i,j]);

  p:=StringGrid2.ColCount; // ??
  q:=StringGrid2.RowCount; // ??
  for i:=0 to p-1 do
    for j:=0 to q-1 do
      b[i,j] := StrToInt(StringGrid2.Cells[i,j]);

  For i:=0 to m-1 do
    For j:=0 to q-1 do
      Begin
        x[i,j]:=0;
        For l:= 1 to n-1 do
          x[i,j]:=x[i,j]+a[l,i]*b[j,l];
      end;
  for i:=0 to m-1 do
    for j:=0 to q-1 do
      StringGrid3.cells[i,j]:=IntToStr(x[i,j]);

P.S. И ещё заметил любопытную ошибку. При изменении A.Y (кол-во столбцов первой матрицы) изменяется B.X. А вот если менять B.X - изменений в A.Y не происходит.
P.P.S. Код желательно чистить от мусора перед заливкой - *.~*, *.dcu, *.ddp... Хорошо, что хоть *.exe удалён
P.P.P.S. Иконка приложения из Delphi 5? Да-да, я её ещё помню

[BoRoV]

У тебя не были исправлены:

Код:

// перемножаем матрицы
  For i:= 1 to m-1 do
    For j:= 1 to q-1 do

// выводим значение в результирующую матрицу
   for i:=1 to m-1 do
   begin
     for j:=1 to q-1 do

Там ты получаешь значения с 0, а тут читаешь с 1.