Вопросы с меткой [lazarus]
Не используйте эту метку вместе с меткой delphi, если только ваш вопрос ни касается проблем совместимости IDE или программирования на языке Delphi (не Pascal!) в Lazarus. Lazarus - свободная, кросс-платформенная среда разработки на языке Object Pascal использующая Free Pascal Compiler.
112
вопросов
0
голосов
0
ответов
61
показ
График функции для Delphi
Я до этого не сталкивался с Delphi, но прочитав некоторые источники немного понял как работать с формой. У меня проблема с постройкой графика ArcCos. Я не могу понять почему компилятор ругаеться из за ...
0
голосов
1
ответ
15
показов
FCGIApp+Nginx+Lazarus+Debian
Всем доброго времени суток!
У меня поступило задание написать FastCGI-приложение на Lazarus и заставить его работать в связке с Nginx на Debian. Что сделал я...
Обновил FPC и Lazarus до последних ...
1
голос
0
ответов
37
показов
Lazarus. Использование GDI+. Access Violation
Занимаюсь переносом приложения из Delphi на Lazarus. Возникла проблема со следующим участком кода:
uses GDIPAPI, GDIPOBJ;
...
var ist:IStream;
ms:TMemoryStream;
img:TGPImage;
begin
...
...
0
голосов
2
ответа
51
показ
Работа с текстовыми полями Edit1.Text из своих процедур в Lazarus
Хочу сделать функцию очистки текстовых полей, т.к. одно и то же действие предполагается делать при помощи двух кнопок (кнопкой очистить и после сохранения текстового файла) - то это уменьшит размер ...
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(...
0
голосов
1
ответ
36
показов
Lazarus/SqlLite3 Не находит столбец
Делаю небольшую игру. Есть БД с таблицей:
Есть метод создающий Броню на заказ:
function TDataBaseManager.GetHeroArmor(nameOfArmor: String; armorType: XAbsArmorType; equipType: XAbsEquipmentType): ...
0
голосов
1
ответ
28
показов
Два минимальных элемента в строке. Седловые элементы
Pascal(lazarus). Дана задача на седловые элементы(
Во 2 примере даны входные данные и в одной строке может быть 2 минимальных элемента. С такими данными, как седловые у меня выводятся только элементы ...
0
голосов
0
ответов
32
показа
не работает CaseSensitive=true в TStringList (Lazarus, Delphi7)
Столкнулся со странным поведением TStringList (в Lazarus и Delphi7): отсутствие реакции на установку CaseSensitive:=true
Uses SysUtils,Classes;
Var FList:TStringList;
BEGIN
if ...
0
голосов
1
ответ
58
показов
как повысить качество генератора слов без словаря
Как повысить качество генератора слов без словаря?
Имеется код, но он не выдаёт качество как язык английского языка. Как же сделать без словаря понятные слова? Сымитировать, ссимулировать человеческий ...
-1
голос
1
ответ
105
показов
Lazarus Delphi Pasca Поиск строки в txt файле и вывод в Memo
Делаю проект-справочник OBD2 кодов, необходимо в txt файлах найти строку по номеру кода типа "Pyxxx" где "P" это буквы P,B,C,U; "y" это это число от 0 до 3 включительно; ...
0
голосов
1
ответ
74
показа
Ошибка SQLConnection: near "index": syntax error
Пишу программу на Лазарусе. Бд на языке SQLite. При нажатии кнопки хочу обновить данные в бд и делаю следующее:
fAuto.SQLQ.Close;
fAuto.SQLQ.SQL.Clear;
fAuto.SQLQ.SQL.Text := 'update books set ISBN=:...
0
голосов
0
ответов
44
показа
Не собирается проект GUI в Lazaus на Linux Mint. Говорит, что нет unit db, а он есть
Установил Lazarus на Linux Mint. Создал проект для создания графического приложения на Free Pascal. При сборке проекта появляется ошибка:"fcllaz.pas(11,3) Fatal: Невозможно найти db, используемый ...
0
голосов
1
ответ
132
показа
Не выводит результат Lazarus
В Lazarus при нажатии зеленой кнопочки 'play' не появляеться консоль с результатом.
Это случилось после перехода с виндовс на линукс.
Советы из гугла не помогают ( пробовал на двух языках ).
0
голосов
0
ответов
98
показов
Index Out of range Cell[Col=13 Row=1]. помогите найти ошибку (Lazarus)
не могу понять где ошибка всего колонок 12, а строк 31 (Dies), а во втором случае Cumulus 3 колонки и 100 строк, при этом код порограммы правильно записан. И также в второй форме наоборот 100 колонок ...
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.
как сделать что б я мог вызвать ...
0
голосов
0
ответов
72
показа
Серийный номер SSD
Серийный номер SSD
Не могу получить корректный номер SSD (современных NVME) на Lazarus используя WMI.
Выдается серийник вида: 0025_3853_81B1_31EB. , а должен быть: S3ESNX0K368688A
Причем, AIDA64 2014 ...
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 <> ''...
-1
голос
1
ответ
66
показов
Ошибка External SIGSEGV Lazarus
Есть код, который должен слушать события формы, и при нажатии конкретной клавишы (в моем примере клавиша с буквой 'h') эта клавиша должна выводиться на элемент Memo, расположенный на форме.
Часть кода,...
0
голосов
0
ответов
38
показов
Lazarus под linux как добавить файл шрифта .fon
Под linux нет функции AddFontResource. Что может ее заменить?
0
голосов
0
ответов
15
показов
Проблемы со считыванием русских букв
В отладчике при считывании вместо русских букв вижу знаки вопросов Как исправить?
Код:
program project1;
uses
RegExpr, crt, ConvUtils, Classes, Windows, SysUtils, LazUTF8, strutils;
type
Births = ...
0
голосов
0
ответов
64
показа
Ошибка при работе с указателями(Lazarus)
Ошибка при работе с указателями(Lazarus). Ошибка illegal qualifier. Код взят из методички, данной для выполнения. Погуглив, понял, что скорее всего я пытаюсь работать, как с указателем, но по факту ...
2
голоса
0
ответов
90
показов
Чтение данных из cmd и сохранение результатов выполнения в файл [и любого консольного приложения] (на pascal, lazarus)
В run.cmd прописываю:
Запускаю проект:
Все работает, логи записываются в файл:
Проблема возникает, когда я пытаюсь запустить программу в которой очищается консоль...
Пример запуска через cmd:
...
0
голосов
0
ответов
27
показов
Замена на подгруппу
Есть код на Lazarus с использованием библиотеки RegExpr и код, заменяющий повторяющиеся слова подряд без учета регистра. Не получается заменить, работает не так, подскажите, что я делаю не так.
...
0
голосов
0
ответов
144
показа
подключение базы access к pascal
Не как подключение к базе через from среда lazarus
побывал
не как выдает ошибки и не добавляет данные в базу
генерирует исключение
procedure TForm3.ODBCConnection1AfterConnect(Sender: TObject); begin ...
0
голосов
1
ответ
33
показа
В чем ошибка при работе с динамическими массивами(Строю снежинку Коха)? На статическом всё работало. Lazarus
Вижу, что ругается на типы данных, но как это теперь заставить работать без понятия
procedure L_exec1(dl,teta:real; source,newF:string; n:integer; cnv: TCanvas);
// Исполнитель.
//dl - длина шага ...
0
голосов
0
ответов
49
показов
Как создать изображение из его текстового представления?
Если в IDE Lazarus где-либо добавить изображение и сохранить проект, то в файле .lfm проекта оно будет сохранено в виде текста. Вот пример:
...
-6
голосов
1
ответ
58
показов
Вычислить из всех чисел высшее и наименьшее [закрыт]
Надо в EDIT вписать любое количество чисел и с помощью кнопки определить самую большую цифру и маленькую
0
голосов
1
ответ
64
показа
Вызов переменной с динамическим именем Lazarus Pascal
есть форма со списками Memo1, Memo2, Memo3 и т.д
Нужно в цикле задать текст внутри списка по виду
i := 1;
while i < 5 do
begin
Memoi.Caption := i;
i := i + 1;
end;
Проблема в том, что я не ...
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;
...
0
голосов
0
ответов
87
показов
Как правильно сделать проход по кольцевой очереди?
Как правильно сделать проход по очереди для вывода информации этой очереди?
просто пробежаться по массиву от 0 до Arr_Size(длинна массива) нельзя(
комментарий препода "проход по очереди надо делать ...
3
голоса
2
ответа
174
показа
Как в Lazarus узнать, запаролен ли ZIP/Rar архив?
Пытаюсь узнать запаролен ли конкретный архив или нет. Для этого пробовал использовать библиотеку paszlib, а именно TZipper. Но я не смог найти ни одного метода или свойства, который был возвращал ...
1
голос
0
ответов
46
показов
Не возможно вызвать функцию FindAllFiles
В Lazarus есть функция поиска всех файлов по маске в заданном каталоге. Называется FindAllFiles. Описана она в официальном модуле LazFileUtils. Однако, воспользоваться ей не представляется возможным ...
0
голосов
1
ответ
22
показа
Найти форму, которая открывает файл
У меня есть кнопка, при нажатии которой, открывается окно, где нужно выбрать файл. Хочу изменить имя этого окна, не могу никак найти. Заранее спасибо.
0
голосов
1
ответ
21
показ
Удалить по пробелу из начала каждой строки текста, если он там есть(кнопка)
Мне нужно реализовать кнопку, при нажатии на которую удалится один пробел в начале строки во всем тексте, если он там есть.
Пишу на паскале в лазарусе.
Как пример: код кнопки, при нажатии на которую ...
0
голосов
1
ответ
97
показов
Lazarus утечки памяти
Я использую Lazarus версии 2.0.6(последняя на данный момент) под Linux.
Подскажите хоть 1 полностью рабочий способ поиска утечек памяти.
1
голос
1
ответ
71
показ
Сокет отправка файла, добавляется лишний байт
Такой вопрос: отправляю файл с сервера на клиент, сервер написан на лазарусе с использовнием synapse код отправки:
tstimgstream:=TFileStream.Create('C:/testimg.jpg',fmOpenRead);
tstimgstream.Seek(0, ...
1
голос
1
ответ
156
показов
Как во втором DBGrid-е отобразить все записи, которые принадлежат выделенной строке в первом DBGrid-е?
В БД есть две таблицы:
1 - менеджеры (ид, имя)
2 - клиенты (ид, ид_менеджера, имя)
Каждый клиент закреплен за одним и только одним менеджером.
На форме два `DBGrid, первый отвечает за таблицу ...
0
голосов
1
ответ
88
показов
Библиотека SDPO
Почему не ставится SDPO? требует какой-то synaser
1
голос
1
ответ
795
показов
Lazarus: Работа со сканером Штрих-Кода, принимать данные с COM-порта
Lazarus. Задача №1: Написать программу с помощью которой можно будет определить повторяющиеся дисконтные карты. Процесс: Пользователь берёт стопку карт и последовательно их сканирует. Задача программы ...
1
голос
1
ответ
99
показов
Загрузка txt в tstringgrid
Как загрузить данные из текстового файла в стринггрид, так чтобы при встречи в txt табуляции данные переходили в новую ячейку. А также после загрузки записать данные ячеек в определённые поля записи?
0
голосов
1
ответ
28
показов
Mysql помощь при удалении запеси
Как исправить ошибку, чтобы удаление проходило?
1
голос
1
ответ
119
показов
Mysql и Lazarus
Какой код для лазаруса нужно написать , чтобы потом при запросе символы поменялись на UTF-8?
1
голос
0
ответов
21
показ
Ошибка access valiation в lazarus
Всем привет. Есть такая задача: на Lazarus составить две формы, первая работает хорошо, загружает данные в мемо, сортирует, составляет хэш , но при открытии вторую форму ( при вызове в меню поиска) , ...
0
голосов
1
ответ
469
показов
Как включить однооконный режим в lazarus?
Среда разработки Lazarus открывается в нескольких отдельных окнах: редактор кода, инспектор объектов, форма и верхняя панель инструментов. Как включить однооконный режим?
0
голосов
1
ответ
83
показа
Утечка памяти при работе со строками
В конструкции происходит утечка памяти:
str := 'ABC';
str := Copy(str, 1, Length(str) - 1);
Как это избежать?
Избежать элегантно (для рекурсивного использовния)?
procedure TForm1.Button3Click(...
1
голос
2
ответа
2k
показов
Как по клику по строке dbGrid получить значение из ячейки столбца?
Необходимо при клике на любом месте строки в компоненте dbGrid получить значение из ячейки столбца id. Как я понимаю отслеживать это дело нужно с помощью события oncellclick, но я не знаю как дальше ...
1
голос
2
ответа
555
показов
Как программно в принтере "поменять" размер бумаги?
..проект готов, приступаем к печати. Документы нужно разослать по принтерам.
Самый минимум: большие - на плоттер, маленькие - на ближайший принтер (прога знает на какие, и какие нужны форматы бумаги)....
0
голосов
0
ответов
49
показов
HttpGetText Lazarus'а работает не на всех машинах
Создал простой проект на Лазарусе, использующий HttpGetText
На двух машинах он возвращает результат с сервера, на третьей HttpGetText возвращает false после результата вызова.
С чем может быть ...
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 выдает ошибку! ...
1
голос
0
ответов
43
показа
Выход за пределы массива при закрытии приложения
У меня вот такой обработчик OnChange, который позволяет вводить в Edit только определенные символы (кириллица, латиница, без пробелов, т. е. одно слово).
procedure TForm1.Edit2Change(Sender: TObject);...