External sigfpe lazarus что за ошибка

Вопросы с меткой [lazarus]

Не используйте эту метку вместе с меткой delphi, если только ваш вопрос ни касается проблем совместимости IDE или программирования на языке Delphi (не Pascal!) в Lazarus. Lazarus — свободная, кросс-платформенная среда разработки на языке Object Pascal использующая Free Pascal Compiler.

112 вопросов
Конкурсные
Неотвеченные

• Конкурсные 0
• Неотвеченные
• Цитируемые
• Рейтинг
• Неотвеченные (мои метки)

Серийный номер SSD

Серийный номер SSD Не могу получить корректный номер SSD (современных NVME) на Lazarus используя WMI. Выдается серийник вида: 0025_3853_81B1_31EB. , а должен быть: S3ESNX0K368688A Причем, AIDA64 2014 .

задан 28 ноя 2021 в 16:44
133 показа

Как можно сократить код в Lazarus

procedure TForm1.Button1Click(Sender: TObject); begin if (edit1.text <> ») and (edit2.text <> ») and (edit3.text <> ») and (edit4.text <> ») and (edit5.text <> ».

user425625
задан 19 окт 2021 в 19:50

Ошибка External SIGSEGV Lazarus

Есть код, который должен слушать события формы, и при нажатии конкретной клавишы (в моем примере клавиша с буквой ‘h’) эта клавиша должна выводиться на элемент Memo, расположенный на форме. Часть кода.

задан 7 сен 2021 в 14:35
39 показов

Lazarus под linux как добавить файл шрифта .fon

Под linux нет функции AddFontResource. Что может ее заменить?
задан 18 авг 2021 в 9:58
17 показов

Проблемы со считыванием русских букв

В отладчике при считывании вместо русских букв вижу знаки вопросов Как исправить? Код: program project1; uses RegExpr, crt, ConvUtils, Classes, Windows, SysUtils, LazUTF8, strutils; type Births = .

задан 3 июн 2021 в 9:50
79 показов

Ошибка при работе с указателями(Lazarus)

Ошибка при работе с указателями(Lazarus). Ошибка illegal qualifier. Код взят из методички, данной для выполнения. Погуглив, понял, что скорее всего я пытаюсь работать, как с указателем, но по факту .

задан 26 мая 2021 в 12:27

Чтение данных из cmd и сохранение результатов выполнения в файл [и любого консольного приложения] (на pascal, lazarus)

В run.cmd прописываю: Запускаю проект: Все работает, логи записываются в файл: Проблема возникает, когда я пытаюсь запустить программу в которой очищается консоль. Пример запуска через cmd: .

задан 13 янв 2021 в 12:31
29 показов

Замена на подгруппу

Есть код на Lazarus с использованием библиотеки RegExpr и код, заменяющий повторяющиеся слова подряд без учета регистра. Не получается заменить, работает не так, подскажите, что я делаю не так. .

• регулярные-выражения
• lazarus

задан 5 янв 2021 в 15:09
152 показа

подключение базы access к pascal

Не как подключение к базе через from среда lazarus побывал не как выдает ошибки и не добавляет данные в базу генерирует исключение procedure TForm3.ODBCConnection1AfterConnect(Sender: TObject); begin .

задан 20 дек 2020 в 17:30
35 показов

В чем ошибка при работе с динамическими массивами(Строю снежинку Коха)? На статическом всё работало. Lazarus

Вижу, что ругается на типы данных, но как это теперь заставить работать без понятия procedure L_exec1(dl,teta:real; source,newF:string; n:integer; cnv: TCanvas); // Исполнитель. //dl — длина шага .

задан 11 дек 2020 в 6:44
50 показов

Как создать изображение из его текстового представления?

Если в IDE Lazarus где-либо добавить изображение и сохранить проект, то в файле .lfm проекта оно будет сохранено в виде текста. Вот пример: .

задан 10 сен 2020 в 6:58

Вычислить из всех чисел высшее и наименьшее [закрыт]

Надо в EDIT вписать любое количество чисел и с помощью кнопки определить самую большую цифру и маленькую

задан 9 сен 2020 в 19:35
67 показов

Вызов переменной с динамическим именем Lazarus Pascal

есть форма со списками Memo1, Memo2, Memo3 и т.д Нужно в цикле задать текст внутри списка по виду i := 1; while i < 5 do begin Memoi.Caption := i; i := i + 1; end; Проблема в том, что я не .

задан 6 июл 2020 в 21:49
87 показов

Вычислить сумму элементов на данной картинке

procedure TForm1.Button1Click(Sender: TObject); var a: array of array of integer; n, i, j, s: integer; begin n := StrToInt(Edit1.Text); Setlength(a, n, n); stringGrid1.colcount := n; .

задан 18 июн 2020 в 17:14
103 показа

Как правильно сделать проход по кольцевой очереди?

Как правильно сделать проход по очереди для вывода информации этой очереди? просто пробежаться по массиву от 0 до Arr_Size(длинна массива) нельзя( комментарий препода «проход по очереди надо делать .

External sigfpe lazarus что за ошибка

Добрый день, поставил я себе задачку.
Ввожу в левое поле наименование продукта, в правое — его цену. Нажимаю на кнопку «Ввод», и все это должно записаться в один файл построчно в формате «продукт — цена». Для этого намутил вот такой вот код (нужно, чтобы каждый раз файл не переписывался, а дополнялся, поэтому ничего лучше, кроме стандартного паскалевского Append’a не придумал).
Программа компилится, запускается, ввожу данные, и, при нажатии на кнопку Ввода, мне прилетает такая вот ошибка. Ну и вот такую штуку выдает, когда нажимаю «Ок».
Кто может, подскажите, пожалуйста, как пофиксить, что изменить и т. д. На языке чайников, если можно
Form.pngСщву.pngОшибка.pngОшибка2.png

Регистрация: 20.04.2008
Сообщений: 5,512

если нумерация начинается с нуля(for j:=0 ) и всего строк 5(memoproduct.lines.count) то номера строк 0, 1, 2, 3, 4 ( for j:=0 to 4)
другими словами, строки с номером 5(memoproduct.lines.count) не существует.
offtop/ хотите чтобы привели исправление кода, приводите ТЕКСТ кода(кнопка #).

программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 01.04.2018 в 17:33 .
Программист
Участник клуба
Регистрация: 23.06.2009
Сообщений: 1,772

1) Вы первый эадолбаетесь всё это заполнять.. Скакать между двумя Мемо и выставлять цены против названий руками.. Придумайте что-нибудь другое!
2) А для чего, собственно, перед записью перегонять инфориацию в массивы?

Black Fregat

Посмотреть профиль

Найти ещё сообщения от Black Fregat

Регистрация: 01.04.2018
Сообщений: 6
Сообщение от Black Fregat

1) Вы первый эадолбаетесь всё это заполнять.. Скакать между двумя Мемо и выставлять цены против названий руками.. Придумайте что-нибудь другое!
2) А для чего, собственно, перед записью перегонять инфориацию в массивы?

