Спасите пожалуйста! ( про матрицу)

  • Автор темы neznayka
  • Дата начала
N

neznayka

#1
Я в Делфи полный ноль, поэтому прошу вашей помощи..объясните что не так и как это исправить
Задача: есть матрица m*n. нужно сравнить ее строки и если одинаковых нет, вывести сообщение об этом.


procedure TMainForm.GoBtnClick(Sender: TObject);
var text: string;
i,j,k : Integer;
begin
for i:=0 to Rows.value do
for j:=i+1 to Rows.value-1 do
for k:=0 to Cols.value-1 do
begin
if Matrix.Cells[k,i]=Matrix.Cells[k,j]
then
text:='Есть одинаковые строки'
else
text:='Нет одинаковых строк'
end;
MessageDlg(text, mtInformation, [mbOk], 0);
end;


Сравнивает только первых две строки.Остальные игнорирует.