Форум программистов и сисадминов Киберфорум

Темы раздела Lazarus

Цикл с параметром
Если ставится for BFCount := variable1 downto 0 do begin ... end;, то выполнится один раз при BFCount=0. Хорошо, я не против, но тогда мне интересно как далеко в зашли разработчики в этой...

Флаг Zero как значение переменной
Есть некоторое выражение математическое, и в нём переменная, можно-ли флаг Zero устанавливать как значение этой переменной и соответственно считать выражение не проверяя условий?

Lazarus 3.0, установка
Вышел новый Lazarus. Не хотелось бы ошибиться при переустановке, принцип остаётся таким же, как на рисунке? (по мотивам рекомендаций volvo)

Быстрая сортировка и вывод двумерного массива змейкой
Всем привет Собственно сама задача звучит так: произвести сортировку элементов квадратной матрицы в соответствии с заданной схемой (I), порядком сортировки (II) и методом упорядочивания (III). ...

Lazarus и Р7-Офис
Всем добра друзья! Ситуация импортозамещения... Переходим на РедОс, в качестве офиса будет Р7-Офис. Все проекты мои написаны на Делфи 7. Осваиваю Lazarus под Линукс, все нормально, но проблема с...

Нужно удалить компонент "TCastleControlBase" из проекта и всякое связанное с ним
Если у кого есть винда. Файл большой, потому что я не знаю что можно удалить, там всё связано. Я в Linux ничего не могу сделать, а там парсер. Я могу извлечь его, но лучше когда со всем барахлом и...

Ошибка в коде программы по нахождению в списке повторяющихся элементов
Помогите найти ошибку программы, которая должна проверить, есть ли в списке L хотя бы один повторяющийся элемент. unit unit12; {$mode objfpc}{$H+} interface uses

Работа с кириллицей
Здравствуйте, уважаемые форумчане. Не могу понять, где ошибка. Дана строка символов. Найти количество точек. С русскимим буквами работает неправильно. Модуль LazUtf8 подключен. procedure...

Controls в ячейках StringGrid. Артефакты
Дорого времени суток! Есть StringGrid. В ячейки вписаны чекбоксы и комбобоксы. При отрисовке появляются артефакты. А при прокрутке вообще жесть - в отдельных местах появляется то, чего не должно...

Нарисовать заданную геометрическую фигуру, которая перемещается по заданной траектории
Всем привет В общем вторая лаба оказалась ещё убойнее предыдущей. Никто ничего не показывал, не рассказывал. Ни одой пары не провели. И задали такое. Нарисовать заданную геометрическую фигуру,...

Аппроксимация кривых
Добрый вечер, форумчане! Очень вероятно, этот вопрос уже поднимался не раз. Может кто сталкивался, поделитесь, пожалуйста, ссылками на ресурсы по аппроксимации кривых: экспоненциальной...

Перетащить созданные компоненты form1 в отчёт LazReport
Здравствуйте, как перетащить созданные компоненты на форме, например stringgrid в LazReport. Чтобы созданная таблица StringGrid отображалась в отчёте ?

Работает только шесть нажатий
Здравствуйте. Программа всегда в неактивном окне. Такое дело: В Form.Create Ставлю ловушку hook := SetWindowsHookEx(WH_KEYBOARD_LL, @LLKeyProc, GetModuleHandle(nil), 0); Есть функция...

TStringGrid режим редактирования
Опять засада. Неправильно работает режим редактирования TStringGrid. Чтобы не тащить все простыни, сделал контрольные примеры. Код на Delphi. procedure TForm2.Button1Click(Sender: TObject);...

Можно ли закрепить вторую клавиатуру за конкретным компонентом?
Китайский считыватель RFID-карт определяется, как вторая клавиатура (до этого был российский R5-USB, который определялся как виртуальный COM-порт). При считывании карты её номер выводится в активный...

Исключения на математике
А что, lazarus математические исключения не обрабатывает? unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Math;

Подскажите, какими свойствами обладает компонент TCheckGroup, как их правильно использовать (не менее 10 свойств)?
Разработать приложение, которое показывает свойства компонента CheckGroup. Для демонстрации выбрать не менее 10 свойств и приемов использования компонента

