‘External: SIGSEGV’ — подскажите, что это?
скобки специально опустил, чтоб отследить где вылетает, и ошибка показывает на строку, где вторая скобка, т.е. если я правильно понял не возвращается число из strtofloat, но в других методах такая же конструкция возвращает нужное значение.
з.ы. по паскалю литературы начитался, а по лазарусу краткое руководство только, а хорошо владею только с++ консольками.
Лучшие ответы ( 1 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
Что за external: sigsegv?
Вот тут такая задачка, начал соединять формы и тут во время теста получил эту ошибку external.
Ошибка External:sigsegv, что делать?
unit Unit1; interface uses Classes, SysUtils, FileUtil, Forms.
Что за ошибка «External: SIGSEGV»?
Подскажите как избавится от ошибки External:SIGSEGV? она возникает вот здесь, т.е. при самой.
External: SIGSEGV
Я пишу программу, по обучению Английского и сперва хочу сделать алфавит с помощью массива из BitBtn.
593 / 544 / 207
Регистрация: 24.01.2012
Сообщений: 1,342
Подозреваю, что проблема в функции cutrub. Точнее в данных, которые в неё попадают. Например, если вместо Русской р будет английская p. Наверняка в функции такое не предусмотрено.
3488 / 2611 / 741
Регистрация: 19.09.2012
Сообщений: 7,972
Сообщение было отмечено no1imits как решение
Решение
Сделай обратный цикл.
Регистрация: 23.01.2014
Сообщений: 24
В cutrub просто отсекаются 2 последних символа строки, и в других методах уже проверена ее работоспособность.
Добавлено через 21 минуту
Сообщение от FIL 
Сделай обратный цикл.
понял — заработало.
а разве во время работы и удаления строк, .count не должно измениться так, чтоб не было несанкционированного обращения к памяти?
. хотя с таким проходом, как минимум, без i— такой код пропустит по строке после каждого удаления.
forum.lissyara.su
Если есть силы бежать – кто поверит, что нет сил драться?!
Ошибка «External: sigsegv» при нажатии на кнопку
Программирование на Pascal
Модератор: trubb
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
- Отправить тему по email
- Версия для печати
Первое новое сообщение • 2 сообщения • Страница 1 из 1
голова проходил мимо Сообщения: 1 Зарегистрирован: 2015-06-17 21:54:04
Ошибка «External: sigsegv» при нажатии на кнопку
- Пожаловаться на это сообщение
- Цитата
Вылетает ошибка при нажатии на кнопку- класс исключения «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 раз.
Причина: Автору. пожалуйста, оформляйте сообщение по человечески.
Как исправить ошибку external SIGSEGV
External: SIGSEGV нужно исправить. Хотел сделать Квадратное Уравнение в Лазарусе
Мне нужно чтобы дискриминант какой меньше нуля, мог решать, а не делать ошибку External: SIGSEGV.
External: SIGSEGV
Привет. Начал сейчас изучать классы, написал вроде как простейший класс, но на 10-й строке.
External: SIGSEGV
Я пишу программу, по обучению Английского и сперва хочу сделать алфавит с помощью массива из BitBtn.
External:SIGSEGV
Намучился с это программой, уже не знаю что делать. Помогите! Выдает ошибку External:SIGSEGV.
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
Наверное Вы зря повесили это на TForm1.FormCreate.
Регистрация: 06.05.2018
Сообщений: 95
А как поставить картинку, которую пользователь поставил в предыдущей сессии работы за программой?
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
Моя твоя не понимай.
пофигист широкого профиля
4689 / 3125 / 857
Регистрация: 15.07.2013
Сообщений: 18,044
Сообщение было отмечено Илья1302 как решение
Решение
А почему бы этот код не поместить в TForm3.FormCreate?
Регистрация: 06.05.2018
Сообщений: 95
Смотрите, пользователь впервые запустил программу, выбрал картинку и закрыл программу. Далее снова её открывает и картинка сразу ставится та, которую выбрал в предыдущий раз
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
Сообщение было отмечено Илья1302 как решение
Решение
Сообщение от Илья1302
которую выбрал в предыдущий раз
Значит перед закрытием программы путь к ней нужно где-то сохранить, например в файле, а при открытии загрузить по пути в файле.
Добавлено через 41 секунду
Но делать нужно в Create той формы, куда грузим.
Регистрация: 06.05.2018
Сообщений: 95
Да, действительно! Спасибо, работает)
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь
External: SIGSEGV в форме
Доброго вам. Первый раз занимаюсь любовью с формами. Суть состоит в том, что эта коварная ошибка.
Что за external: sigsegv?
Вот тут такая задачка, начал соединять формы и тут во время теста получил эту ошибку external.
Lazarus error External: SIGSEGV
Не понимаю, в чем ошибка. Уже все перепробовал. Код: unit Unit3; .
‘External: SIGSEGV’ — указывает на BEGIN
procedure TRialtoForm.QSortDes(min: integer; max: integer; k: integer); var mid, l, r.
Ненавистная ошибка External:SIGSEGV
Программа банальна. Два элемента Memo, создается матрица, выводится в Memo1, потом идет обработка.
SaveDialog и ошибка External: SIGSEGV
Здравствуйте. Столкнулся с непонятным поведением в Lazarus, а именно рандомным появлением.
Ошибка в Lazarus SIGSEGV (Xp)
У меня написана прога в Лазарусе, но при запуске он выдает ошибку Project raised exception class ‘External: SIGSEGV’ и не дает запускать по шагово сразу её и выводит, помогите, как исправить.
unit Unit1; interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Buttons; type < TForm1 >TForm1 = class(TForm) BitBtn1: TBitBtn; Button1: TButton; ComboBox1: TComboBox; ComboBox2: TComboBox; Edit1: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Memo1: TMemo; Panel1: TPanel; Panel2: TPanel; RadioGroup1: TRadioGroup; ScrollBar1: TScrollBar; procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: char); procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); private < private declarations >public < public declarations >end; var Form1: TForm1; implementation < TForm1 >procedure TForm1.Button1Click(Sender: TObject); var rast: real; cena: real; potr: real; suma: real; obsuma: real; skidka: real; stroka: string; begin rast:=StrToFloat(Edit1.Text); cena:=StrToInt(ComboBox1.Text); potr:=StrToFloat(ComboBox2.Text); suma:=(rast/100) * potr * cena; suma:=suma*2; If RadioGroup1.ItemIndex=1 then Begin stroka:='Поездка на дачу и обратно обойдется Вам в '; Memo1.Lines.Add(stroka + FormatFloat('####.## рублей ',suma)); End else Begin Stroka:='Поездка на дачу и обратно(со скидкой в 5%)обойдется Вам в '; skidka:=suma*0.05; obsuma:=suma-skidka; Memo1.Lines.Add(stroka + FormatFloat('####.## рублей ',obsuma)); End; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char); begin If not (Key in ['0'..'9', #8]) then Key:=chr(0); end; procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin ComboBox1.Text:=IntToStr(ScrollBar1.Position); end; initialization end.
| dyavolenok_shef |
| Посмотреть профиль |
| Отправить персональное сообщение для dyavolenok_shef |
| Отправить Email для dyavolenok_shef |
| Найти все сообщения от dyavolenok_shef |