if (Code <> 0) or (SizeRow > MaxSizeRow) then
Begin
MessageDlg (' '+StrRow+#13+' Ошибка в задании'+
#13+'числа строк матрицы', mtError, [mbOK], 0);
EdtSizeRow.SetFocus;
Exit;
End;
StrColumn:= edtSizeColumn.Text;
Val (StrColumn, SizeColumn, Code);
if (Code <> 0) or (SizeColumn > MaxSizeColumn) then
Begin
MessageDlg (StrColumn+#13+'Ошибка в задании числа столбцов',
mtError, [mbOK], 0);
EdtSizeColumn.SetFocus;
Exit;
End;
if memoMatrix.Lines.Count < SizeRow then
Begin
MessageDlg (StrRow+#13+'Число строк матрицы меньше заданного',
mtError, [mbOK], 0);
EdtSizeRow.SetFocus;
Exit;
End;
while (memoMatrix.Lines.Count <> 0) and
(Trim (memoMatrix.Lines[memoMatrix.Lines.Count - 1]) = '') do
MemoMatrix.Lines.Delete(memoMatrix.Lines.Count - 1);
if memoMatrix.Lines.Count > SizeRow then
Begin
MessageDlg (StrRow+#13+'Число строк матрицы больше заданного',
mtError, [mbOK], 0);
EdtSizeRow.SetFocus;
Exit;
End;
for i:= 0 to SizeRow-1 do
Begin
Stroka:= memoMatrix.Lines[i] + ' ';
for j:= 0 to SizeColumn-1 do
Begin
StrJ:= SelectNumber (Stroka,j+1);
Val (StrJ,A[i,j],Code);
if Code<>0 then
if StrJ <> '' then
Begin
MessageDlg (StrJ+' - неправильное целое число',
mtError, [mbOk], 0);
MemoMatrix.SetFocus;
Exit;
End
Else
Begin
MessageDlg ('Число элементов в '+IntToStr (i+1)+
'-й строке матрицы меньше заданного',
mtError,[mbOk],0);
MemoMatrix.SetFocus;
Exit;
End;
End;
StrJ:=SelectNumber (Stroka, SizeColumn+1);
if StrJ <> '' then
Begin
MessageDlg ('Превышено число элементов в '+IntToStr(i+1)+
'-й строке матрицы', mtError, [mbOk], 0);
Дата добавления: 2015-07-10; просмотров: 49 | Нарушение авторских прав