Вопросы с меткой [lazarus]
Не используйте эту метку вместе с меткой delphi, если только ваш вопрос ни касается проблем совместимости IDE или программирования на языке Delphi (не Pascal!) в Lazarus. Lazarus - свободная, кросс-платформенная среда разработки на языке Object Pascal использующая Free Pascal Compiler.
102
вопроса
0
голосов
0
ответов
8
показов
Lazarus: ошибка переполнения не могу понять почему
procedure TForm1.ShownAnswer(listA: TSQLQuery; RadioGroupA: TRadioGroup;var n:integer); //вывод n вопроса в DBMemo
var s:string;
i:integer;
begin
str(n,s); //Преобразование в ...
0
голосов
1
ответ
23
показа
Не выводит результат Lazarus
В Lazarus при нажатии зеленой кнопочки 'play' не появляеться консоль с результатом.
Это случилось после перехода с виндовс на линукс.
Советы из гугла не помогают ( пробовал на двух языках ).
0
голосов
0
ответов
40
показов
Index Out of range Cell[Col=13 Row=1]. помогите найти ошибку (Lazarus)
не могу понять где ошибка всего колонок 12, а строк 31 (Dies), а во втором случае Cumulus 3 колонки и 100 строк, при этом код порограммы правильно записан. И также в второй форме наоборот 100 колонок ...
0
голосов
1
ответ
22
показа
Как в 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
ответов
13
показов
Прокрутка TIpHTMLPanel Lazarus
Всем доброго времени суток!
Проблема заключается в том, что мне необходимо добавить функцию автопрокрутки ScrollBar-а в TIpHTMLPanel: после добавления "нового файла" в данную панель, ...
0
голосов
0
ответов
56
показов
Серийный номер SSD
Серийный номер SSD
Не могу получить корректный номер SSD (современных NVME) на Lazarus используя WMI.
Выдается серийник вида: 0025_3853_81B1_31EB. , а должен быть: S3ESNX0K368688A
Причем, AIDA64 2014 ...
1
голос
3
ответа
87
показов
Как можно сократить код в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text <> '') and (edit2.text <> '') and (edit3.text <> '')
and (edit4.text <> '') and (edit5.text <> ''...
-1
голос
1
ответ
25
показов
Ошибка External SIGSEGV Lazarus
Есть код, который должен слушать события формы, и при нажатии конкретной клавишы (в моем примере клавиша с буквой 'h') эта клавиша должна выводиться на элемент Memo, расположенный на форме.
Часть кода,...
0
голосов
0
ответов
22
показа
Lazarus под linux как добавить файл шрифта .fon
Под linux нет функции AddFontResource. Что может ее заменить?
0
голосов
0
ответов
15
показов
Проблемы со считыванием русских букв
В отладчике при считывании вместо русских букв вижу знаки вопросов Как исправить?
Код:
program project1;
uses
RegExpr, crt, ConvUtils, Classes, Windows, SysUtils, LazUTF8, strutils;
type
Births = ...
0
голосов
0
ответов
27
показов
Ошибка при работе с указателями(Lazarus)
Ошибка при работе с указателями(Lazarus). Ошибка illegal qualifier. Код взят из методички, данной для выполнения. Погуглив, понял, что скорее всего я пытаюсь работать, как с указателем, но по факту ...
2
голоса
0
ответов
57
показов
Чтение данных из cmd и сохранение результатов выполнения в файл [и любого консольного приложения] (на pascal, lazarus)
В run.cmd прописываю:
Запускаю проект:
Все работает, логи записываются в файл:
Проблема возникает, когда я пытаюсь запустить программу в которой очищается консоль...
Пример запуска через cmd:
...
0
голосов
0
ответов
21
показ
Замена на подгруппу
Есть код на Lazarus с использованием библиотеки RegExpr и код, заменяющий повторяющиеся слова подряд без учета регистра. Не получается заменить, работает не так, подскажите, что я делаю не так.
...
0
голосов
0
ответов
85
показов
подключение базы access к pascal
Не как подключение к базе через from среда lazarus
побывал
не как выдает ошибки и не добавляет данные в базу
генерирует исключение
procedure TForm3.ODBCConnection1AfterConnect(Sender: TObject); begin ...
0
голосов
1
ответ
26
показов
В чем ошибка при работе с динамическими массивами(Строю снежинку Коха)? На статическом всё работало. Lazarus
Вижу, что ругается на типы данных, но как это теперь заставить работать без понятия
procedure L_exec1(dl,teta:real; source,newF:string; n:integer; cnv: TCanvas);
// Исполнитель.
//dl - длина шага ...
0
голосов
0
ответов
35
показов
Как создать изображение из его текстового представления?
Если в IDE Lazarus где-либо добавить изображение и сохранить проект, то в файле .lfm проекта оно будет сохранено в виде текста. Вот пример:
...
-6
голосов
1
ответ
50
показов
Вычислить из всех чисел высшее и наименьшее [закрыт]
Надо в EDIT вписать любое количество чисел и с помощью кнопки определить самую большую цифру и маленькую
0
голосов
1
ответ
56
показов
Вызов переменной с динамическим именем Lazarus Pascal
есть форма со списками Memo1, Memo2, Memo3 и т.д
Нужно в цикле задать текст внутри списка по виду
i := 1;
while i < 5 do
begin
Memoi.Caption := i;
i := i + 1;
end;
Проблема в том, что я не ...
0
голосов
1
ответ
69
показов
Вычислить сумму элементов на данной картинке
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
ответов
69
показов
Как правильно сделать проход по кольцевой очереди?
Как правильно сделать проход по очереди для вывода информации этой очереди?
просто пробежаться по массиву от 0 до Arr_Size(длинна массива) нельзя(
комментарий препода "проход по очереди надо делать ...
2
голоса
2
ответа
119
показов
Как в Lazarus узнать, запаролен ли ZIP/Rar архив?
Пытаюсь узнать запаролен ли конкретный архив или нет. Для этого пробовал использовать библиотеку paszlib, а именно TZipper. Но я не смог найти ни одного метода или свойства, который был возвращал ...
1
голос
0
ответов
36
показов
Не возможно вызвать функцию FindAllFiles
В Lazarus есть функция поиска всех файлов по маске в заданном каталоге. Называется FindAllFiles. Описана она в официальном модуле LazFileUtils. Однако, воспользоваться ей не представляется возможным ...
0
голосов
1
ответ
14
показов
Найти форму, которая открывает файл
У меня есть кнопка, при нажатии которой, открывается окно, где нужно выбрать файл. Хочу изменить имя этого окна, не могу никак найти. Заранее спасибо.
0
голосов
1
ответ
20
показов
Удалить по пробелу из начала каждой строки текста, если он там есть(кнопка)
Мне нужно реализовать кнопку, при нажатии на которую удалится один пробел в начале строки во всем тексте, если он там есть.
Пишу на паскале в лазарусе.
Как пример: код кнопки, при нажатии на которую ...
0
голосов
1
ответ
70
показов
Lazarus утечки памяти
Я использую Lazarus версии 2.0.6(последняя на данный момент) под Linux.
Подскажите хоть 1 полностью рабочий способ поиска утечек памяти.
1
голос
1
ответ
48
показов
Сокет отправка файла, добавляется лишний байт
Такой вопрос: отправляю файл с сервера на клиент, сервер написан на лазарусе с использовнием synapse код отправки:
tstimgstream:=TFileStream.Create('C:/testimg.jpg',fmOpenRead);
tstimgstream.Seek(0, ...
1
голос
1
ответ
68
показов
Как во втором DBGrid-е отобразить все записи, которые принадлежат выделенной строке в первом DBGrid-е?
В БД есть две таблицы:
1 - менеджеры (ид, имя)
2 - клиенты (ид, ид_менеджера, имя)
Каждый клиент закреплен за одним и только одним менеджером.
На форме два `DBGrid, первый отвечает за таблицу ...
0
голосов
1
ответ
72
показа
Библиотека SDPO
Почему не ставится SDPO? требует какой-то synaser
0
голосов
1
ответ
582
показа
Lazarus: Работа со сканером Штрих-Кода, принимать данные с COM-порта
Lazarus. Задача №1: Написать программу с помощью которой можно будет определить повторяющиеся дисконтные карты. Процесс: Пользователь берёт стопку карт и последовательно их сканирует. Задача программы ...
1
голос
1
ответ
74
показа
Загрузка txt в tstringgrid
Как загрузить данные из текстового файла в стринггрид, так чтобы при встречи в txt табуляции данные переходили в новую ячейку. А также после загрузки записать данные ячеек в определённые поля записи?
0
голосов
1
ответ
26
показов
Mysql помощь при удалении запеси
Как исправить ошибку, чтобы удаление проходило?
1
голос
1
ответ
105
показов
Mysql и Lazarus
Какой код для лазаруса нужно написать , чтобы потом при запросе символы поменялись на UTF-8?
1
голос
0
ответов
20
показов
Ошибка access valiation в lazarus
Всем привет. Есть такая задача: на Lazarus составить две формы, первая работает хорошо, загружает данные в мемо, сортирует, составляет хэш , но при открытии вторую форму ( при вызове в меню поиска) , ...
0
голосов
1
ответ
341
показ
Как включить однооконный режим в lazarus?
Среда разработки Lazarus открывается в нескольких отдельных окнах: редактор кода, инспектор объектов, форма и верхняя панель инструментов. Как включить однооконный режим?
0
голосов
1
ответ
59
показов
Утечка памяти при работе со строками
В конструкции происходит утечка памяти:
str := 'ABC';
str := Copy(str, 1, Length(str) - 1);
Как это избежать?
Избежать элегантно (для рекурсивного использовния)?
procedure TForm1.Button3Click(...
1
голос
2
ответа
1k
показов
Как по клику по строке dbGrid получить значение из ячейки столбца?
Необходимо при клике на любом месте строки в компоненте dbGrid получить значение из ячейки столбца id. Как я понимаю отслеживать это дело нужно с помощью события oncellclick, но я не знаю как дальше ...
1
голос
1
ответ
425
показов
Как программно в принтере "поменять" размер бумаги?
..проект готов, приступаем к печати. Документы нужно разослать по принтерам.
Самый минимум: большие - на плоттер, маленькие - на ближайший принтер (прога знает на какие, и какие нужны форматы бумаги)....
0
голосов
0
ответов
48
показов
HttpGetText Lazarus'а работает не на всех машинах
Создал простой проект на Лазарусе, использующий HttpGetText
На двух машинах он возвращает результат с сервера, на третьей HttpGetText возвращает false после результата вызова.
С чем может быть ...
0
голосов
1
ответ
17
показов
Необходимо ,для созданной по ходу работы программы, кнопки установить процедуру 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
ответов
37
показов
Выход за пределы массива при закрытии приложения
У меня вот такой обработчик OnChange, который позволяет вводить в Edit только определенные символы (кириллица, латиница, без пробелов, т. е. одно слово).
procedure TForm1.Edit2Change(Sender: TObject);...
0
голосов
0
ответов
68
показов
Подскажите, пожалуйста, почему FindFirst не может найти файл?
var
searchResult : TSearchRec;
begin
//
//
// PATH SEARCHING
if FindFirst(MangasName.Text + '.txt', faAnyFile, searchResult) = 0 then
ListBox1.Items.SaveToFile(searchResult.Name)
else
...
2
голоса
1
ответ
180
показов
Как перевести ассемблерную функцию в код для паскаля?
Есть функция, написанная для Delphi, с ассемблерной вставкой, необходимо перевести ее в паскаль, самому это сделать не дает отсутствие глубоких знаний Ассемблера (познания оного остановились на Z80 в ...
0
голосов
0
ответов
1k
показов
Как создать вторую форму в Lazarus?
Я создала несколько форм. В первой форме я показала вторую (Unit2.Form2.Show). Проблема в том, что я её просто показала и не могу взаимодействовать с её компонентами. Мне нужно при помощи второй формы ...
1
голос
1
ответ
1k
показов
Как использовать объекты первой формы во второй? Lazarus
Например, я кладу Button1 на Form2. Button1 при нажатии должен произвести действия с Edit1.Text, который расположен на Form1.
2
голоса
1
ответ
554
показа
Как подождать 5 секунд?
Нужно чтобы программа подождала 5 секунд и потом дальше выполняла код.
Среда разработки Lazarus (free pascal).
1
голос
0
ответов
184
показа
Lazarus: после использования SetLength возникает exception class 'External: SIGSEGV'
Версия Lazarus 1.6.4 из репозитория Ubuntu 17.04.
Полный текст сообщения исключения:
Project project1 raised
exception class 'External: SIGSEGV'.
At address 431B31
Объявлен класс ...
0
голосов
0
ответов
233
показа
Сохранение изменения нажатых ячеек (DBGrid/Lazarus/Delphi)
В DBGrid выводим данные (из MSSQL-сервера, из представления), обработчик OnCellClick написан, делает то, что от него требуется.
Проблема в следующем: необходимо ячейки, которые были "кликнуты" ...
1
голос
0
ответов
46
показов
Lazarus отладка кода в библиотечных классах
По непонятной причине отладка в библиотечном коде теперь невозможна. При пошагофой отладке, дебагер останавливается на вызове и перепрыгивыет его, хотя нажимается F7. Так же в стандартной библиотеке, ...
1
голос
1
ответ
129
показов
ASM Вставки iDIV
//Pascal
NumX:=-40;
//Assm
MOV EAX,NumX
MOV ECX,4
IDIV ECX
MOV IntPart, EAX
Почему IntPart возвращает 1073741815?
0
голосов
1
ответ
58
показов
Не работает проверка массива на повторяющиеся слова
Задание -- найти повторяющиеся слова в массиве и вывести их. Решил реализовать вот так:
for i:=1 to 30 do
for i1:=1 to 30 do
if w[i1]=w[i] then
begin
write(w[i],' ');
break;
...