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

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

Фильтрация
Сортировка
Метки
0 голосов
0 ответов
61 показ

График функции для Delphi

Я до этого не сталкивался с Delphi, но прочитав некоторые источники немного понял как работать с формой. У меня проблема с постройкой графика ArcCos. Я не могу понять почему компилятор ругаеться из за ...
Олег's user avatar
0 голосов
1 ответ
15 показов

FCGIApp+Nginx+Lazarus+Debian

Всем доброго времени суток! У меня поступило задание написать FastCGI-приложение на Lazarus и заставить его работать в связке с Nginx на Debian. Что сделал я... Обновил FPC и Lazarus до последних ...
Дмитрий Соколов's user avatar
1 голос
0 ответов
37 показов

Lazarus. Использование GDI+. Access Violation

Занимаюсь переносом приложения из Delphi на Lazarus. Возникла проблема со следующим участком кода: uses GDIPAPI, GDIPOBJ; ... var ist:IStream; ms:TMemoryStream; img:TGPImage; begin ... ...
Nick00's user avatar
  • 11
0 голосов
2 ответа
51 показ

Работа с текстовыми полями Edit1.Text из своих процедур в Lazarus

Хочу сделать функцию очистки текстовых полей, т.к. одно и то же действие предполагается делать при помощи двух кнопок (кнопкой очистить и после сохранения текстового файла) - то это уменьшит размер ...
IronGoose1758's user avatar
1 голос
0 ответов
14 показов

Получаю сообщение Call to abstract method at address при попытке запуска отладки проекта weblaz 1.0