Координаты ячейки TStringGrid
Есть вот такой TStringGrid (см. вложение), хочу разделить некоторые ячейки на области. Чтобы при клике на одну часть ячейки выполнялась одна функция, на другую - другая (ячейка - в фиксированной...

ComboBox
Доброго времени суток. Пытоюсь создать обложку для консольной программы но невыходит. Нужно из ComboBox передать переменные параметры для запуска программы, а есть постаянные которые должны быть...

Связь между Lazarus и Python
Доброй ночи всем! Хочу узнать как связать Python скрипт с программой Lazarus. Например, у меня есть скрипт Python и в качестве входных данных он будет принимать строку. Я в Lazarus ввожу например в...

Как уменьшить файл, сохраняемый из TImage?
Суть такая. Загружаю картинку в TImage из камеры. Камера даёт изображение размером 1920х1080. Размер TImage 362x204 (свойство Stretch=true). После сохранения изображения в файле...

Ошибка возникает, но откуда она берется не врубаюсь
В lazrus (в ос Linux Ubuntu 21.10) создаю прогу компилирую все работает (на форме располжены поля MEMO из которых при нажатии клавиши ВЫЧИСЛЕНИЕ берутся данные и выводится результат), я делаю поля...

Копирование чисел из одной таблицы в другую при условии запрета
Здравствуйте, помогите пожалуйста. Как сделать так, чтобы числовые данный копировались с одного StringGrid в другой, но при условии что после копирования во второй StringGrid их нельзя прописывать...

Пробема чтения примечания из эксель-файла
Вот такой код работал в Delphi. var IExcel,ICells:Variant; ... IExcel:=CreateOleObject('Excel.Application'); IExcel.WorkBooks.Add(fn); IExcel.Visible:=False;...

Интерполяция полиномом второго порядка
Добрый день! Подскажите, пожалуйста, как можно улучшить интерполяцию данных. В моем коде (приведу его ниже) интерполяция строится следующим образом: 1. Через каждые 5 точек с координатами X...

Тележка движение вверх и вниз
День добрый, прошу помощи с решением проблемы, помогите заставить тележку двигаться вверх и вниз , но при нажатии кнопок чтоб не было конфликта и тележка не улетела наискосок, пример ( едет вправо,...

Удалить цифры в строке
Добрый вечер, уважаемые эксперты. Помогите, пожалуйста, решить задачу: Дана строка s. Известно, что среди символов данной строки имеется хотя бы один пробел и что первый символ строки s отличен от...

Не могу разобраться с углом
procedure TForm1.Button1Click(Sender: TObject); var krylo:extended; radius:extended; DiametrDugiKrylo:extended; radiusTurbiny:extended; secheneSumm:extended; areaZazor:extended;...

Вычитание одной ячейки StringGrid с другой StringGrid
Здравствуйте, помогите пожалуйста разобраться, как вычесть значение одной ячейки из другой. Например, есть два StringGrid - а. Из ячейки со значением "10" первого StringGrid1 нужно вычесть ячейку со...

Создание гиперссылки в StringGrid
Здравствуйте, подскажите как сделать гиперссылку на определённую форму в ячейке StringGrid в Lazarus ?

Как вставить в RichMemo рисунок из ImageList?
Необходимо, чтобы в RichMemo по центру сверху отображался логотип фирмы. В прилагаемых примерах к компоненту есть пример (inline), позволяющий вставлять изображение и даже выполнять мультипликацию....

Обработка данных от нескольких последовательных портов
На заправочной станции установлены 8 колонок, которые управляются компьютером через RS-485. По требованию заказчика каждая колонка должна подключаться через свой COM-порт (можно, конечно, посадить их...

Импорт проекта/формы из Delphi
Здравствуйте. Как правильно импортировать проект из Delphi? Как правильно импортировать одну форму проекта Delphi в свой проект Lazarus? Возникла потребность перейти на программирование на...

Переносимость программ на Lazarus в Linux/
Вот в этой теме https://www.cyberforum.ru/lazarus/thread2955482.html с сообщения 15, спрашивал о развёртывании программ на lazarus под linux на других компьютерах. Экспериментировал, вроде...

Загрузка нескольких файлов
Добрый день, форумчане. Подскажите, пожалуйста, как оптимальнее структурировать данные. Передо мной стоит задача одновременной загрузки нескольких файлов (думаю, здесь использовать...

Удаление строк из текстового файла
всем доброго времени суток! передо мной стоит задача по запросу, вводимому с клавиатуры, удалить фамилию, имя и номер из файла. с нахождением искомых данных я справился, а вот, как удалить, понять не...

Компонент Tchart автоматическое масштабирование осей
Всем добра! Строю график по двум столбцам грида, масштабирование осей произвожу вручную кнопками, подскажите как сделать чтобы автоматически оси меняли значения ! for i := 1 to...

В качестве f(x) использовать по выбору: sh(x), x2, ex
Очень нужна помощь с созданием программы. Выполнить индивидуальное задание в соответствии с вариантом. В качестве f(x) использовать sh(x),x^2,e^x (Организовать экранное меню из трёх пунктов(...

Восстановить свёрнутую форму - проблема
Не хочется делать форму "sizable", поэтому делю свою кнопку свёртывания form1.FormStyle:=fsNormal; // form1.WindowState:=wsMinimized; ShowWindow(form1.Handle,SW_HIDE); В "обычной"...

Lazarus добавляет библиотеки в uses
Доброе утро, день, вечер... Скажите плиз (уже надоело бороться)... Пока редактируешь окно программы, Lazarus накидывает в секцию USES одни и те-же библиотеки... Выгядит это так... USES...

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

Подключение к серверу PostgreSQL через SSH
Выделили мне для удалённой отладки сервер с Postgresql, и подключили через туннель SSH. Сертификаты, ключи, пароль, все дела. Проверили, подключили - работает. Теперь у меня возникает вопрос: а...

Где вы применяете Lazarus?
Вопрос в заголовке.

Странное поведение события FormClose
всех приветствую! пишу программу для прослушивания аудиокниг. на рабочей машине установлена Windows 11 и последний lazarus. нужно, чтобы программа запоминала позицию воспроизведения, при запуске...

Как узнать номер жёсткого диска или подключённого внешнего носителя, зная его букву?
здравствуйте всем! функции DiskFree и DiskSize параметром принимают номер диска, у которого требуется получить размер или количество свободного места, а можно ли как-то узнать номер диска, зная его...

Фильтрация таблицы StringGrid
В Lazarus внутри обработчика события Button1Click следующий код: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 1 to StringGrid1.RowCount - 1 do begin ...

Сравнить две обыкновенные дроби
Пошаговая демонстрация правила сравнения обыкновенных дробей с разными знаменателями. Исходные две дроби для сравнения задает пользователь приложения. Как разработать данное приложение? В плане...

Линейная аппроксимация
Добрый вечер! Подскажите, пожалуйста, полезные ресурсы о линейной аппроксимации в Лазарусе. Всем спасибо!

Где в настройках убрать отладочное сообщение
Вот это сообщение выскакивает при выходе из программы в режиме отладки, причём, только под Windows. Где его убрать, кто знает?

Как связать Lazarus и макросы на LibreOffice Basic?
Интересует обмен информацией в режиме клиент-сервер. Ну, кроме как через файлы.

Проблема при подключении к PostgreSQL 16.1-1
Столкнулся с проблемой при подключении к PostgreSQL 16.1-1: "Can not load PostgreSQL client library "libpq.dll". Check your instsllation". Решения, которые нашёл в Интернете к версии 16.1-1 не...

Ошибка в файле ресурсов
Создаю файл ресурсов командой: lazres CarWeights_v01.lrs Нет_номера.png Нет_изображения.png 0_нет.png 1_приехала.png 2_опознана.png 3_заезжает.png 4_заехала.png 5_взвешивание.png 6_взвешена.png...

Продолжить выполнение программы после возникновения исключения
Добрый день. Не могу понять, как продолжить выполнение программы после возбуждения исключения. Есть код: try DoSomethingCritycal; except

Простой векторный редактор
Доброго времени суток. Меня огорчало отсутствие векторных примитивов (линия) в Lazarus в отличие от того же PascalABC. Решил попробовать сделать что-то самостоятельно (именно векторные объекты)....

Расчет контрольной суммы файла по crc32
Как правильно рассчитать контрольную сумму файла по crc32? При использовании IdHashCRC считает отличную от других расчетных программ хеш. Реализую расчет так: uses , IdHashCRC , IdHash... ...

Найти произведение целых нечетных чисел в Lazarus
Найти произведение целых нечетных чисел, кратных 7 в диапазоне от -N до N

Два алиаса одного объекта
Можно ли сделать так, чтобы объект имел несколько алиасов? Пример: У меня есть много объектов, например, TPen, которые называются по-разному var...

Позиционирование выбранного элемента в выпадающем списке TComboBox
Привет народ! При открытии выпадающего списка в TComboBox, выбранный элемент всегда расположен в самом верху окошка (список длинный и выбранный не в начале и не в конце). Мне нужно его сдвинуть...

Как уменьшить количество знаков после запятой в TDBGrid1 (TRxDBGrid1)?
В базе данных хранятся числа в формате Real с точностью 1 знак после запятой. В саму базу числа записываются правильно, а при выводе в TDBGrid добавляется куча знаков после запятой. Отказаться от...

Допиливание TAChart
На Delphi графики выводил в Excel (см. вложение). На linux Excel нет, поэтому пока решил освоить TAChart. И столкнулся с такой проблемой. Графики проходят отдел нормоконтроля, и есть определённые...

Проблема с ScrollBox
Здравствуйте! На форме (Form1) есть TScrollBox1, в котором находятся элементы TImage. При нажатии на TImage(находящаяся в TScrollBox1) TImage должна скопироваться в буфер обмена. При запуске файла...

Буфер обмена, пользовательский формат
Редактор сохраняет координаты в массиве: type TVertex2s = record // Координаты вершин в миллиметрах. X, Y: Single; end; var tvM: Array of TVertex2s; В книге "Библия Delphi" М.Е....

Контекстная справка для программ на lazarus под linux
Есть ли какие-то инструменты, типа как HTML Help Workshop в Windows?

Дана вещественная матрица размером 5x4. Упорядочить ее строки по неубыванию их первых элементов
Доброго времени суток,такая проблема есть. Делал программу для задания в универе. Сделал программу,зациклилась она в общем. Размещайте код в текстовом виде.

Сохранить содержимое ячейки StringGrid в файл
Подскажи пожалуйста, как сделать так, чтобы в StrinGrid сохранялась только определённая строка таблицы ? В FormCreate таблицы прописывал код, а он почему - то не работает (...

Вывод StringGrid в Excel
Всем добра!!! Народ помогите!!! есть такой код приведенный ниже все работает, все как мне надо! Но есть проблема которая состоит в том , что когда пытаюсь новые данные из stringgrid сохранить в...

Логин и пароль нескольких пользователей
Здравствуйте, подскажите, как сделать форму с логином и паролем нескольких пользователей, а не одного ? Чтобы, например, при вводе логина и пароля одной учётной записи программа входила в form1, а...

Добавление дочерних узлов в TreeView
Добрый день! Есть проблемка с добавлением первого дочернего узла. Если у родительского узла есть потомки, проблем с добавлением и последующим редактированием нового дочернего узла нет. Но если...

Динамический массив условия
Через что сделать условие, чтобы положительные и отрицательные элементы матрицы попали из 1 во 2 и 3-ю procedure TForm1.Button4Click(Sender: TObject); var b: array of array of integer; i,j:integer;...

Определить новый курс корабля
Приветствую. Подпрограммы процедур и функций. Задача: объявлены типы и переменные TYPE kurs=(s,v,u,z) prikaz=(vpered,vpravo,nazad,vlevo) var k1,k2:kurs; pr:prikaz; Корабль сначала шел...

Несовместимость определений констант
В программе одновременно использую компоненты TAdvLed, TComPort и TComComboBox. При размещении их на форме в разделе uses были подключены файлы ... AdvLed, CPortCtl, CPort, ... При попытке изменить...

Переносимость системы адресации из Delphi в Lazarus
Написал в своё время для Delphi вот такой модуль - сбалансированное двоичное дерево для сортировки координат: unit BTrees; {$MODE Delphi} interface ...

Код не хочет работать корректно:(
Задание звучит так: "Написать программу, которая считывает текст из файла и выводит его на экран, после каждого предложения добавляя, сколько раз встретилось в нем введенное с клавиатуры слово"....

Проблема с выводом текстовой информации и добавление строк
Первые попытки вывести информацию из SQLite в Lazarus. Порылся в интернете, нашел что есть, а есть не много, и сделал следующую форму. Данные числа из таблицы SQLite выводятся, но не выводятся...

Ошибка отладчика
Дней 5 как уже периодически стала появляться "Ошибка отладчика". Раньше такого не было. После появления такой ошибки перекомпилирую проект в режиме без отладки, перехожу в режим с отладкой и...

Можно ли по таймеру закрыть "MessageDlg"?
Пишу программу, которая в случае проблем сообщает оператору о них с помощью "MessageDlg". Если оператор не отреагировал в течении какого-то времени, то как закрыть это сообщение и продолжить...

Непонятки с TFormatSettings
В проекте, где много форм, получаю пустые значения DecimalSeparator, FormatSettings.DecimalSeparator, DefaultFormatSettings.DecimalSeparator. И никак не могу получить региональные настройки...

Создать непустые списки с использованием указателей
Написала код первые два условия работают, а вот последние два совсем нет, не понимаю как исправить. Буду очень благодарна если поможете! Вот задача: Создать непустые списки L1 и L2 с использованием...

Как сделать динамический массив?
Как сделать динамический массив, который генерирует случайную матрицу

Алгоритм Минимакс для "Крестики-нолики"
Привет всем, подскажите, как реализовать алгоритм минимакс на Lazarus и вообще можно ли?

Программно нарисовать фигуры (рыбы, цветы), отобразить по заданному алгоритму
15) Написать код нв lazarus, который рисует 8 геометрических рыбок, где тело это овал с точкой , хвост треугольник, два плавника с верху и снизу в виде треугольника. При нажатии Button1 на Paintbox...

Как узнать выполнено ли обновление в базе данных?
Использую БД PostgreSQL, но это не принципиально, т.к. компоненты для связи с таблицей такие же, как и у других БД (SQLTransaction1, SQLQuery1) и специфический для данной БД - PQConnection1. Для...

Параметры процесса в Linux
Доброго дня всем. Подскажите как получить информацию о моей программе(процессе), а именно сколько памяти занимает, сколько потоков, насколько грузит ЦП и т.д. и т.п. Интересует вариант кода под...

Вьювер схем для verilog
Есть проблема - вьювер схем от производителя, наверное любого. Вьюверы не имеют настроек, не позволяют позиционировать элементы и прочее, непозволяют изменять и не могут запоминать положение,...

Программирование под Android
Скорее это не вопрос, а просто хотел бы поделиться общением на международном форуме на эту тему. 29 апреля - 5 мая 2024 года вышло несколько обновлений надстроек LAMW...

Вышел Lazarus 3.2. Несовместимости с ZeosLib
Контролы новые, современные, прямо похорошели. Но -так и не сумел скомпилировать Zeosdbo 8.0 А со старым Zeos 7.2.14 не совместим новый DBGrid Использую Zeos, так как коннекчусь к Postgres....

Переполнение буфера порта RS232 при отладке
Использую компонент TComPort Подключённое к нему внешнее устройство с периодичностью 100 ms отправляет в него пакеты по 36 байт. Порт только "слушает", т.е. использую процедуру OnRxChar и, когда...

Медленный StretchDraw в Linux
Доброго времени суток! Переношу небольшой проект на Delphi в Linux, проект получает фреймы (видео), из сторонней либы , определенным образом обрабатывает их, выводит на экран через...

Не могу понять в чем ошибка
Пытаюсь запустить код как консольное приложение, но как ни исправляю, появляется одна и та же ошибка Program BookStore; uses Classes, SysUtils; type TBook = class private

Объясните пожалуйста, что здесь не так?
используя предоставленную программ провести исследования влияния сеточных параметров на точность решения в указанной точке пластины. Программа реализует локально – одномерный метод решения двумерной...

Игра Пятнашки или Пятнадцать на Delphi
Всем привет, сейчас делаю курсовую на делфи, все сделал, осталось только при помощи списков сделать сохранение времени игры и кол-во ходов и вывод в текстовый файл. Прикрепляю проект.

Как отсечь и разделить символы в слове?
Доброе время суток! в БД пишется сумма, например 43000.00. Но на самом дел это 430 р. 00 коп. Изменить запись в БД варианта нет. Как можно из строки убрать последние три символа и затем крайние два...

Как вывести число с заданной пользователем точностью
Как мне вывести число с заданнной пользователем точностью? То есть пользователь вводит данные для расчета и точность (Е). Например 0.01. Затем я вывожу число, при расчете может получится громоздкое...

Шифрование текста в Lazarus
Прошу составить код с любым методом шифрования в лазарус! Просмотрел все что возможно и нигде нет работающего и в шифровании и в дешифрования Попытки создать свой код не увенчались успехом ...

Запоминать индексы комбобокса
Как правильно запоминать индексы комбобокса перед выходом? Допустим, комбобокс содержит только два значения: '%' и 'единицы измерения'. В зависимости от переключения комбобокса пересчитываются...

Имеет ли уравнение корень на отрезке [0..1,6] (использовать метод деления отрезка пополам)
Написать программу, которая выводит true или false в зависимости от того, имеет ли уравнение: 2*x-cos(x)=0 корень на отрезке (использовать метод деления отрезка пополам). Когда задаю тип данных...

Asprise OCR для установки Delphi Pascal
Asprise OCR для установки Delphi Pascal можно ли переделать под Lazuras? https://asprise.com/ocr/sdk/docs/html/asprise-ocr-delphi-pascal-library.html по этой ссылке создал в Лазурасе...

Русификация системных сообщений
Коллеги! Допускаю, что такое уже спрашивали ранее, но "в лоб" поиском не нашел, так что звиняйте! Вопрос: Можно ли каким-то образом (желательно "штатным") русифицировать сообщения, которые могут...

Метод координат
И вот такое задание, о котором мне ничего не давали на лекции. Метод координат. Может кто чего подскажет, как реализовать. Заранее спасибо.

Где скачать FPC Trunk?
Переустановил Lazarus и установил последнюю версию LAMW (надстройка для разработки ПО под Android). Старая вервия LAMW позволяла из меню загружать FPC Trunk, в новой версии такого пункта в меню нет....

Инициализация полей классов
Всем здравствуйте. const FREQ = 10; // Эти константы будут использоваться только внутри класса. Куда их поместить DEL_DAY = 900; INTERVAL = 3; type {$PACKRECORDS 1} ArchData...

Построение графика функции
Добрый день!!! Помогите мне, пожалуйста, мне очень срочно надо создать проект построения графика функции y=cos(x)/(1-x), где x принадлежит от -пи до пи с помощью компонента TChart, заранее огромное...

Возведение в произвольную степень
Доброго... времени, кода - всего :) Запутался, как возвести число в произвольную степень? В данном конкретном случае в отрицательную целую степень. В книжке Мансурова написано - Xn=en*ln(x) В...

Как изменить цвет формы?
Нужно вобщем сделать так: Столбик RudioButton-ов с названиями цветов. Кнопка Смена цвета Выбираешь цвет, жмёшь кнопку-и форма должна поменять цвет. Я так понимаю, что надо по клику на кнопку...

Калькулятор сделанный на Lazarus
Искал везде код калькулятора под Lazarus. Нигде не нашел. Пришлось делать самому) Этот калькулятор полная копия обычного калькулятора в Windows 7.

Ошибка: Проект вызвал класс исключения External:SIGSEGV
Привет! Работаю над приложением для работы с оценками учеников. Решил начать с раздела настроек. При вводе кол-ва оценок учащихся проект вызывает класс исключения External:SIGS EGV. Данные вводятся...

Ошибка: project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found
project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found выдает эту ошибку при компиляции. Написал самое элементарное : procedure TForm5.Button1Click(Sender: TObject);...

Базы данных в Lazarus
Хочу написать какую-нибудь программу на Lazarus'е... еще никогда не пробовал писать базы данных. Хотелось бы создать нечто наподобие базы данных "По красивым местам планеты", ну или что-то в этом...

Получить количество записей в таблице SQLite
В процессе создания приложения возникла огромная куча вопросов по работе с БД в Lazarus. Вот несколько наиболее актуальных для меня вопросов по этой теме: 1. Необходимо получить информацию о кол-ве...

Последовательность a1, a2, …, an состоит из нулей и единиц. Поставить в начало этой последовательности нули
Здравствуйте! помогите, пожалуйста, написать программу на языке паскаль в лазарусе. Для всех задач входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над...

Сохранение файла в exe
Помогите пожалуйста!!! нужен код для лазарус, чтобы при нажатии кнопки сохранить, сохранялся исходный код, т.е. файл проекта exe. чтобы потом можно было его свободно открывать без программы

Ошибка "Fatal: Syntax error, ";" expected but "." found"
звучит задание: создай программу, в которой можно преподнести введенное пользователем число к указанному степеню. покапавшись на всяких форумах и тп, написал код. вроде бы все ок. но при...

Создание калькулятора на Lazarus
Сделал калькулятор, но проблема в процентах, он выдаёт не тот результат который должен получится. Ещё когда нажимаешь на 0, он может ставится бесконечно. Помогите пожалуйста. unit Unit1; ...

Составить программу 'Крестики-нолики'
Доброго времени суток! Очень нужно к завтрашнему дню составить программу на lazarus крестики нолики (поле 3X3). Помогите пожалуйста, а то я очень слабо ориентируюсь в программировании! Заранее...

Ввод и сохранение данных в текстовом файле
есть программа для решения систем типа: a11x1+a12x2=b1 a21x1+a22x2=b2 надо сделать так,чтобы данные а11,а12, а21,а22,б1,б2 брались с текстового файла и чтобы ответ х1,х2 выводились в текстовом...

RadioGroup
Помогите выполнить задание: На городской субботник деканат закрепил за группами электроснабжения следующие объекты: 99Э1 – территория у входа в 14 корпус; 99Э2 – аудитория 15201; 99Э3 – коридор 2...

Как поменять иконку исполняемого файла exe?
как поменять иконку исполняемого файла exe?

Картинка на фон формы
Картинка на фон формы. Это реально?

Написание приложений под Android на Lazarus-е
Здравствуёте! Хотел бы поделиться своим впечатвлением о написании приложений под Android на Lazarus-е. Гуру Delphi и Lazarus-а прошу строго не судить - я не профессиональный программист, а...

Изменение цвета при нажатии на кнопку
Изначальный цвет-зеленый. После каждого нажатия изменяется цвет формы в последовательности зеленый-красный-желтый. Помогите

Список команд для lazarus
Прошу дать мне список команд в программе lazarus данная программа использует язык paskal

Error: Illegal expression
Выдает ошибку unit1.pas(613,34) Error: Illegal expression в в последней строке из двух copyTimeBoxMaxY := AOfLabelInATimeBoxMaxY; copyTimeBoxMaxY.nalichie = true; при условии что в типах...

Решение квадратных уравнений через графическое приложение
Всем привет, сказали сделать приложение через которое решаются квадратные уравнения вида ax^2+bx+c=0 Создал 6 полей Edit, в первое поле записать число a, во второе b, в третье c, в четвертое x1, в...

Задачки) Умоляю, помогите...
1. Создайте приложение «Как дела?», которое запрашивает имя пользователя с помощью текстового поля Edit, и выдает личное приветствие с помощью метки Label. Например, если пользователь ввел «Олег», то...

Как запустить другую форму
При запуске автоматически запускается Form1, а как запустить в начале, например, Form2? И как правильно переключаться между формами, например, мне необходимо попасть в настройки моей программы и я...

Событие при нажатии клавиши Enter
Как создать событие которое активируется при нажатии клавиши Enter? Или любой другой?

Округление реального числа к большему целому
Подскажите пожалуйста функцию лазаруса для округления реального числа к целому, но к большей части, например 1200/500=2.4? а надо что бы выдавало не 2, а 3, а то функция Round к меньшему...

Программное создание DXF-файлов
Здравствуйте! Всех с наступающим Новым годом!!! Хочу поделиться опытом программного создания DXF-файлов - вдруг кому-то пригодится. Сам не раз пользовался полезными советами и чужими примерами...

Заливка кнопок в Лазарус
Можно ли менять цвет фона кнопок в Лазарус?

Как перейти с одной формы на другую?
Помогите кто знает как из одной формы в другую перейти??? Два раза кликаю по кнопке procedure TForm1.Button1Click(Sender: TObject); begin Form2.show; end; прописываю но не...

Как принять данные с COM-порта, используя Synaser?
Здравствуйте. У меня на компе 2 закольцованных COM-порта: на одном моя программа, на другом терминалка. Есть модуль Synaser из библиотеки Synapase. Как принять с порта один/пакет байт? Дайте рабочие...

Как запустить программу в Lazarus?
установлена Free Pascal Lazarus версия: 1.2.0 написал простенький код. жму в меню Запуск - Запустить. всплывает маленькое пустое окошко Form1 и ничего не происходит, хотя в шапке программы...

Как нарисовать треугольник?
Помогите пожалуйста. Пишу программу для построения графиков. Вся математика и процедуры написаны ранее. Мне нужно только разобраться в коде и разбросать его по нужным местам. Для понимания, как оно...

Закрыть форму
Доброго времени суток. Помогите пожалуйста. У меня есть форма с главным меню. Я решил сделать закрытие через диалоговое окно. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);...

Как русифицировать Лазарус?
чтоб Lazarus русофицировать? Ребята, подскажите.

Ошибка: Incompatible types: got "Double" expected "LongInt"
Всем привет программирую на Лазрусе простая задача выдает ошибку unit1.pas(46,36) Hint: use DIV instead to get an integer result unit1.pas(46,18) Error: Incompatible types: got "Double" expected...

Учёт кодировки
var f:textfile; c:char; begin AssignFile(f,'file.txt'); ReSet(f); Read(f,c); // Как здесь прочитать символ, не зависимо от дефолтной кодировки? Например, у меня на убунте...

Как убрать ошибку: Can't create object file: Calc.exe (error code: 5)?
Calc.lpr(20,1) Error: Can't create object file: Calc.exe (error code: 5) Calc.lpr(20,1) Error: Can't create executable Calc.exe Делал, делал калькулятор, а тут вот такое, а главное раньше всё...

Запуск стороннего приложения из лазаруса
Доброго времяни суток. Как в лазарусе открыть сторонний файл? например ярлык или текстовый документ или программу? как в делфи открыть мне уже говорили но с лазарусом проблемы.

Парсинг txt файла, как лучше сделать?
Задача следующая есть стандартный txt файл, его размерность может достигать до 1-2 Мб Его структура примерно такая... (0/ 1;"Сваи_пружинки"; 2:"Microsoft";/ 2;5/ 23; 10 2 12 4 6 0...

Ошибка External: SIGFPE
Помогите пожалуйста исправить ошибку. Нужно было сделать программу, которая бы решала многочлен методом barstow (деление на многочлен), но при вычислении dr (39 строка) программа выдает ошибку ...

Как исправить Warning: Local variable "x" does not seem to be initialized
как исправить эту ошибку unit1.pas(50,10) Warning: Local variable "x" does not seem to be initialized unit Unit1; {$mode objfpc}{$H+}

В Lazarus помогите справиться. Создание мини-игры
Я создал в Lazarus что то наподобе игры. Естественно для ознакомления и учебы... У меня получилось что изображение image1 двигается по полю клавишами w,a,s,d командами left и top. А...

Нужно сделать Калькулятор в проге Lazarus 1.6.2
Нужно сделать Калькулятор в проге Lazarus 1.6.2 Проект, в котором нужно вычислить сумму, разницу, произведение или деление нужен код

Текстовые файлы лазарус
Здравствуйте. Есть вопрос по лазарусу. Как очистить текстовый файл и как создать текстовый файл с заданным именем через лазарус?

Обработка исключений Lazarus - простейший пример
Здравствуйте. Научите меня правильно использовать обработку исключений на примере деления на ноль. Добавил просто блок try-except - оно не работает. Не нашел в интернете ни одного рабочего примера. ...

Как правильно написать условие if ?
имеются три поля tedit. и кнопка "сложить". условие такое: если в полях tedit1 и tedit2 пусто или записаны не числа, операция сложения tedit1 и tedit2 не происходит. а если в полях tedit1 и...

Error: Identifier not found
Помогите мне с работой в лазарусе. Так как изучать начала его сравнительно недавно, никак разобраться с ошибками(( procedure TFormOptions.ButtonOkClick(Sender: TObject); Var MyColor:TColor;...

Звук в Лазарус
В Delphi в библиотеке System есть компонент MediaPlayer. В Лазарус я этот компонент нигде не нашла. Подскажите, пожалуйста, есть ли в Лазарус какой-нибудь аналог MediaPlayer? Если есть, то где он?...

Динамические TThread
Добрый день. Интересуюсь, как правильно создавать динамические потоки TThread, а ещё больше - как передать данные в каждый поток (заполнить стартовый массив, так сказать), а потом в главном потоке...

Переход между формами
Здравствуйте. Помогите, пожалуйста. Хочу сделать программу с 2 формами, на 1 форме кнопка, при нажатии на кнопку 1 форма должна закрываться, а 2 открываться. Если использовать Form1.Close, то...

При попытке открыть файл, в пути которого есть символы на кириллице, возникает ошибка: Unable to open file
Добавил на форму OpenDialog, Memo. При попытке открыть файл в пути которого есть символы на кириллице возникает ошибка Unable to open file. Как исправить?

Работа с текстом и файлами в lazarus
Задача заключается в следующем:нужно открыть некий файл в котором есть текс,взять оттуда этот текст и вывести в окно программы,затем данный текст форматируется таким образом чтобы отступ слева был n...

Ошибка: Can't open resource file
пишет такую ошибку Error: Can't open resource file "C:\Users\????????\Desktop\7.13\Unit1.dfm" проверьте что не так пожалуйста!!!!

Работа с UTF8 в Lazarus 1.6
Здравствуйте. При загрузке проекта в недавно вышедший Lazarus 1.6 получаю предупреждения, что функции работы с юникодом SysToUTF8 и UTF8ToSys не работают ("deprecated"). При компиляции и запуске...

Программное создание события
Здравствуйте =) Допустим, я создаю, во время работы программы, кнопку, как мне этой созданной кнопке задать событие... ну например OnClick? Поиском пользовался, ненашел =)

Генератор случайных английских букв
Здравствуйте. Помогите пожалуйста! Нужно сделать генератор случайных английских букв .

Почему не определяется идентификатор UTF8ToConsole?
Изучаю Лазарус по книге Мансурова "Основы программирования в среде Lazarus" При компилировании такой программы: program summa; {$mode objfpc}{$H+} uses FileUtil; {Подключение модуля...

Как установить Synapse?
Доброго времени суток! Пытаюсь пересесть на Lazarus, никак немогу прикрутить синапс =( По мануалу с http://www.ararat.cz/synapse/doku.php/public:howto:installsynapse неполучается. go to...

Error: method identifier expected
Until1 unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, game, LCLType, ExtCtrls;

Добавить условие в Case
Составить программу, которая в зависимости от порядкового номера дня месяца выводит па экран его название. Значит вроде все работает, но нужно чтоб при выборе числа больше 12 какую нить ошибку...

Создание кастомного меню для формы без заголовка
В связи с неотвратимостью технического прогресса в части увеличения разрешения экранов дисплеев до каких то на мой взгляд безумных значений (у меня на 13 дюймах 1980 по горизонтали) и одновременного...

Fatal: Can't find unit Unit1 used by project1
Написал элементарную программу на delphi, не компилируется. Вставил код в лазарус вот такая ошибка вылезает: project1.lpr(1,1) Fatal: Can't find unit Unit1 used by project1 Что это значит и как с...

OpenDialog и SaveDialog
Как сохранить и открыть программу через OpenDialog и SaveDialog. Подскажите пожалуйста код...

Ошибка установки Indy в Lazarus
Текст ошибки: "lazarus.pp(1,1) Fatal: Невозможно найти indylaz, используемый в Lazarus, несовместимый PPU=C:\lazarus\components\Indy10_5298\Lib\lib\i386-win32\indylaz.ppu, пакет indylaz". Lazarus...

Таймер на форме
При открытии формы должен запускаться таймер, который автоматически начинает отчёт 20 минут (в обратном отчёте). Не получается реализовать, чтобы данный таймер срабатывал только на одной форме и...

Ошибка: "Forward declaration not solved"
Добрый день. Есть такая программа:unit Unit2; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls;

Запуск консольных команд
Здравствуйте, хотел спросить а можно ли в Lazarus под linux запускать команды которые обычно применяются в консоли, просто под виндой есть bat файлы которые запускают обычные команды в определеной...

Отправка письма на почту
Задача непростая: Дано Memo1 и Две кнопки ( любых ) Задача такая: пишем в Memo1 текст, например "Привет мир", жмем на одну кнопку и наше сообщение отправляется на почту. Не обязательно...

Работа с сокетами
Здравствуйте, хотелось бы написать внутресетевой чат, понимаю, что изобретаю велосипед, но всё же ради тренировки и опыта. С этим хочу спросить вас: какой пакет лучше использовать для работу с TCP...

Создание калькулятора в программе Lazurus
Как сделать так чтобы калькулятор не делил на ноль, а писал в окне "деление на ноль невозможно"? Как добавить запятую чтобы калькулятор мог считать десятичные дроби? Добавлено через 1 час 17...

Работа с файлами в ShellTreeView и ShellListView
На форме есть 2 ShellTreeView и 2 ShellListView. У каждого ShellListView в свойстве ShellTreeView указан свой ShellTreeView. Программа показывает структуру файловой системы. Хочу сделать...

Рисование круга, прямоугольника, треугольника
я рисую круг, прямоугольник делаю это так: переменные у меня здесь implementation var y0,x0, xpos, ypos:integer; в процедуре procedure TForm1.Image3MouseDown(Sender: TObject; Button:...

Кодировка, русский текст в консоли
Привет Ребята. Возник такой вопрос. Если создать новый проект в lazarus'e и написать к примеру в коде программы: writeln('Привет мир!'); то в командной строке вместо русского текста вылазит...

Обработка событий клавиатуры
В Lazarus можно обрабатывать события клавиатуры?

Ошибка: отсутствует файл fpc.cfg. Linux
При выборе компилятора пишет ошибку. Где должен быть fpc.cfg? Компилятор /usr/bin/fpc. /etc/fpc.cfg есть Проект не линкуется - неверные параметры для линкера

Светофор
Задание: смоделировать работу светофора. Изобразить светофор в виде трех окружностей на черном фоне, способных менять цвет от красного (верхняя окружность), до зеленого (нижняя окружность). Сигналы...

Графический редактор на Lazarus'е
нужно сделать графический редактор. желательно через paintbox. не могли бы вы подсказать, как можно сделать чтобы рисовал только левой кнопкой мыши и как сохранять изображение в paintbox'е при...

Ошибка "External: SIGSEGV"
procedure TMap.LoadImagesClick(Sender: TObject); var i:integer; begin if OPDPoint.Execute then for i:=1 to OPDPoint.Files.Count do begin ...

Компонент TChart: поточечное построение графика функции
В Delphi есть компонент TChar и в нем есть PointSeries, в Lazaruse я такого не могу найти, как построить точечный график функции??? Помогите, нужно для диплома.

Работа с файлами на Lazarus
В файле f записаны целые числа. Написать программу, которая в файл g записывает четные числа, а файл h - нечетные.

Ошибка: Circular unit reference between Unit2 and Unit1
Доброго времени суток. На первой форме 1 кнопка, на второй 1 кнопка. Первая кнопка открывает вторую форму в обычном режиме и одновременно меняет цвет первой формы, вторая кнопка закрывает...

Поле ввода Edit
Здравствуйте, ув. программисты. Подскажите пожалуйста с заданием:по заданию пользователь должен вводить исходную последовательность чисел в компонент Edit по одному числу и нажимать Enter. а после...

Использование Random
Доброго времени суток. Нужно задать случайное число из промежутка random(5) + 8; Это верно?

Работа с регулярными выражениями в Lazarus
Уважаемые, скажите пожалуйста, как в Lazarus организовать работу с регулярными выражениями? Конкретно хочется очистить строку от всего, что не является цифрой, т.е. . Метод перебора всех символов...

Тест lazarus
Делаю тест ,единственное до чего додумался правильный и не правильный ответ выводить в "ShowMessage " (но так не красиво) , сложно подсчитать количество правильных .Думаю сделать что бы в 1 label...

Очистить Canvas
Подскажите, как очистить канву, чтобы не пропали динамически созданные на ней элементы. При перемещении элементов по панели я делаю отрисовку связей, но старые остаются, как их убрать? Пробовал...

Решение задач
Задано решить задачи. Успехов вообще никаких нет, помогите хоть с чем-то. Нужные задания: 1.24(пункт А) 1.26 2.21 2.28 4.2 4.9 4.23 4.78

Ввод и вывод массива
Почему-то целые числа выводит, а на вещественные выводит ошибку? unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,...

Построить график функции
построить график функции y=sin (x) (Лазарус) unit.

Cчитывание из файла текста в формате txt, и запись его в StringGrid
Доброе время суток!) С недавних пор начали писать программы в Lazarus.. За период обучения появились некоторые проблемы. Вообщем суть программы: В задаче надо считывать из файла текст, и записать...

Массивы в Lazarus
Помогите наладить код...ругается на строку var mas: array of integer; Пишет: Can't evaluate constant exression var Form1: TForm1; i,j:integer; a,b:integer; implementation {$R *.lfm}

Создание двумерных массивов
создать двумерный массив , куда можно будет заносить и читать от туда данные(тип string) для ежедневника

Чтение файла с русскими буквами
не получается - при печати - русские буквы вообще не печатаются (даже вопросов нет вместо русских букв) assignFile(f, OpenDialog1.FileName); reset(f); while not eof(f)...

Как объединить все окна интерфейса Lazarus в одно единое окно?
Интерфейс Lazarus разбит на огромную кучу мелких неудобных окон. Можно ли как-то все их объединить в одно единое окно, которое закроет весь рабочий стол? В среде Delphi есть специальная настройка,...

Создать матрицы Lazarus
Помогите пожалуйста с задачкой по Lazarus(( задача:"5. Заданы четыре квадратные матрицы: A(n,n), B(n,n), C(n,n), D(n,n), в которых хранятся целые числа. Найти матрицу, в которой находится...

Сделать форму для сложения двух чисел, можете объяснить как сделать
Cоздать форму для сложения двух чисел, можете объяснить как сделать, как работать с формой, паскаль знаю хорошо, но как делать с формой не знаю. помогите

Вычисление факториала рекурсивным методом
помогите написать на лазарусе вычисление N! рекурсивным методом с использованием Edit,Label и Button. Заранее благодарна!

Создание приложения
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1:...

Как форму во весь экран сделать?
Как сделать, чтобы при запуске проекта, форма отображалась на всю ширину и высоту экрана, не было видно пуск, рамку проекта лазаруса с кнопками свернуть, развернуть и закрыть. Чтоб на весь экран...

Перевод чисел в различные системы счисления
Написать программу в lazarus: перевод чисел в различные системы счисления. Создать форму на ней разместить Edit и переключатели.

Ошибка: Syntax error, ";" expected but "BEGIN" found
Ошибка unit1.pas(529,1) Fatal: Syntax error, ";" expected but "BEGIN" found тут в строке с сообщением в комментарие, строка 40. Не понимаю почему. procedure Ordering; //type TValueSign = -1..1;...

Множества в Lazarus
Всем здравствуйте! Надо сделать задачу в Lazarus Pascal, но столкнулся с непонятной проблемой! Когда я пытаюсь заполнить множество, он говорит мне что во множество можно положить только перечисляемый...

Изменение размеров Image
Image привязан якорями (Anchors) к форме. Однако, если поменять размер формы, то размер канваса не меняется. Чтобы изменить размер канваса можно, напрмиер, так (из OnResize формы): ...

Преобразование чисел
Введите 2 целых числа. Преобразуйте числа в две строки, объедините их в одну и выведите на экран результат. Допустимые процедуры и функции: - Процедуры: Delete, Insert, Str, Val - Функции:...

Ошибка: "" is invalid float
Всем привет, пытаюсь считать в программе среднее арифметическое и программа ругается , подскажите что не так unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil,...

Видимая и невидимая надпись при нажатии кнопки
Подскажите , как сделать , чтобы при нажатии на кнопку надпись становилась видимой ,а после второго нажатия невидимой .

Запуск только одной копии приложения
Как сделать, чтобы при попытке запустить ещё одну копию свёрнутого (находящегося на заднем плане, временно невидимого) приложения копия не запускалась бы, а то единственное приложение, что временно...

Выдаёт ошибки Fatal: Syntax error, "BEGIN" expected but "end of file" found. Пожалуйста посмотрите что не так, прошу!
Выдаёт ошибки Fatal: Syntax error, "BEGIN" expected but "end of file" found. Пожалуйста посмотрите что не так, прошу! unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils,...

Считывание текста с Edit
Как в Lazarus считать текст со строки Edit? как считывать цифры я знаю, а вот как буквы незнаю....

Отловить подключение usb устройства к компьютеру
Доброго времени! Подскажите как в lazarus реализовать отлов подключения/отключения USB устройства к ПК? На delphi есть готовый код, рабочий... однако при переработке его на lazarus возникают...

Разъясните немного насчет Лазаруса Дельфи и Фри паскаля
Прошу не ругать,так как в програмировании разбираюсь очень мало,и инетерсует очень много. я вопросы буду задавать по номерам так легче вам будет отвечать:) Итак 1)Так на каком языке пишет...

Даны три целых числа; возвести в квадрат отрицательные числа и в третью степень положительные
даны три целых числа возвести в квадрат отрицательные числа и в третью степень положительное лазарус

Ошибка 103 при попытке чтения файла
Здравствуйте. После попытки чтения выдается ошибка runerror 103. Что нужно исправить? procedure TForm1.Button3Click(Sender: TObject); var f:file; s:file; i,j,p:integer; begin...

Функция power
вещественное число в вещественную степень

Где описываются глобальные переменные?
Подскажите,где в Lazarus описываются глобальные переменные

Random()
Использую в проекте функцию Random(); Подскажите пожалуйста как сделать, чтобы при каждом запуске программы генерировались действительно случайные числа (каждый раз генерируются одинаковые числа)....

Создание простейшего Блокнота
Может кто-нибудь создать в лазарусе блокнот, как в Windows? А то у меня есть некоторые нестыковки.

Работа с потоками TThread
Работал с потоками по аналонии с Дэльфи. В Лазарусе компилируется нормально, но выполнение программы прекращается при попытке создать объект класса TLoadThrd. Я максимально упростил поток, оставив в...

Lazarus и GIF анимация
Задача поместить на форму в качестве фона анимираваный GIF. Руководства и нужных объектов я не нашел. Пробовал поместить на обьект Image но в ожидании анимации получаю статичную картинку. Не...

Условия с if/then
Всем добрый день! Итак, мне необходимо сделать в Лазарусе такую программу, в которой будут находится Edit, Label1, Label2, Button. Задача состоит в том, чтобы пользователь вводил в Эдит любое...

Из под Windows в Linux
Скачал lazarus-1.0.8-fpc-2.6.2-win64.exe, установил, под вин компилется хорошо, как из под винды скомпилировать проект под линукс? В параметрах проекта указал ОС линукс, при компиляции выдает ошибку...

Окна ShowMessage, MessageDlg
Приветствую всех! У меня возникла следующая проблема, я заметил, что окна showmessage и messagedlg останавливают выполнение программы , пока не нажмешь кнопку. Как сделать так, чтобы выполнение...

Ошибка: проект вызвал класс исключения 'EConvertError' с сообщением is an invalid integer
помогите пожалуйста разобраться при запуске программы выдает ошибку. ошибка: проект вызвал класс исключения 'EConvertError' с сообщением is an invalid integer сама задача: Создать класс обыкновенная...

Запись данных в текстовый файл
Всем здравствуйте. procedure TForm1.Button1Click(Sender: TObject); var f: TextFile; s:string; v:real; begin AssignFile(f, 'proba.txt'); if not FileExists('proba.txt') then ...

Найти сумму чисел от 1 до n
Найти сумму чисел от 1 до n. Помогите с кодом, пожалуйста!

Файл с каким расширением в Lazarus отвечает за проект, а какой за модуль главной формы?
Нужно название расширение файла проекта и название расширение файла модуля главной формы.

Свойства Top и Left
Здравствуйте всем. С какого краю фигуры мерится top и left?

Как запустить несколько проектов одновременно?
Есть проект с готовыми (сохранёнными в собственной библиотеке) решениями. Надо куски кода из них скопировать в другой проект. Пока я открываю модули-источники в текстовом редакторе. Хотелось бы...

Access + lazarus
Уважаемые гуру! Я новичок! Пытаюсь прикрутить базу MDB (Microsoft Access) в lazarus чере *.dsn файла + сама база *.MDB + DBGrid+ODBCConnection+SQLTransaction+SQLQuery+Datasource делаю следующие! ...

Поменять местами четные и нечетные элементы массива
Помогите пожалуйста. Нужно в лазарусе программу написать. "Дан целочисленный массив,нужно поменять местами четные и не четные элементы"

Ошибка: External "SIGSEGV" Error
Такая проблема: Я сейчас обучаюсь в институте после колледжа, и там некоторые предметы у меня была возможность перезачесть, просто так или что-то сделав. По одному из них мне сказали переделать мой...

Ping в потоке
Добрый день всем! Стандартная задача для начинающего - пинг(в потоке?)! Задача: опросить сеть с максимальной быстротой на предмет "кто в сети" в диапазоне от 192.168.0.1 до 192.168.0.255. Результат -...

Генератор случайных чисел
Задание 3 кнопки 1 листбокс 1 кнопка-генерирует случайные числа 2 - генерирует случайные чётные числа 3 - очистить листбокс проблема: Identifier not found Edit1

Нарисовать изображение (например, домик)
Господа форумчане)) В Lazarus совсем недавно, мне нужно составить графическое изображение в этой программе, ну например домик нарисовать или что то еще, можете кто нибудь дать пример или объяснить...

Программный код
Помогите разобраться с работой данного программного кода пожалуйста procedure TForm2.Button3Click(Sender: TObject); var i, j: integer; sl :TStringList; fl: boolean;

Как работать с двумя формами?
У меня на одной форме находится кнопка TButton. При нажатии на нее, первая форма должна стать неактивна, вторая форма должна стать видимой, и надписи на метках второй формы должны измениться. в...

Как запретить изменения размера формы?
Как я могу запретить изменять размер формы? Чтобы вот как открылась форма, так и была, чтобы нельзя было менять её размер?

Как работать с Office Word из Lazarus
Преподаватель поставил задачу:создание отчета в MS Word из программы в Lazarus. Должен запускаться Word, в нем печататься текст, выводиться в таблицу инфа из StringGrid. И все это визуально должно...

Константа в виде массива строк
нужно создать массив строк как константу не понимаю как правильно написать ? const str:array of string=('11','22'); не компилируется.

3D графика в Lazarus
Такое дело, написал тулзу успешно, конические шестерни печатает, в общем она просто вносит корректировку в G-код. Но аппетиты растут, после русификации, для себя и 3dtoday чисто, Kisslicer 1.5...

Рисование фигур на канве формы
доброго времени суток решил дополнить свой маленький пример поинта вставкой фигур квадрата и Элепса ну почему то при рисование элепса он слишком сужен а при рисование квадрата он мне выдвигает...

Русские буквы в пути к файлу
sf:=('C:\Учебное\text_file.txt'); AssignFile(f, sf); Rewrite(f); writeln(f, t); //ругается на эту строку CloseFile(f); При сохранении файла в директорию с русскими символами...

Дано два числа a и b. Найдите гипотенузу треугольника с заданными катетами
Гипотенуза Дано два числа a и b. Найдите гипотенузу треугольника с заданными катетами. Входные данные В двух строках вводятся два числа (числа целые, положительные, не превышают 1000). ...

Русский язык в консольных приложениях
Консольное приложение под Windows 10 Добавляю в список зависимостей проекта LazUtils составляю тестовую программу program LazTest; uses LazUTF8,Windows; begin SetConsoleOutputCP(CP_UTF8); ...

Путь к файлу
В папке с программой, там где лежит exe-шник, лежат еще 4 картинки, их нужно подгружать в image по изменению RadioButton'а. Как прописать это? Нужно чтобы работало еще и с флэшки, и.т.д, либо как-то...

Эффективная работа с Bitmap, адекватная скорость прорисовки
Здравствуйте, товарищи программисты! Возник у меня вопрос относительно работы с графикой в Lazarus. (использую Lazarus IDE v1.0.4) Программа должна по нажатию кнопки генерировать и выводить в...

Как извлечь год из даты?
Добрый день, не знаю как мне рассчитать год из даты рождения, к примеру 26.06.1996 ===> 1996

Ошибка "Identifier not found"
выдает ошибку в строке, выделенной комментарием (строка 42), как исправить? type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel;

Запуск, удаление и остановка потока
Смотрел документацию на http://wiki.freepascal.org/Multithreaded_Application_Tutorial/ru , однако найти ответы на свои вопросы не смог. Создаю поток (Button1Click), который должен запускаться не...

Найти площадь и периметр квадрата ABCD
Люди добрые прошу вас помочь в написании кода,этой задачки. Известны координаты вершин квадрата ABCD: A(x1, y1) и C(x2, y2). Найти его площадь и периметр.

Как снять выбор с RadioGroup/CheckGroup?
Как убрать выбранные галочки и/или кружочки с radio и check group с помощью одной кнопки? Lazarus Или как убрать выбранные ранее галочки и/или кружочки (обнулить выбранные ответы) может быть и без...

Связать пункты TreeView со значениями
Как можно (средствами самого контрола) приписать значение к определенному итему? Что-то вроде TreeView1.Items.Item.text='текст'; TreeView1.Items.Item.value='значение'; //подобный код видел,...

Цветная кнопка
Добрый день, хелп плииииз! Глупый вопрос, но не нашел ГОТОВЫХ компонент, только "как нарисовать" или "попробуем написать". Под делфи было куча! Мне нужен аналог TButton, но с указанием цвета...

Код символа (кириллица)
Всем привет! Перерыл кучу информации, перепробовал множество вариантов, но так ничего и не получилось. В общем смысле задача следующая. Дан файл (в моем случае file of char), необходимо...

Что значит "Исполнение остановлено"?
program radgrad; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes ,sysutils { you can add units after this };

Сохранение форматированного текста RichEdit через SaveDialog
Переделал код билдера в лазарус. Посмотрите пожалуйста так это должно выглядеть? Вот исходник на билдере: https://www.cyberforum.ru/cpp-builder/thread966950.html а вот что я думаю в лазарусе...

Игра змейка
Здравствуйте, требуется помощь! Может быть кто-то из форумчан когда-то писал игрушку змейку и готов ей поделиться, то я был бы вам очень благодарен! В лазарусе я человек начинающий и поэтому,...

Построить график в Chart по координатам из StringGrid
Доброго всем времени суток. У меня возник такой вопрос, каким образом можно построить график в Chart, по данным в StrinGrid? StrinGrid: Сформулирован следующим образом: имеется 2 столбца, и 15...

Движущаяся фигура (управление с клавиатуры)
Решил начать своё знакомство с Lazarus с простой программы, суть в том, что фигура(квадрат) двигается по полю, по нажатию кнопок "w" "s" "a" "d". Разобрался как реализовать данное действие только для...

Edit. Ввод только цифр?
Здраствуйте. Искоал кроссплатформенный метод как же в Edit вводить только цифры включая контроля за буфером. Кроме как включения NumberOnly не нашел ничего а данный способ не годится из за того что...

Как сделать игру "Пятнашки"?
Мне бы посоветовать как сделать игру "пятнашки", а то не пойму как её делать... Как определить в какой квадратик тыкнул.. как переставлять и т. п. Во игра как должна выглядеть на paint'е нарисовал)...

Вывод списка файлов в Lazarus
Как вывести список файлов из каталога и отсортировать их по дате, типу и размеру???

Создать графический редактор
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, PrintersDlgs, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus, Buttons, ExtDlgs;

Вывод дерева каталогов в форму
Необходимо реализовать приложение, отображающее дерево каталогов и файлов. При запуске программы пользователь должен в диалоговом окне указать путь к каталогу, содержимое которого будет в дальнейшем...

Error: Undefined symbol: WSRegisterCustomImageList
Помогите, пожалуйста, не пойму, почему не работает программа? unit Ir3; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ...

Нужно ли выложить проект в Lazarus отдельной темой?
В проекте - чтение символов MNIST, работа с OpenGL. Работа над альтернативой свёрточным нейросетям. далее будет нейросейть прямая, но не простая. Простая прямая - это когда каждый нейрон слоя...

Запуск сторонней программы
Как запустить стороннюю программу (.exe)?

Ошибка "Error: Wrong number of parameters specified for call to "FloatToStrF""
и снова я. задание: создайте программу, в которой можно найти максимальное из четырех заданных ризных целых чисел пр условии, что каждое число подается в положительном виде, даже если пользователь...

Перевод из кодировки UTF-8 в CP866
Нужно сделать функцию, которая переводит текст из кодировки UTF-8 в CP866. То есть с нуля, так-как нельзя использовать стандартные функции. Пользователь вводит текст в UTF-8, а на выходе получает...

При нажатии на клавишу "пробел" срабатывает кнопка на форме
Столкнулся со странным поведением программы. При нажатии на клавишу "пробел" срабатывает кнопка, установленная на форме. На другие клавиши кнопка не реагирует. Насколько я понимаю такого не должно...

Скопировать в буфер обмена содержимое поля ввода или значение переменной
Можно такое? Заранее благодарен.

Известна диагональ квадрата d Вычислить площадь S и периметр P квадрата
Разработать программу в среде программирования Lazarus. Для задачи создать интерфейс, соответствующий условию. Известна диагональ квадрата d. Вычислить площадь S и периметр P квадрата.

Координаты мыши на форме
Как в Lazarus сделать чтоб при воде мышью по форме отображались координаты указателя?%-)

Тип данных Запись
открываю тему, потому как люая литература, продаваемая не является справиочником, и не знаю английского. в настоящий, в трёх, имеемых мною на руках книгах, мало описана работа с записями. в...

Изменение цвета и/или шрифта заданных узлов TreeView
Гуглил, но ничего путного для себя не нагуглил по указанному сабжу. Возможно ли это в принципе?

Обработка нажатия клавиш
Как сделать так, чтобы при нажатии на стрелочку вверх на клавиатуре, делалось какое-то действие, например, менялся текст в Label1. Скажите код пожалуйста.

При выборе соответствующей кнопки менять вид отображения рамки панели: "выпуклая", "вдавленная", "отсутствует"
Составьте программу, которая при выборе соответствующей командной кнопки, ме- няет вид отображения рамки панели «выпуклая», «вдавленная», «отсутствует». Как это сделать в Лазарусе? Всем спасибо!

Необходимо реализовать заливку фигур на канве
Здравствуйте, нужна помощь с заливкой фигуры на канве. Если более подробно, то предположим я нарисовал на канве фигуру зеленым цветом, и мне нужно залить эту фигуру внутри например синим цветом? при...

Тест с вводом ответов пользователем
Добрый вечер.Подскажите пожалуйста. Нужно сделать тест,с вводом ответов, по нажатию на кнопку проверки должно выводится либо ответ правильный либо нет. Выдает ошибку в коде: Var N:integer; begin...

Изменение цвета Label при наведении на него курсора мыши. Как это сделать?
Изменение цвета Label при наведении на него курсора мыши. Как это сделать? Какое свойство надо поменять?

Отгадать целое число, которое "загадал" компьютер в определенном диапазоне
Отгадать целое число, которое "загадал" компьютер в определенном диапазоне. Описание переменных: a – число, "загаданное" компьютером; b – очередное число, вводимое пользователем. Алгоритм...

Известна диагональ квадрата d. Вычислить площадь S и периметр P квадрата
Известна диагональ квадрата d. Вычислить площадь S и периметр P квадрата.

Активация кнопки
всем здравствуйте, передо мной поставленна задача такая: нужно, что бы при заполнении lableedit активировалась кнопка, изначально она неактивна, при чем, допустим в lableedit1 должны быть только...

Русские буквы на DBGrid
Доброго времени суток! Хотел Лазарус изучить немного написал маленькую тестовую программу база данных Access Все подключается но на место русских буков выходит вопросительные знаки. Как можно...

Вставить на форму анимацию в формате gif
Доброго времени суток. Помогите пожалуйста. Нужно в Lazarus на форму вставить анимацию. Анимация в формате gif. Но у меня этот формат не поддерживает. Как решить поставленую задачу. Зарание всем...

Создание списка и сортировка списка
Добрый день, понимаю, что в последнее время от меня многовато тем, но конец семестра, так что надеюсь, что это простительно. Требуется создать программу, которая бы создавала список с нужным...

Функция Length неправильно определяет длину строки в кириллице
Использую функцию length для определения количества символов, при английской раскладке клавиатуры выдает правильный результат, но при русской не верно (за один символ принимает как два). В чем...

Заданы два катета прямоугольного треугольника Найти гипотенузу и углы треугольника
Разработать программу в среде программирования Lazarus. Для задачи создать интерфейс, соответствующий условию. Заданы два катета прямоугольного треугольника. Найти гипотенузу и углы треугольника

Работа с текстовыми файлами в Lazarus
Всем привет! Я начинающий программист, и поэтому знаю немного. А нужно открыть файл и сравнить каждую строку из него со строкой из эдита. Проблема в том, что в файле русский текст, а как я понял...

TMemo и размер шрифта
Хотелось-бы знать: существует на настоящий момент что-либо, позволяющее менять в TMemo размер шрифта. Заранее благодарен за ответ.

Ошибка при компиляции в Lazarus 0.9.29
Под Ubuntu установлен Lazarus 0.9.29 + FPC 2.4.0 (ставился без проблем). Lazarus создает пустой проект в виде: program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF...

Выбрать случайную букву русского алфавита
Если ли команда чтобы выбиралась рандомом любоя буква алфавита русского?

При нажатии кнопки содержимое файла считать в Memo
Дано: объект Memo, кнопка, текстовый файл в кодировке ASCII (можно UTF-8). Нужно запрограмировать кнопку, чтобы при нажатие содержимое из файла читалось в Memo. Я зделал двумя путями: procedure...

Динамическое подключение DLL
Здравствуйте. Проблема такова: надо написать функцию, принимающую на вход имя библиотеки и имя функции, а на выходе выдающую результат этой функции. Я пробовал искать, нашел вот здесь и вот здесь....

Найти наибольшее из 3 чисел a, b, c
Есть три задачи: 1.Найти наибольшее из 3 чисел a, b, c. 2.Найти сумму чисел s=1/(p+2)+ 2/(p+2)+…+ p/(p+2) 3.Дана строка. Найти количество вхождений букв А. Есть решение первой задачи на Паскале:...

Как перейти на новую строку в Caption?
Label1.Caption присваиваем переменную типа string и если строчка содержит больше 20 символов, то в Caption записать на новую строчку.

Построение простого графика
может кто просветит ,как построить линейную функцию с помощью TChart хотя бы с этого простого начать нужно по шагам ,допустим уже лежит этот TChart c вкладки Chart на форме и кнопка Button1 в...

Разделить строку на массив
Здравствуйте! Начал изучать Лазарус, и столкнулся вот с такой проблемой: У меня есть строка (допустим, записанная в переменную "row") содержащая несколько слов, разделённые пробелом. Как эти слова...

Рисование в Lazarus: как рисовать кривые линии через синусы и косинусы
Вот ребята я учусь в МАН (Малая академия наук), на последнем занятии нам лектор обьяснял как рисовать в лазарусе (в особености и кривые линии) так вот как рисовать кривые линии через ети синусы и...