Ошибка "External: sigsegv" при нажатии на кнопку
Добавлено: 2015-06-17 21:55:53
Вылетает ошибка при нажатии на кнопку- класс исключения "External: sigsegv". помогите пожалуйста завтра надо сдать курсач или отчислят.
Вот код этой кнопки, компилирует нормально:
Код Pascal
Вот код этой кнопки, компилирует нормально:
Код Pascal
Код: Выделить всё
procedure TfMain.bAddClick(Sender: TObject);
begin
//очищаем поля, если там что-то есть:
fEdit.bl.Text:= '';
fEdit.grbl.Text:= '';
fEdit.zakaz.Text:= '';
fEdit.klient.Text:= '';
fEdit.stol.Text:= '';
fEdit.cena.Text:= '';
//устанавливаем ModalResult редактора в mrNone:
fEdit.ModalResult:= mrNone;
//теперь выводим форму:
fEdit.ShowModal;
//если пользователь ничего не ввел - выходим:
if (fEdit.bl.Text= '')then exit;
//если пользователь не нажал "Сохранить" - выходим:
if fEdit.ModalResult <> mrOk then exit;
//иначе добавляем в сетку строку, и заполняем её:
SG.RowCount:= SG.RowCount + 1;
SG.Cells[0, SG.RowCount-1]:= fEdit.bl.Text;
SG.Cells[1, SG.RowCount-1]:= fEdit.grbl.Text;
SG.Cells[2, SG.RowCount-1]:= fEdit.zakaz.Text;
SG.Cells[3, SG.RowCount-1]:= fEdit.klient.Text;
SG.Cells[4, SG.RowCount-1]:= fEdit.stol.Text;
SG.Cells[4, SG.RowCount-1]:= fEdit.cena.Text;
end;