Лабораторная работа: Алгоритмы и организация данных

Exit;

end;

If Length (StringGrid1.Cells[2,0])>3 then

begin

ShowMessage ('Ошибкав P (3) !!! Нельзя ввести число больше "999".');

StringGrid1.Cells[2,0]:='';

Exit;

end;

If Length (StringGrid1.Cells[3,0])>3 then

begin

ShowMessage ('Ошибкав P (4) !!! Нельзя ввести число больше "999".');

StringGrid1.Cells[3,0]:='';

Exit;

end;

If Length (StringGrid1.Cells[4,0])>3 then

begin

ShowMessage ('Ошибкав P (5) !!! Нельзя ввести число больше "999".');

StringGrid1.Cells[4,0]:='';

Exit;

end;

If Length (Edit1.Text)>3 then

begin

ShowMessage ('Ошибка в "Образец" !!! Нельзя ввести число больше "999".');

Edit1.Text:='';

Exit;

end;

If (StringGrid1.Cells[0,0]='') or (StringGrid1.Cells[1,0]='') or (StringGrid1.Cells[2,0]='') or (StringGrid1.Cells[3,0]='') or (StringGrid1.Cells[4,0]='') then

begin

ShowMessage ('Введены не все элементы уравнения. ПРОДОЛЖЕНИЕ НЕВОЗМОЖНО!');