Ошибка "External: sigsegv" при нажатии на кнопку

Программирование на Pascal

Модератор: trubb

Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
голова
проходил мимо
Сообщения: 1
Зарегистрирован: 2015-06-17 21:54:04

Ошибка "External: sigsegv" при нажатии на кнопку

Непрочитанное сообщение голова » 2015-06-17 21:55:53

Вылетает ошибка при нажатии на кнопку- класс исключения "External: sigsegv". помогите пожалуйста завтра надо сдать курсач или отчислят.
Вот код этой кнопки, компилирует нормально:
Код 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;
Последний раз редактировалось f_andrey 2015-06-17 23:29:53, всего редактировалось 1 раз.
Причина: Автору. пожалуйста, оформляйте сообщение по человечески.

Аватара пользователя
trubb
лейтенант
Сообщения: 864
Зарегистрирован: 2005-03-16 17:42:26
Откуда: сами мы не местные, приехали на лечение

Ошибка "External: sigsegv" при нажатии на кнопку

Непрочитанное сообщение trubb » 2015-06-18 15:50:48

modalresult имха лишний - форма его сама задает, не спа?
иГрАюВсТрАйКбОл!


Вернуться в «Delphi, Lazarus, Free Pascal»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость