Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Val ( StrRow, SizeRow, Code);



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 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.005 сек.)