unit Unit1; {$mode objfpc}{$H+} interface uses SysUtils, Classes, httpdefs, fpHTTP, fpWeb, cthreads; type { TFPWebModule1 } TFPWebModule1 = class(TFPWebModule) procedure DataModuleCreate(...
Ангел.exe's user avatar
0 голосов
1 ответ
36 показов

Lazarus/SqlLite3 Не находит столбец

Делаю небольшую игру. Есть БД с таблицей: Есть метод создающий Броню на заказ: function TDataBaseManager.GetHeroArmor(nameOfArmor: String; armorType: XAbsArmorType; equipType: XAbsEquipmentType): ...
Виталий Пономарёв's user avatar
0 голосов
1 ответ
28 показов

Два минимальных элемента в строке. Седловые элементы

Pascal(lazarus). Дана задача на седловые элементы( Во 2 примере даны входные данные и в одной строке может быть 2 минимальных элемента. С такими данными, как седловые у меня выводятся только элементы ...
Иван's user avatar
0 голосов
0 ответов
32 показа

не работает CaseSensitive=true в TStringList (Lazarus, Delphi7)

Столкнулся со странным поведением TStringList (в Lazarus и Delphi7): отсутствие реакции на установку CaseSensitive:=true Uses SysUtils,Classes; Var FList:TStringList; BEGIN if ...
Vadim's user avatar
  • 1
0 голосов
1 ответ
58 показов

как повысить качество генератора слов без словаря

Как повысить качество генератора слов без словаря? Имеется код, но он не выдаёт качество как язык английского языка. Как же сделать без словаря понятные слова? Сымитировать, ссимулировать человеческий ...
хоббипрограммист's user avatar
-1 голос
1 ответ
105 показов

Lazarus Delphi Pasca Поиск строки в txt файле и вывод в Memo

Делаю проект-справочник OBD2 кодов, необходимо в txt файлах найти строку по номеру кода типа "Pyxxx" где "P" это буквы P,B,C,U; "y" это это число от 0 до 3 включительно; ...
Forester's user avatar
0 голосов
1 ответ
74 показа

Ошибка SQLConnection: near "index": syntax error

Пишу программу на Лазарусе. Бд на языке SQLite. При нажатии кнопки хочу обновить данные в бд и делаю следующее: fAuto.SQLQ.Close; fAuto.SQLQ.SQL.Clear; fAuto.SQLQ.SQL.Text := 'update books set ISBN=:...
D. Maksimov's user avatar
0 голосов
0 ответов
44 показа

Не собирается проект GUI в Lazaus на Linux Mint. Говорит, что нет unit db, а он есть

Установил Lazarus на Linux Mint. Создал проект для создания графического приложения на Free Pascal. При сборке проекта появляется ошибка:"fcllaz.pas(11,3) Fatal: Невозможно найти db, используемый ...
Morix2000's user avatar
0 голосов
1 ответ
132 показа

Не выводит результат Lazarus

В Lazarus при нажатии зеленой кнопочки 'play' не появляеться консоль с результатом. Это случилось после перехода с виндовс на линукс. Советы из гугла не помогают ( пробовал на двух языках ).
Agent 007's user avatar
0 голосов
0 ответов
98 показов

Index Out of range Cell[Col=13 Row=1]. помогите найти ошибку (Lazarus)

не могу понять где ошибка всего колонок 12, а строк 31 (Dies), а во втором случае Cumulus 3 колонки и 100 строк, при этом код порограммы правильно записан. И также в второй форме наоборот 100 колонок ...
Ка Ин's user avatar
0 голосов
1 ответ
103 показа

Как в lazarus в Linux подключить файл .so к проекту

{$mode objfpc}{$H+} uses Classes { you can add units after this }; function ret_num():integer; cdecl; begin Result := 2; end; exports ret_num; begin end. как сделать что б я мог вызвать ...
Alexandr  Samodurov's user avatar
0 голосов
0 ответов
72 показа

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

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

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

procedure TForm1.Button1Click(Sender: TObject); begin if (edit1.text <> '') and (edit2.text <> '') and (edit3.text <> '') and (edit4.text <> '') and (edit5.text <> ''...
user avatar
-1 голос
1 ответ
66 показов

Ошибка External SIGSEGV Lazarus

Есть код, который должен слушать события формы, и при нажатии конкретной клавишы (в моем примере клавиша с буквой 'h') эта клавиша должна выводиться на элемент Memo, расположенный на форме. Часть кода,...
Osiris74's user avatar
0 голосов
0 ответов
38 показов

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

Под linux нет функции AddFontResource. Что может ее заменить?
Ольга's user avatar
0 голосов
0 ответов
15 показов

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

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

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

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

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

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

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

Есть код на Lazarus с использованием библиотеки RegExpr и код, заменяющий повторяющиеся слова подряд без учета регистра. Не получается заменить, работает не так, подскажите, что я делаю не так. ...
HideME's user avatar
  • 445
0 голосов
0 ответов
144 показа

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

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

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

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

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

Если в IDE Lazarus где-либо добавить изображение и сохранить проект, то в файле .lfm проекта оно будет сохранено в виде текста. Вот пример: ...
AndroID's user avatar
  • 153
-6 голосов
1 ответ
58 показов

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

Надо в EDIT вписать любое количество чисел и с помощью кнопки определить самую большую цифру и маленькую
Gtrgziik's user avatar
0 голосов
1 ответ
64 показа

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

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

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

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; ...
Слава Данилов's user avatar
0 голосов
0 ответов
87 показов

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

Как правильно сделать проход по очереди для вывода информации этой очереди? просто пробежаться по массиву от 0 до Arr_Size(длинна массива) нельзя( комментарий препода "проход по очереди надо делать ...
pozib's user avatar
  • 1
3 голоса
2 ответа
174 показа

Как в Lazarus узнать, запаролен ли ZIP/Rar архив?

Пытаюсь узнать запаролен ли конкретный архив или нет. Для этого пробовал использовать библиотеку paszlib, а именно TZipper. Но я не смог найти ни одного метода или свойства, который был возвращал ...
Larboss's user avatar
  • 87
1 голос
0 ответов
46 показов

Не возможно вызвать функцию FindAllFiles

В Lazarus есть функция поиска всех файлов по маске в заданном каталоге. Называется FindAllFiles. Описана она в официальном модуле LazFileUtils. Однако, воспользоваться ей не представляется возможным ...
Larboss's user avatar
  • 87
0 голосов
1 ответ
22 показа

Найти форму, которая открывает файл

У меня есть кнопка, при нажатии которой, открывается окно, где нужно выбрать файл. Хочу изменить имя этого окна, не могу никак найти. Заранее спасибо.
chupas's user avatar
  • 33
0 голосов
1 ответ
21 показ

Удалить по пробелу из начала каждой строки текста, если он там есть(кнопка)

Мне нужно реализовать кнопку, при нажатии на которую удалится один пробел в начале строки во всем тексте, если он там есть. Пишу на паскале в лазарусе. Как пример: код кнопки, при нажатии на которую ...
Rudyboy69's user avatar
0 голосов
1 ответ
97 показов

Lazarus утечки памяти

Я использую Lazarus версии 2.0.6(последняя на данный момент) под Linux. Подскажите хоть 1 полностью рабочий способ поиска утечек памяти.
Canine_Qwer's user avatar
1 голос
1 ответ
71 показ

Сокет отправка файла, добавляется лишний байт

Такой вопрос: отправляю файл с сервера на клиент, сервер написан на лазарусе с использовнием synapse код отправки: tstimgstream:=TFileStream.Create('C:/testimg.jpg',fmOpenRead); tstimgstream.Seek(0, ...
RedCat's user avatar
  • 61
1 голос
1 ответ
156 показов

Как во втором DBGrid-е отобразить все записи, которые принадлежат выделенной строке в первом DBGrid-е?

В БД есть две таблицы: 1 - менеджеры (ид, имя) 2 - клиенты (ид, ид_менеджера, имя) Каждый клиент закреплен за одним и только одним менеджером. На форме два `DBGrid, первый отвечает за таблицу ...
AndreyVoropay's user avatar
0 голосов
1 ответ
88 показов

Библиотека SDPO

Почему не ставится SDPO? требует какой-то synaser
user356471's user avatar
1 голос
1 ответ
795 показов

Lazarus: Работа со сканером Штрих-Кода, принимать данные с COM-порта

Lazarus. Задача №1: Написать программу с помощью которой можно будет определить повторяющиеся дисконтные карты. Процесс: Пользователь берёт стопку карт и последовательно их сканирует. Задача программы ...
миха капа's user avatar
1 голос
1 ответ
99 показов

Загрузка txt в tstringgrid

Как загрузить данные из текстового файла в стринггрид, так чтобы при встречи в txt табуляции данные переходили в новую ячейку. А также после загрузки записать данные ячеек в определённые поля записи?
Настя 's user avatar
0 голосов
1 ответ
28 показов

Mysql помощь при удалении запеси

Как исправить ошибку, чтобы удаление проходило?
vitec's user avatar
  • 11
1 голос
1 ответ
119 показов

Mysql и Lazarus

Какой код для лазаруса нужно написать , чтобы потом при запросе символы поменялись на UTF-8?
vitec's user avatar
  • 11
1 голос
0 ответов
21 показ

Ошибка access valiation в lazarus

Всем привет. Есть такая задача: на Lazarus составить две формы, первая работает хорошо, загружает данные в мемо, сортирует, составляет хэш , но при открытии вторую форму ( при вызове в меню поиска) , ...
user avatar
0 голосов
1 ответ
469 показов

Как включить однооконный режим в lazarus?

Среда разработки Lazarus открывается в нескольких отдельных окнах: редактор кода, инспектор объектов, форма и верхняя панель инструментов. Как включить однооконный режим?
user avatar
0 голосов
1 ответ
83 показа

Утечка памяти при работе со строками

В конструкции происходит утечка памяти: str := 'ABC'; str := Copy(str, 1, Length(str) - 1); Как это избежать? Избежать элегантно (для рекурсивного использовния)? procedure TForm1.Button3Click(...
Alex's user avatar
  • 15
1 голос
2 ответа
2k показов

Как по клику по строке dbGrid получить значение из ячейки столбца?

Необходимо при клике на любом месте строки в компоненте dbGrid получить значение из ячейки столбца id. Как я понимаю отслеживать это дело нужно с помощью события oncellclick, но я не знаю как дальше ...
Константин Страмаус's user avatar
1 голос
2 ответа
555 показов

Как программно в принтере "поменять" размер бумаги?

..проект готов, приступаем к печати. Документы нужно разослать по принтерам. Самый минимум: большие - на плоттер, маленькие - на ближайший принтер (прога знает на какие, и какие нужны форматы бумаги)....
Олег Крук's user avatar
0 голосов
0 ответов
49 показов

HttpGetText Lazarus'а работает не на всех машинах

Создал простой проект на Лазарусе, использующий HttpGetText На двух машинах он возвращает результат с сервера, на третьей HttpGetText возвращает false после результата вызова. С чем может быть ...
Алексей -'s user avatar
0 голосов
1 ответ
18 показов

Необходимо ,для созданной по ходу работы программы, кнопки установить процедуру onclick для чего я хочу создать процедуру, но безуспешно

procedure a(sender: TObject; Banka: TImage; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton); begin Banka.Left:=Banka.round(Left+Form4.Left/4); end; Lazarus выдает ошибку! ...
KIRILL's user avatar
  • 1
1 голос
0 ответов
43 показа

Выход за пределы массива при закрытии приложения

У меня вот такой обработчик OnChange, который позволяет вводить в Edit только определенные символы (кириллица, латиница, без пробелов, т. е. одно слово). procedure TForm1.Edit2Change(Sender: TObject);...
Nick SM's user avatar
  • 11