1) Ничего особо сложного, просто жму tab =) Ну это не столь важно
2) Для того, чтобы после проще было выводить все это в таблицу, как бы в виде матрицы

Регистрация: 09.01.2008
Сообщений: 26,238

quri4ever, Вы ответ на свой вопрос (см. #2 от evg_m) не проглядели?

p.s. не относится к теме, но я с мнением Black Fregat согласен — так и заполнять крайне неудобно и не информативно (неудобно).
и вы наверняка не обеспечиваете одновременный скролл и одновременное вертикальное позиционирование в двух мемо сразу.
короче, имхо, такой подход категорически не годится.
тогда хотя бы stringgrid используйте.

Последний раз редактировалось Serge_Bliznykov; 02.04.2018 в 09:24 .

Serge_Bliznykov

Посмотреть профиль

Найти ещё сообщения от Serge_Bliznykov

Регистрация: 20.04.2008
Сообщений: 5,512

quri4ever, Вы ответ на свой вопрос (см. #2 от evg_m) не проглядели?

там есть и другие AV (SIGSEGV), но .

приводите ТЕКСТ кода(кнопка #).

а также Copy + Paste
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 02.04.2018 в 09:54 .

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка External: SIGSEGV по адресу 7333F15A	mnbvcxz11	Lazarus, Free Pascal, CodeTyphon	0	15.06.2017 17:33
Ошибка External: SIGSEGV в файле .\Include\rasterimage.inc	Armageddets	Lazarus, Free Pascal, CodeTyphon	0	15.05.2017 15:19
lazarus, выдёт ошибку, Fatal: Syntax error, «BEGIN» expected but «end of file» found.	Артём14	Lazarus, Free Pascal, CodeTyphon	3	12.11.2016 18:35
Ошибка «External: sigsegv» при нажатии на кнопку	голова	Lazarus, Free Pascal, CodeTyphon	4	30.06.2015 16:22
unresolved external «. » referenced from «. *.OBJ»	dware	Общие вопросы C/C++	1	05.05.2009 17:29

Lazarus

• Free Pascal
• Website
• Downloads
• Wiki
• Documentation
• Bugtracker
• Mailing List
• Lazarus
• Website
• Downloads (Laz+FPC)
• Packages (OPM)
• FAQ
• Wiki
• Documentation (RTL/FCL/LCL)
• Bugtracker
• CCR Bugs
• IRC channel
• GIT
• Mailing List
• Other languages
• Foundation
• Website
• Useful Wiki Links
• Project Roadmap
• Getting the Source
• Screenshots
• How to use the forum

Свойство MaxLength у TEdit и кодировка UTF8

Вот какая возникла проблема. Нужно ограничить количество символов, которые может ввести пользователь в TEdit. Для этого предназначено свойство MaxLength, но оно не понимает кодировку UTF8, а именно с ней и работает Lazarus (странно, да, работает с этой кодировкой, но свойства ее не понимают).

В итоге если, скажем, прописать MaxLength := 30, то длина строки будет ограничена лишь 15 символами для русского текста.

Применил костыльное решение:
1. Установил MaxLength := 60, то есть в два раза больше, чем надо (но так оно пропустит более 30 нерусских символов).
2. На обработчик события KeyPress прописал следующее:

 if (Key >= ' ') and (UTF8Length(TEdit(Sender).Text) >= 30) then Key := #0;

Оно, конечно, как-то работает, но, во-первых, это реальный костыль, а, во-вторых, работает только если вводить прямо с клавиатуры, а если скопировать длинный текст из буфера, то ограничение не сработает.

Можно, конечно, еще дополнительно проверять длину текста и обрезать его, если окажется длиннее, но это уже двойной костыль будет.

Есть ли нормальное решение проблемы?

Добавлено в Lazarus, Free Pascal. Дата Июнь 18th, 2023

18th
Янв

Компонент ShortPathEdit в lazarus

В lazaruse на вкладке LazControl есть компонента ShortPathEdit с полем ввода и кнопкой выбора каталога. Не могу понять как работать с кнопкой. После выбора через диалог каталога заполняется атрибут Directory, но само поле ввода остается пустым. Подскажите какое событие ловить по окончанию выбора директории? Или это нужно как-то по другому реализовывать?

Добавлено в Lazarus, Free Pascal. Дата Январь 18th, 2023

30th
Ноя

О сколько нам открытий чудных.. или о делении на 0 в Delphi без ошибки и в Lazaus с ошибкой

Давно уже пишу на Delphi, но до сих пор бывают открытия.
Код

var a,b:Word; // или Integer begin b:=0; a:=1 div b; // . 

нормально прокатывает в Delphi , а в Lazaus при запуске — аварийный выход, .. класс исключения «External: SIGFPE»

Правда, если в Delphi добавить после деления

Memo1.Lines.Add(IntToStr(a));

тоже будет ошибка при запуске.

В чем там разница? Пробовал или — ничего не меняется.

Добавлено в Delphi, Lazarus, Free Pascal. Дата Ноябрь 30th, 2021

18th
Авг

Русские буквы в Консольном приложении Lazarus

Оператор
Writeln(‘Русские буквы’);
печатает абракадабру вместо русских букв в Простой программе или в Консольном приложении в Lazarus 2.02.12.
Как исправить?

Добавлено в Lazarus, Free Pascal. Дата Август 18th, 2021

4th
Фев

Выгрузка TImage в Excel

На форме есть TImage с изображением. Пытаюсь вставить в Excel: копирую изображение из TImage в буфер обмена. Затем вставляю в Excel с помощью команды PasteSpecial. В итоге на PasteSpecial все время возникает исключение EOleException с текстом:
Метод PasteSpecial из класса Worksheet завершен неверно.

procedure TfmMain.TestBtnClick(Sender: TObject); var Img: TImage; xla: Variant; xls: Variant; begin Img:=TImage.Create(nil); xla := CreateOleObject('Excel.Application'); xla.Workbooks.Add; xls := xla.Workbooks[1].WorkSheets[1]; xls.Name := 'Sheet1'; xla.Visible:=True; Clipboard.Assign(Img.Picture); xla.Cells(5,5).Select; xls.PasteSpecial(5,False,False,False,0,EmptyParam,EmptyParam); Img.Free; end;

Версия Lazarus: 1.6.4
Версия FPC: 3.0.4
Я думаю, что все дело в том, что неправильно передаются параметры в PasteSpecial. Если у кого-нибудь есть рабочий вариант, поделитесь пожалуйста.

Добавлено в Lazarus, Free Pascal. Дата Февраль 4th, 2021