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

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

Работа с *.bmp изображением
Сразу говорю, что знания паскаля хуже чем "пишу и читаю со словарём". Задача считывать пиксели с *.bmp изображений. Максимальный размер изображения 320х240px. Но чувствую, что до этого мне ещё...

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

Сделать проверку на ввод только букв из русского алфавита
Сделать проверку на ввод только букв из русского алфавита(lazarus). Во всём разобрался, туплю с проверкой на корректностью ввода, лазарус не доволен unit Unit1; interface uses SysUtils,...

Как реализовать перебор в потоках?
Есть у меня задача, из 8-значного числа получить его код, и из кода получать исходное число. Первое преобразование - вычисляется мгновенно, второе - только перебором. Хотелось бы перебор...

Работа с базой данных Firebird embedded в Lazarus IDE. Миграция проекта с SQLite на Firebird
Привет! У меня есть проект, который работает с базой данных SQLite. Задача — преобразовать(перепроектировать) его для работы со встроенной базой данных Firebird(embedded). И в двух вариантах:...

Как использовать свойство Objects в TStringGrid?
Тема вынесена из https://www.cyberforum.ru/lazarus/thread3185540.html TStringGrid позволяет это делать, в событии OnDrawCell можно рисовать что хочешь, а в свойстве Objects можно хранить любые...

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

Из VirtualTreeview делаем ListView
Пытаюсь из VirtualTreeview сделать аналог ListView. Помогите разобраться с некоторыми затруднениями: При включении свойства toHotTrack по умолчанию текст ноды над которой находится курсор...

Как загрузить картинку из файла ресурсов
Здравствуйте! Недавно стала знакомиться с ресурсами в Lazarus. Проблема такая: не могу загрузить картинку из файла ресурсов. Через командную строку был создан файл ресурсов в виде: lazres...

Создание чата и чат бота в Lazarus
Задача - создать чат, и чатбота для него. Выполнимо-ли это в Lazarus? Интерфейс чата текстовый.

Глюки в 3.4 в Win10
Вроде, перешёл на 3.4, но, как и ожидал - рано. Не сразу, но после определённых манипуляций, вид курсора мыши перестаёт изменяться. То есть, делаю PaintBox.Cursor:=crMyCursor но ничего не...

Int64 и DBGrid
Данные поля в базе SQLite хранятся в формате int64, а DBGrid их калечит, вплоть до выведения отрицательных чисел. Указание в SQLQuery типа ftLargeint (как и любых других) ничего не даёт. Эти значения...

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

Действия при нажатии на иконку в ListView
Приветствую. Я разрабатываю программу по работе с rpm пакетами в Linux. Для отображения результата использую ListView. В колонке "Ссылка" для каждого Item я хочу разместить иконку, при нажатии на...

Показ фрагмента pdf-файла на Canvas
Нужно показать фрагмент pdf-файла на Canvas. Lazarus 3.6, Win10 Что смотрел: - fpPdf позволяет формировать pdf-файл (проверил), но не может читать. - PowerPdf то же самое + после установки...

Зум изображения от колеса мыши
Нужен зум изображения колесом мыши. Инструкция от нейромодели результатов не даёт - много ошибок при компиляции. Проект тут. Нужно сделать симулятор жидкости (пока в двумерном пространстве), и для...

Lazarus на AstraLinux: OpenGL не устанавливается
На одном компьютере у меня AstraLinux 1.7, там я установил Lazarus 3.4, давно установил, наверное, полгода назад, и там есть вкладка OpenGl (с компонентом openglcontext), я точно её не делал, сама...

Lazarus 2.2.6 глюки
uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs; ... что не так, ошибка (через раз, то есть, то нету ошибки) ut_main.pas(8,47) Error: модуль не найден: Graphics и не только...

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

Удаление Lazarus c Ubuntu линукса 22.04
Такая проблема...как-то получилось, что у меня вместо новой версии оказалась старая, попробовал переустановить, но теперь долго запускатеся и всегда спрашивает адрес где установлена IDE, и вместо...

OpenGL - ошибка при добавлении обработчика колеса мыши
Все пакеты установлены, и другие обработчики событий мыши работают, но вот принципиально при добавлении обработчика событий колеса мыши выдаёт такую ошибку unit1.pas Error: unit not found:...

Захват экрана и эмуляция ввода мыши и клавиатуры
такой не скромный вопрос, заданный уже не впервые. Известно что на Java можно запускать бота, способного захватывать экран, нажимать клавиши на клаиватуре, мыши и двигать курсор. Стоит-ли ожидать...

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

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

Сложности с управлением камерой
Управление камерой, предлагаемое LLM просто вообще никакое. Перебирал много разных способов. Решил попросить совета. Код тут, unit Unit1; {$mode objfpc}{$H+} interface uses

Сжатие изображения
Нужно взять изображение на диске, сжать его до нужного размера (+- 500 Кб) и сохранить его под новым именем в определенное место. Накидал такой код, но кажется костыли какие то. procedure...

Сортировка ListView
Есть у меня еще два проблемных вопроса по штатной сортировке ListView. 1. Если я использую иконки в ListView и для сортируемой колонки выставляю свойство alignment = taLeftJustify или...

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

Как избавиться от сообщений компилятора: Дублирующийся модуль
Гуру, выручайте! Делаю программку в которой нужен свой TSynEdit и другие его компоненты. А компилятор мне варнинги и ноты всякие выдает. Как их "разрешить" а не просто подавить? Объяснить ему что...

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

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

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

Почему в Windows-11 программа не отправляет запросы в последовательный порт
Программа работает в Windows-7 и в Windows-10, как в 32-х, так и в 64-х разрядных версиях. Для проверки использую Virtual Serial Port Emulator, а для контроля Serial Port Monitor. (Написал основную...

По какому принципу Лазарус сортирует файлы при поиске?
Набросал в папку похожих файлов, ищу их, и получаю вот такой порядок поиска: Реестр лицензий субъекта РФ 23 на 08.10.2024 20-15-00.xlsx(1) = 3559373 Реестр лицензий субъекта РФ 23 на 01.10.2024...

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

Вычисление корня уравнения используя метод деления отрезка пополам
Всем здравствуйте. Мне нужна помощь с заданием и звучит оно так. Разработать программу в среде Lazarus которая сможет с точностью вычислить корень x^4+0.8x^3-0.4x^2-1.4x-1.2=0. Использовать метод...

Странное поведение FileCreate под Linux
Вот такой код создаёт под Windows беспроблемный файл, который, по крайней мере, читается. var h:THandle; ... h:=FileCreate(GetTempDir()+'/aaa.txt',fmShareExclusive,fmOpenRead or fmOpenWrite);...

Ввести двумерный целочисленный массив, вывести в виде матрицы
Ввести двумерный целочисленный массив, вывести в виде матрицы (количество строк не более 4, количество столбцов не более 6). Подсчитать сумму элементов в каждом столбце и вывести отдельно эти суммы....

TChart ничего не выводит
Такая беда. Прилагаю и код и проект. Не знаю почему. Ошибки которые возникали исправил, но в общем он ничего не выводит. Если ошибки с рачётами - исправлю, а вот с настройками вряд-ли смогу. И это не...

Как использовать процедуру?
вот я в implementation сделал процедуру implementation procedure pobeda(krornol:array of integer); хочу чтоб по нажатию кнопки эта процедура срабатывала. как это прописать? заранее...

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

Определить формат поля
Приветствую. Подскажите как можно определить формат данных в поле bd access из lazarus? Нужно как то определить, что перед тобой именно поле Дата.

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

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

Вместо текстовых записей в колонках DBGrid отображается надпись (memo) при этом цифры отображаются нормально
База SQLite SQLite3Connection1.DatabaseName :=label1.caption ; SQLite3Connection1.CharSet := 'UTF8'; SQLite3Connection1.Transaction := SQLTransaction1; try SQLite3Connection1.Open;...

Чтение эксель-файла в Lazarus
Помогите пожалуйста, пытаюсь открыть Excel-файл в Lazarus. Но мне нужно знать какой тип столбца у Excel. Но выдает ошибку Incompatible types: got "FPSTYPES.PCEll" expected "F_LISTE.PCell" в строке...

FPC Lazaus в Yi-Coder-9B (клеточный автомат)
От нечего делать, пока жду лицензию на Gowin IDE (потому что в версии для обучения можно только повторять - оптимизация не выключается), решил проработать клеточный автомат с помощью нейросети. Был...

protocol sqlite3 в lazarus а точнее его отсутствие
Здравствуйте, отсутствует протокол sqlite3 и очень нужен, но перерыв весь интернет так и не нашел ответа на вопрос, как его поставить или почему он у меня отсутствует. Помогите пожалуйста.

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

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

Библиотеки и их возможности
Есть конкретная задача - провернуть симуляцию для получения оптимальной геометрии лопастей и двух направляющих аппаратов (то есть планирую использовать крыльчатку между двумя направляющими...

Странное поведение при удалении файла
Есть такая процедура: procedure ReceivePackage(tosec:integer); var s:string;b:Boolean; count,err:integer; h:THandle; label 1; begin plst:=TStringlist.Create; count:=0; 1:

Экранная заставка или как перед открытием главной формы открыть другую форму
Допустим, перед открытием главной формы надо проверить пароль. Если пароль не правильный, то программу не запускать. Можно, конечно, это возложить на главную форму, а затем её сделать невидимой....

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

Работа с API в Lazarus под AstraLinux
Добрый день. Сильно не ругайтесь - может уже где-то и есть - искал, не нашел ничего полезного. Может, плохо искал. Не очень владею темой по поводу API - но есть задача засунуть в программу несколько...

Язык отображения FindDialog
Здравствуйте!!! Win7, русская, все параметры в региональных настройках тоже русские. Кинул на форму FindDialog, когда на форме кликаешь 2 раза ЛКМ на FindDialog то он открывается на русском. А...

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

Чтение XML из базы в таблицу
Имеется вот такой код Digits := TStringList.Create; ReadXMLFile(Doc, ExtractFilePath(ParamStr(0)) + 'db/db.txt'); Cell :=...

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

Как скопировать выделенную строку из DBGrid (RxDBGrid) в строки?
Необходимо сделать так, чтобы при выделении строки в DBGrid (RxDBGrid) запись копировалась в Edit-ы, как на картинке ниже:

Неактивны кнопки запуска проекта в лазарусе
Почему неактивны кнопки запуска проекта в лазарусе? .lpr открыт, его даже удалось скомпилировать, но запустить не получается. Лазарус 2.2.6

Реализация на форме инспектора объектов
В Bender 3D сделано так было начал я, но потом вспомнил что в Lazarus есть почти такой-же инспектор объектов, в общем нужно такое, но хотелось-бы чтобы это былогде-то скраю как в Blender 3D - на...

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

Создание Items компонента ComboBox по списку загружаемых файлов
Добрый день! Возможно, эти вопросы уже обсуждались ранее на форуме. У меня есть процедура, которая открывает 1 или несколько файлов: function TRelTimes.ReadFiles(OpenDialog : TOpenDialog) :...

Ошибка identifier idents no member
всем здравствуйте! пишу программу для создания и воспроизведения аудиокниг. для хранения позиции воспроизведения в случае, когда программа закрывается, использую JSon. сохранить имя книги,...

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

Переделать код с OC windows под linux
Проблема та ещё, задал вопрос нейромодели Привет. Помоги с задачей. Нужна программа на FPC Lazarus. Рисует поле, условно 30 на 30 клеток, и стрелку вектора в каждой, в зависимости от входящих...

Ошибка которую не видит компилятор (инициализация массива)
Дело в том, что перед этим в программе выполняется почти то-же самое, и без ошибки. Массивы объявдены один в один, разные только имена. Но - при инициализации первого ошибки нет, а второго - есть....

Windows vs AstraLinux, 2.2.6 vs 3.4.0
Отлаживался на Win10 Lazarus 2.2.6 - всё работает, пришло время посмотреть, как это будет на AstraLinux, там тоже 2.2.6 Скопировал проект, в основном работает, но в некоторых местах - вылетает по...

Не освобождается память
Конвертировал модуль из Delphi, получился модуль вот с таким кодом: {$MODE Delphi} ............. type TBlk = record BName:string; x:Extended; y:Extended; ...

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

Не работает клавиатура в редакторе Lazarus 3.x Qt5/6 в Linux
Доброго времени суток! Даже не знаю куда куда это лучше поместить сюда или в ветку по Linux. Mint 22.1 Cinnamon Lazarus 3.2 собранном под Qt6 в кокой то момент перестала работать клавиатура в...

Время простоя компьютера
Фрумчане как в линуксовом лазарусе получить время простоя компьютера (время когда ни мышка ни клавиатура не используется)

Memo не может открыть весь файл
Впервые столкнулся с такой "ерундой". Memo открывает только 1724 строки (не полностью) текстового файла, содержащего 6413 строк. Прикрепляю проект и файл, который хочу открыть. В чём может быть...

Не выделяется узел после перетаскивания в дереве TLazVirtualStringTree
Доброго времени. Не могу понять в чем фишка: перетаскиваю (не копирую) узел в другой узел в пределах одного и того же дерева TLazVirtualStringTree -всё ок: изначальный узел исчезает в новом месте...

Ошибка при работе с компонентом TOpenGLControl - Error: Identifier not found "Sender"
Не понятно по каким причинам возникает, хотя, по памяти - у меня это (или похожее) уже было. Это, как указывала языковая модель Добавьте обработчики для событий OnCreate, OnPaint и OnResize...

Не запускается программа в Windos 10 (версия 20H2)
Доброго дня! Перерабатываю проекты с Delphi на Lazarus 3.0 на компьютере с Win10 (версия 1903). Все прекрасно работает. Но на машинах с Windos 10 (версия 20H2) не запускаются (просто сразу...

TStringgrid и defaultdrawing
При установке в TStringgrid defaultdrawing=false он всё равно рисует линии. В Delphi такого не было. Хотел сделать объединение ячеек, но эта фича не позволяет это сделать. Может, я чего-то не...

Ошибка открытия файла через OpenDialog
Всем доброго времени суток Столкнулся с проблемой открытия файла в OpenDialog Вылезает ошибка. (скрин ниже) На функционал она не влияет, т.к. позже дает выбрать файл, но влияет на "визуал"...

Помощь пропала
Внезапно пропала помощь. Вчера была - сегодня нет. Laz3.8, Win10.

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

Что я делаю не так, про UTF8ToAnsy
Добра всем! Переписываю проект на Дельфи под Лазарус. Столкнулся с проблемой кодировки. Есть SQL запрос через TSQLQuery select * from s_dosie where FAM= 'Попов' результат ноль (Записей...

Открывает форму на доли секунды
Здравствуйте! Только установила Lazarus 3.6 создала форму и пару ничего не выполняющих кнопок. При компиляции проекта форма запускается на доли секунд и сразу пропадает. Помогите пожалуйста(

Говорилка на Лазарусе. Как регулировать высоту голоса?
Наверняка многие знают "Говорилку" Антона Рязанова https://www.vector-ski.ru/vecs/govorilka/. В сети есть две интересные статьи по использованию Microsoft SpeechAPI API v.5.4 в Delphi...

so с внешним файлом отладочных символов
Приветствую. Пытаюсь собрать пустой .so (Файл->Создать->Библиотека) с опцией -Xg (использовать внешний файл отладочных символов). Размер файла действительно уменьшается, т.е. опция работает, но...

Ошибки в OpenDialog.Filter и SaveDialog.Filter
Всем привет! Повторное нажатие на кнопки с открытием файла и сохранением данных в файл вызывает ошибки (см. в прикрепленных) в строках: OpenDialog.Filter := 'dat files|*.dat|txt files|*.txt'; ...

Создание локальной базы данных
Добрый вечер, форумчане. Подскажите, пожалуйста, в какую сторону начать копать. А вопрос о создании базы данных такой: мне необходимо добавлять в нее (а затем хранить, обращаться и т.д.) наборы...

Решение системы уравнений методом последовательных приближений
Написать программу решения системы линейных алгебраических уравнений методом последовательных приближений с точностью ε=0.0001. \left{ \begin{array}{rrrrrrr}-0.5x_1&+&0.1x_2&+&0.2x_3&=&7 \\...

Как уменьшить количество компонентов для работы с несколькими таблицами?
Использую базу PostgreSQL. Если в одной базе находится 2 таблицы, то для каждой таблицы размещаю на форме свои компоненты управления. Дело в том, что после записи новых данных в таблицу DBGrid...

IVarStreamable интерфейс Delphi перенести в Lazarus
Здравствуйте. У меня в проекте используется интерфейс IVarStreamable: // Ccылка на стандартный вариант, позволяющая пользоваться // надстройками типа TCustomVariantHandler type ...

Linux. Не соответствие десятичного разделителя в системе и программе
В системе десятичный разделитель - запятая, а программе в DefaultFormatSettings - точка. Как так?

Переделать под другой пример
Помогите переделать эту формулу под этот пример плиз :sorry: unit Unit1; {$mode objfpc}{$H+} interface

Нумератор строк в таблице StringGrid
Имеется вот такой код procedure numRows(); var i:Integer; begin Form2.StringGrid1.Cells:='№'; for i:=1 to Form2.StringGrid1.RowCount-1 do begin ...

Можно ли использовать Paython DLL, написанную в Lazarus
Вопрос чисто из "спортивного интереса". Просто смотрю, как мой знакомый в Paython-е обрабатывает биты, столько там "извращений". Вот я и посмеялся: давай я тебе сделаю DLL-ку, которой будешь...

Ошибка "Невозможно найти Canvas"
unit Unit6; {$mode ObjFPC}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Math, StdCtrls, Canvas; type

Вывести на экран таблицу значений функции S(x) для x изменяющихся от xn до xk с шагом h
Написать и отладить программу. Необходимо вывести на экран таблицу значений функции S(x) для x изменяющихся от xn до xk с шагом h=(xn-xk)/10. xn|xk|S(x)...

TProcess и ipConfig. Не закрывается окно консоли
Здравствуйте, добрые люди. Имеется: Lazarus 2.2.6 x64 (для ОС Windows x64) Windows 7/10/11 Проект x64 Написал функцию запуска внешней программы, и всё прекрасно работало, пока не понадобилось...

TLMessage как TLMHScroll выдает ошибку Error: Illegal type conversion: "TLMessage" to "TLMScroll"
Добрый день. В лазарусе такое действие TLMHScroll(Msg).ScrollCode := SB_THUMBPOSITION; выдает ошибку Error: Illegal type conversion: "TLMessage" to "TLMScroll" А в делфи аналогичная конструкция...

Построение графика по данным из dat файла
Добрый вечер. Подскажите, пожалуйста, можно ли менять разделитель для функции Split? Мне необходимо загружать файлы (пример в прикрепленных), в которых есть отрицательные значения. Получается...

Замена шаблона во всех файлах проекта
Нужно заменить во всех файлах проекта текст Mess('Самые разные сообщения','Ошибка'); на _error('Самые разные сообщения'); Ну, само регулярное выражение я как-то составлю, наверное, а вот что...

Повернутый прямоугольник в TBGRABitmap или где-то ещё
Рисую вот такую схему (вложение), тут требуется: 1. Повернуть текст (на изолиниях). 2. Сделать прямоугольную подложку этого текста цветом фона. Для текста есть операция поворота, всё получается...

Программная прокрутка Scroll
Привет Всем! Нужно программно крутить скролл вверх в левом окне (например в блокноте). Делал как-то давно и всё работало, но сейчас не могу никак вспомнить. И не гуглится. Вроде что-то с...

Почему в OnDrawCell грида не работает TTextStyle?
Всем привет. Возник у меня вопрос, ответа на который я не нашел. Итак: есть форма с кнопкой, гридом и PaintBox-ом. По нажатию кнопки рисую в PaintBox-е текст: procedure TForm1.Button1Click(Sender:...

Можно ли уменьшить время подключения клиента к серверу (Indy)?
Разместил на форме компоненты TIdTCPClient и TIdAntiFreeze. Подключение к серверу происходит относительно быстро, если сервер запущен. А вот если сервер не запущен, то всё "висит" секунд 30. У меня...

Не получается воспроизвести звук из ресурсов
Из WAV-файла звук воспроизводится, а из того же файла, помещённого в Announcer.lrs - нет. Пробовал использовать функции sndPlaySound и PlaySound. Файл ресурсов создавал командой "lazres...

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

Как со 2-й формы применить процедуру из 1-й формы
Вот например в 1-й форме я прописал процедуру в public. Я хочу чтоб во 2-й форме я мог использовать эту процедуру. В uses 2-й формы я прописал Unit1, - не работает, ошибку выдаёт.

TCanvas очищается от предыдущей графики при повторном действии с ним
Добрый день! Делаю простой редактор тайловых карт для игры. У меня такая проблема со старта: Рисунок, появляющийся на TCanvas при щелчке мышью по событию OnMouseDown моментально исчезает,...

Решить пример через метод Ньютона (касательных)
5x - 1 - 2 = 0 интервал любой точность ξ =0,0001 (Можно и через другие методы Метод деления отрезка пополам или Метод интерации) и все чтобы выводило через мемо

Выгрузка фото из базы Access
Всех с наступающим 2025 годом Столкнулся с такой задачей. Необходимо из базы данных MS Access выгрузить в папку фотографии. Использую код procedure TfMain.BitBtn1Click(Sender: TObject); var ...

Согласование параметров процедуры
Процедура у меня объявлена так: function MnkPlane(const x,y,z:array of Extended;n,typ:integer;x0,y0:Extended;var af,bf,cf,df:Extended):Extended; А в вызывающем блоке первые 3 параметра объявлены...

Длинные строки в TStringGrid: перенос и увеличение высоты строки
Не сделали ли, наконец, разработчики в TStringGrid возможность автоматически переносить длинные строки, и увеличивать высоту строк? А то надоели .TextExtent, .TextOut и RowHeights:=

Поделитесь кто реализовывал класс настроек приложения TSettings
Интересует кто-нибудь делал для приложений на Lazarus класс-менеджер для хранения и управления настройками приложения? Я в принципе представляю такой подход, но хотелось-бы посмотреть на пример...

Разделители в TPopupMenu
Мне необходимо добавить разделитель между 0 и 1 item в TPopupMenu, не создавая при этом еще один item с прочерком. До этого использовалась APopupMenu.Items.AddSeparator; но она вызывает ошибки...

Как преобразовать картинку из растрового формата в WEBP
Собственно весь вопрос в заголовке: "Как преобразовать картинку из PNG(BMP)-формата в WEBP?"

Как в TChart вывести на оси не аргументы функции, а ее "метки"?
Нужно что бы на графике, внизу, на нижней оси, выводились не числа, значения Х, а метки, которые добавляются через .AddXY(1,2,'metka', clRed). Как это сделать?

Преобразование текста в речь (Windows-10)
На эту тему в сети есть примеры, однако они в лучшем случае под Windows-XP. Суть их сводится к установке SpeechSDK и написанию нескольких строчек кода. Однако статья...

Вернуть состояние по умолчанию для размеров окна Hint
Изменяю для определённых целей размер окна Hint и задержку вывода Hint. type TExHint = class(THintWindow) public function CalcHintRect(MaxWidth: Integer; const AHint: String; AData:...

Перегруппировать последовательность чисел
Напишите программу на Lazarus используя Tedit, Tbutton. Задание: Даны действительные числа a1, a2, ..., a2n. Получить: a1, an+1, a2, an+2, ..., an, a2n

Нужно сделать графическое приложение "Камень-ножницы-бумага" в Lazarus
Здравствуйте! Очень срочно. Сделайте пожалуйста графическое приложение "Камень-ножницы-бумага" в Lazarus.Нужен готовый проект. Должно быть три кнопки Камень Ножницы Бумага соответственно....

Как в Edit на форме запретить ввод пробела?
Как в поле Edit на форме запретить ввод пробела?

Ubuntu: при запуске Lazarus-а единица на основной клавиатуре перестает работать
Может кто встречал подобное, у мня при запуске Lazarus (у меня установлен OS linux Ubuntu 21.1) единица на основной клавиатуре перестает работать будто клавиатура неисправна, но стоит выгрузить...

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

Как вернуть обработку исключений в отладчике Lazarus
Доброго времени суток! При отладке приложения, на возникновении исключения, нажал "игнорировать этот вид исключения", теперь не могу найти как его включить обратно... Спс.

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

Первый элемент массива подчеркивается при компиляции в Лазарусе
PxQRcode.pas https://github.com/delphi-pascal-archive/Pascal-QRCode/blob/master/pxQRcode.pas function MakeQRMask(const AWidth: Integer; const AFrame: TQRFrame; const AMask, ALevel: Integer):...

Решение по методу Симпсона либо по методу трапеций
Сделайте плз либо по методу Симпсона либо по методу трапеций эту задачку: Написать программу вычисления интеграла \int_{0}^{4}x^2\operatorname{d}x если n=45.

Ошибка "Forward declaration not solved"
unit Main; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; type

ZMSQL. Запрос возвращает имена полей вместо значений
Доброго времени суток. Для обработки csv-файлов захотел использовать ZMSQL - заманчиво и привычно получить запросом то, что надо. Компонент встал без проблем. Его Демо работает частично, но данные...

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

Проблема при смене сервера firebird
У меня на Ubuntu был установлен Firebird 3.1 . И был написан ряд программ с использованием компонент ibx . Но была проблема: бэкапы fbk , созданные в 3.1 нельзя восстановить на firebird 2.5 . А на...

Собрать 32-битную so с -fPIC
Приветствую. Пытаюсь собрать 32-битную .so с опцией -fPIC. Создаю новый проект Library, ставлю таргет - Linux i386, в custom options добавляю -fPIC и -Cg (думаю, это синонимы), в опции линкера...

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

Решение дифференциального уравнения методом Эйлера или методом Рунге-Кутта
Написать программу решения дифференциального уравнения методом Эйлера или метолом Рунге-Кутта, если известны следующие данные: Уравнение|Шаг|Интервал|Начальные условия \small...

Lazarus 3 - есть какие то подводные камни при переводе проекта с lazarus 2 ?
собственно сабж.. в проекте xmldoc inet

Ошибка: модуль не найден fpvectorialpkg
Доброго времени суток, уважаемые. Проблема такая: установил пакет fpvectorialpkg, но при сборке IDE выдаёт ошибку (на скрине во вложении). Игнорирую или пропускаю (потому как не знаю что с этим...

Операции над указателями
Просто интересно - какие тут бывают операции над указателями?

Как передать процедуру
В одной модуле у меня: type THintProc = procedure (row,col:integer;tbn:string); ... type TTableGrid=class(TCustomControl) ... public HintProc:THintProc; В другом: procedure...

Иконки проекта
Можно ли назначить проекту несколько иконок, каждая для своего размера? Например, 128x128, 64x64, 32x32, 16x16 ?

Программная активация обработчика событий (желательно через флаг разрешения)
Например, чтобы кнопка работала только тогда, когда когда размер нного массива достигает определённого значения. А ещё лучше - когда значения флага равно единице. Потому что типов таких массивов...

Сокращение ФИО
Добрый день, форумчане. Возникла проблема с сокращением ФИО: при извлечении первых букв имени и отчества функция возвращает непонятные символы. В итоге в отчёт у меня вылетает ?. ?. Фамилия. ...

Разное поведение версий lazarus для popupmenu
Вот такой код: //----Один из пунктов popupmenu procedure TRepForm.MenuItem2Click(Sender: TObject); begin rate:=rtSelNer;Status;Draw; end; .................. //---Попали в линию...

Удаление содержимого вложенных папок
В процессе работы с FTP-сервером записываются данные: D:\FTP\User1\News\далее папка дата\далее папка час\далее куча файлов. Периодически надо удалять всё, что было записано в папку...

Работа с ресурсами *.rc
Решил попробовать поработать с rc-ресурсами, но что-то идёт не так. Что не так делаю? Win11, lazarus 2.2.6

Рабочий код не работает
Добрый день, форумчане. Кто-нибудь может мне объяснить почему не отрабатывает код, приведённый ниже? procedure TrepF.somethingdo; var i:word; //integer тоже не работает, да и зачем счётчику...

Цикл не работает
Программа должна находить простые числа из диапазона от a до b и считать их количество (определять, простое ли число нужно с применением функции). Написана программа следующая: function...

TChart как задать расстояние между метками
Я по одной оси вывожу время, то есть метки не просто цифра, а сравнительно объемный текст. Как сделать что бы он друг на дружку не налазил? Вариант повернуть не подходит. Ну и в догонку.... у меня...

Как узнать поступил ли ответ в TIdTCPClient (Indy)?
При работе с COM-портом при приёме байта возникает прерывание, по которому можно определить, что что-то принято. А как быть с TIdTCPClient? Суть задачи такая. К серверу подключаются клиенты. Сервер...

Ошибка "identifier idents no member "ReadAsText""
Здравствуйте, написала приложение, в котором используется пакет для работы с exel. После чего поменяла компьютер. (не имею информации о версии lazarus или пакета FPSpreadsheet) После чего на новом...

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

Как узнать метод кодирования
Подскажите пожалуйста, можно ли узнать метод кодирования следующей строки:- "KrDwL0dw7du3nksmUSqBpYsfeoj+ea+xZAXGmeu01NrBIFU/5XhbGiqwQ8sev6mjlH3oIr8tr3w4e1WAz22r0w==" Base64 или другое.

Инициализация полей классов
Всем здравствуйте. 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-а прошу строго не судить - я не профессиональный программист, а...

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

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

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

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

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

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

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

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

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

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

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

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

Как запустить программу в 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...

Как убрать ошибку: 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 Делал, делал калькулятор, а тут вот такое, а главное раньше всё...

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

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

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

Парсинг 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+}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как установить 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 какую нить ошибку...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка "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 я такого не могу найти, как построить точечный график функции??? Помогите, нужно для диплома.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Перевод чисел в различные системы счисления
Написать программу в 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;...

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

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

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

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

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

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

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

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

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

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

Выдаёт ошибки 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,...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Имя файла без полного пути
Вот такая беда procedure TForm1.MenuItem5Click(Sender: TObject);//загрузить схему в проект var //PixF: TPixelFormat; x,y: integer; filename:string; begin ...

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

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

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

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

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

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

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

Как закрыть одну форму и открыть новую?
Доброго времени суток. Нужно в проекте закрыть одну форму и открыть другую. На сколько мне известно, надо в uses описать 2 форму, чтобы она открылась. У меня есть код( ниже). Где надо описывать 2...

Помогите извлечь корень
Writeln('x=',-b + KOR FROM D)/2*a);

Как посчитать синус аргумента, заданного в градусах?
напишите пож. саму строку кода.

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

Словари в Pascal
Всем привет! Начал вспоминать pascal. Столкнулся с проблемой - списки, словари. Словари - неупорядоченные коллекции произвольных объектов с доступом по ключу. Их иногда ещё называют ассоциативными...

Отображение HTML файла
Добрый день. Стоит задача отобразить в приложении HTML файл. По типу как WEB страница в браузере (вид должен быть такой же); То есть по сути стоит задача создать ридер HTML файлов в Lazarus. Делал...

Заполнение данными таблицы StringGrid через Edit
Здравствуйте Ув. у меня такой вопрос: у меня на форме 2 Edit, 1Button, StringGrid, мне нужно через 2 эдита ввести данные в таблицу, при нажатии кнопки.Вот код: procedure TForm1.Button1Click(Sender:...

Создание формы входа на сайт (логин, пароль)
Помогите пожалуйста!) Необходимо создать форму входа на сайт(логин, пароль). Я смогла сделать, чтобы при вводе правильного логина-пароля выводилось на форму "правильный пароль" в Label и не...

Подключение к БД Access
Распишите пожалуйста, алгоритм действий для подключения БД Acsess в проект Lazarus. =)

Вычислить значения функции
Помогите пожалуйста с кодом Lazarus Заранее спасибо .

Переменной С присвоить символ из поля Edit
как переменной С присвоить символ из поля Edit? var c:char; begin c:=StrToInt(Edit3.Text); ShowMessage(c); end;

Как программно созданной кнопке прописать onclick?
у меня не получилось procedure TForm1.Button1Click(Sender: TObject); var btn: tbutton; bukva: string; begin bukva:='n';

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

Терминал в Linux
1. Как в Лазарусе открыть Терминал и кое-что там написать? 2. Как в Лазарусе сделать программу, которая при вводе в терминале делала как gcc: gcc /myprog /myprog.c и gcc компилирует программу со...

Создание секундомера
Необходимо написать секундомер, который начинает работать с момента открытия формы (то есть после Form1.ShowModal), как сделать так, чтобы велся отсчет времени и пользователь видел, сколько времени...

Lazarus: как программировать в нем?
Всем добрый день!!!!! Кто знает как пользоваться Лазарусом.? (Точнее использовать по назначению))). У меня вообще даже программка из Паскаля там не открывается. Даже не компилируется. Что делать?

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

Кнопка с гиперссылкой
Нужно написать событие "онклик" для кнопки. Событие следующие: просто напросто открыть в браузере определённый адресс(сайт).

Определение корня квадратного из числа или квадрата числа
Написать программу определения корня квадратного из числа или квадрата числа по выбору пользователя.

Работа с русскими буквами
Всем привет, возникла проблема с русскими буквами, программа берет слово из массива в зависимости от выбранного метода изменяет его,но с русскими буквами не выходит 1) ищу букву о в слове чтобы...

Смена фокуса ввода между двумя компонентами по нажатию Enter
доброго времени суток. теперь к вопросу у меня есть программа которая состоит из listbox и edit. и мне нужно чтоб по нажатию на ентер фокус ввода менялся со строки listbox на edit. буду очень...

'External: SIGSEGV' - подскажите, что это?
Помогите, плиз, добраться до корня проблемы. Кусок листа: procedure TRialtoForm.MPrintCorp10Click(Sender: TObject);//Вывод >10% var i: integer; item: TlistItem; begin for i:=0 to...

При нажатии кнопки на Form1 открыть Form2
Подскажите как при нажатии кнопки на форме1, открывалась форма2? Но в это время форма1 была невидимая и недоступна.unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils,...

Програмное создание объектов
Неободимо написать код для создания и выведения на экран объекта класса TShape (или TImage). Написанный мною код: unit Unit1; {$mode objfpc}{$H+} interface uses

Что означает слово Sender в заголовке процедуры?
вот например есть процедура "procedure TForm1.Button1Click(Sender: TObject);" что означает "(Sender: TObject)"? для чего оно и чем его можно заменить при создании своей процедуры?

О Времени работы программы
Добрый день, был бы очень признателен, если вы объяснили бы процедуру GetProcessTime , ума не приложу, что с ней делать и как она работает. Допустим, у меня есть программа которая сортирует массив...

Массив: Заполнить массив нулями, кроме первого и последнего элементов, которые должны быть равны единице
Заполнить массив нулями, кроме первого и последнего элементов, которые должны быть равны единице.

Ошибка index out of range cell
Доброго времени суток. На программировании была задана задача: "Дан одномерный массив. Найти количество нулевых элементов массива и произведение ненулевых элементов". Я в этом деле новичок поэтому я...

Вызов ShowMessage из DLL в Lasarus
Переношу DLL проект с Делфи на Лазаря, столкнулся с такой проблемой. Лазарус не видит окна ShowMessage из проектов DLL, говорит Error: Identifier not found "showmessage" . Кто нибудь знает как с...

Удаление Lazarus - как это сделать?
Ребята скажите пожалуйста как можно полностью удалить Lazarus с системы - сколько раз уже пробовал он не умирает , какие-то остатки файлов остаются и заного записать не дает . Жду ваших...

Ошибка при работе с rgb
в чем ошибка? ImageFon.Canvas.Pixels := rgb(MyColor, MyColor, MyColor)

Вычислить f(a) по заданному графику
Дано вещественное число а. Для функции у=f(x), график которой приведен ниже, вычислить f(a) Всем привет, парни дайте пжл-та пример как выполняются задания такого типа, а то в учебнике не дали...

Перспективы Лазарус
Добрый день, проконсультируйте плиииз! Хочу понять перспективность языка/технологии. Делфи "умирает" уже больше 10 лет! Пик популярности был 12-15 лет назад. Знакомая фирма(программист) в...

Ошибка Невозможно найти модуль (Lazarus 1.4.4 win 32, FPC 2.6.4)
выдает ошибку: Warning: Recompiling Classes, checksum changed for RTLConsts forms.pp(35,3) Fatal: Невозможно найти модуль Classes, используемый в Forms. Убедитесь, что все файлы PPU пакета...

Экспорт в Excel
здравствуйте. У меня приложение, созданное в Lazarus. В самом приложении имеется dbgrid, в который выводится результаты запроса из БД. Мне нужно сделать экспорт в Excel. Я попытался это сделать с...

Работа с таймером
нужно что бы на форме показывались часы, и поле где при заданом времени (когда оно настанет на часах) выводился лейбл3 на 5 секунд ( грубо говоря такой себе будильник ). Немогу написать процедуру...

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

Цвета в Memo
Возможно ли сделать так чтобы надписи в Memo были разного цвета(имеено определенные надписи или части надписей)? Например мне нужно чтобы надпись "Seeker81195: привет!", выгледела так: "Seeker81195:...

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

У исполнителя Утроитель две команды: 1. Прибавь 1; 2. Умножь на 3. Сколько есть программ, которые число m преобразуют в число n?
У исполнителя Утроитель две команды, которым присвоены номера: 1. прибавь 1, 2. умножь на 3. Первая из них увеличивает число на экране на 1, вторая – утраивает его. Программа для Утроителя – это...

Загрузка, изменение и сохранение изображений
Доброго всем дня. Пишу в lazarus программу, не вдаваясь в подробности - требуется выбрать изображение, произвести над ним некоторые манипуляции и сохранить результат. Код: //выбор изображения if...

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

Переход на новую строку #13
Доброго времени суток. Ребят, подскажите пожалуйста, что значит строка: spisok:=spisok + IntToStr(i)+') '+a+#13;//для Label4, в частности "#13" ?

Программа "Магический квадрат"
Написать программу "Магический квадрат" в Lazarus!!!!!!. Задача: разместить в клетках квадрата со стороной n (текстовых полях) числа от 1 до n2(степень) так, чтобы вдоль каждой стороны и диагонали...

Ненавистная ошибка External:SIGSEGV
Программа банальна. Два элемента Memo, создается матрица, выводится в Memo1, потом идет обработка матрицы(добавляется столбец в Memo1, где котором записаны суммы всех строк, с помощью Inputbox вводят...

Как найти кубический корень в lazarus
Напишите пожалуйста формулу для нахождения кубического корня

Как создать метку и переходить по меткам нет в учебниках
Подскажите как делать передачу управления в программе по метке, и создавать метку. В учебниках пишут что это типа для слабоумных - делать переходы goto..., поэтому предмет не раскрыт.

Воспроизведение mp3 файлов
Как в лазарусе воспроизвести mp3 файл?

Найти среднее арифметическое элементов массива
на delphi\Lazarus *желательно на лазарусе* сделайте кто-нибуть задачу (Среднее арифметическое элементов массива) с помощью Tmemo.

Присоединение dll к приложению
Здравствуйте. Примерно 2 недели назад создавал тему про создание приложения для отправки e-mail. Вот ссылка:https://www.cyberforum.ru/lazarus/thread1587504.html. Вроде все получилось, но теперь...

Создание текстового файла и запись в него содержимого Edit.Text
Как создать файл с указанным именем в указанной папке? Как записать Edit.Text в файл?

Работа с файлами в Лазарусе
Здравствуйте, подскажите пожалуйста как решить следующую проблему. Мне нужно результаты записать в файл. Я это делаю следующим образом: procedure TForm1.Button1Click(Sender: TObject); var ...

Таблица умножения
какой компонент подойдет для вывода результатов таблицы умножения в виде таблицы 1 2 2 4 т.д.? Добавлено через 37 минут такое решение нашел: на форму поставил компонент Memo в...

Связать несколько форм между собой
Здравствуйте.Подскажите пожалуйста как связать между собой несколько форм.Допустим вводим некоторую информацию на первой форме и можно было выводить её на второй форме и наоборот.

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

Как прописать формулу в Lazaus
Как прописать данную формулу в Lazarus unit Unit1; {$mode objfpc}{$H+} interface uses

Одномерный массив. Сумма четных элементов
Проблема в составлении программы к задаче: Дан массив из 10 чисел. Написать программу подсчета и вывода суммы четных элементов массива.

Изменить цвет текста и ячейки TStringGrid
Здравствуйте! Помогите изменить цвет текста и ячейки TSringGrid по событию OnDrawCell. Код Delphi не работает {Устанавливаем шрифт} sg.Canvas.Font.Name := 'Courier'; if...

Lazarus и PostgreSQL
Здравствуйте. Всем доброго времени суток. Прошу помощи (подсказки, совета). Суть проблемы такова, написал небольшую программку на Delphi, которая цепляется к БД PostgreSQL через ADOconnection и...

Scroll в компоненте TMemo
Не могу получить горизонтальную прокрутку в TMemo. Выставляю в в свойствах ScrollBars - ssBoth, появляется вертикальная прокрутка а горизонтальной нет! Как исправить ситуацию? Добавлено через 6...

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

Считывание компонента TImage из программы
Немогу разобраться, как сделать так чтобы компонент TImage считывал картинки не из каталога а из самой программы (имеется ввиду не в свойствах щелкнуть по диалогу загрузки картинки, потомучто этих...

Менеджеры SQLite - схема связи таблиц в БД
Посмотрел 3 менеджера БД SQLite: SQLiteStudio, SqlitemanPortable, DB Browser for SQLite. Нигде нет возможности создать схему связи таблиц в БД. Ну например, как в Access (резиновые такие ниточки с...

Контролируемый ввод в Edit
Необходимо контролировать ввод в Edit: т.е. разрешается вводить, например, только цифры. Это решается при помощи MaskEdit. Но потом нужно конвертировать тип при сохранении в файл. Допустим, не вся...

Вместо созданного проекта запускается другой проект
создаю новый проект .сохраняю его как project_triancl компилирую-успешно,запускаю...и вылазит после запуска совсем другой проект ...почему это так происходит? закрываю новый project_triancl ......

Отбрасывание знаков после запятой
Вот моя полная процедура: procedure TForm1.result(k:word); begin memo1.Visible:=true; Memo1.text:= 'Всего вопросов - 7'+#10#13+'Правильных ответов - '+inttostr(k) + #10#13...

Error: Incompatible type for arg no. 1: Got "Extended", expected "QWord"
Задача: Написать калькулятор var Form1: TForm1; x1,x2,op:integer; implementation {$R *.lfm} { TForm1 }

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

Очистить TMemo
Что-то делаю не так, но что не знаю. Вот код { TForm1 } procedure TForm1.MenuItem1Click(Sender: TObject); begin end; procedure consopen; begin

Format - универсальная функция преобразования
имеем книгу по Free Pascal, в которой описывется функция Format, указанная в названии темы. в книге фигурирует такое понятие как форматный указатель. вообще, в описании Lazarus, сказано что...

LazUTF8 gettext ошибка при компиляции
При компиляции любой программы lazutf8.pas(194,3) Fatal: Невозможно найти gettext, используемый в LazUTF8 пакета LazUtils. и кидает на сточку uses gettext {$IFDEF Darwin}, MacOSAll{$ENDIF} ;...

Точка в canvas
Скачал учебник - всё есть, и OpenGL даже, а можно как-то нарисовать точку в canvas?

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

SDPO библиотека - работа с com портом
Всем привет. Есть StringGrid - внем храняться данные в виде 0x00, 0x80 , 0xF2 и т.д. - передаю в com порт используя библиотеку Sdpo. В порт-мониторе появляются ASCI коды? т.е. 30 78 30 30 и т.д. , а...

Как закрыть приложение (зная имя его процесса)?
Уважаемые форумчане подскажите как закрыть стороннее приложение из своей программы (допустим на форме есть несколько кнопок, одной кнопкой я запускаю приложение через AProcess :=...

Вызов процедуры события
Наверное, на примере понятнее будет: Вот есть у меня 2 процедуры, совершающиеся по клику по разным элементам: procedure TForm1.Image42Click(Sender: TObject); begin Image42.Hide; end; и

Генератор карты высот (часть программы-генератора G кода)
Наверное прийдётся сделать длинное вступление (все-же пишут чего и зачем, у кого сессия, у кого что): Есть необходимость создания программы, по причине отсутствия фряшных качественных программ, ну и...

Создание одномерного массива с заполнением рандомными числами
Напишите пожалуйста процесс создания одномерного массива с его заполнением рандомными числами.

Компиляция проекта из-под Linux для Win32
Здравствуйте. Я работаю из под Linux, нужно что-бы созданная мною программа работали и под win32. В параметрах проекта указал нужную ОС. В итоге при компиляции Lazarus выдал мне ошибку: "Fatal:...

Чтение файлов из doc и docx
Привет. Может плохо искал, но как правило поиски приводят на форумы delphi а описанные там методы - в lazarus работать не хотят. Собственно вопрос в названии темы, кто что знает - подскажите...

Динамические массивы
Помогите с задачами плиз 1. Дан динамический массив целых чисел. Вставить после каждого элемента массива его копию. 2. Дан динамический массив целых чисел. Удалить из массива отрицательные...

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и
Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и 3, и 5.

Перевод из десятичной системы в двоичную
перевод из десятичной системы в двоичную

Вывести на экран наименьшее и наибольшее из заданных 4-х чисел
Помогите с задачей!пожалуста! Дано четыре числа вывести на экран то которое меньше и то которое больше с соответствующем обобщением "большее число "."меньшее число"

Сохранение содержимого Memo в текстовый файл
Доброго времени суток. Нужно сохранить содержимое Memo в текстовый файл: procedure TForm1.Button3Click(Sender: TObject); var f: Text; begin try assignfile(f, 'Data.txt');

Оформить в виде модуля процедуры и функции
Оформить в виде модуля процедуры и функции, получающие в качестве параметра двумерный массив N x N (N - константа модуля) и производящие с ним следующие действия: - транспонирование относительно...

Чтение данных из файла
Подскажите, как слова разделенные пробелами, записать в отдельные переменнные, через readln.

Стили шрифтов в Lazarus
К стилю шрифтов дается следующее описание: published property TFont.Style:TFontStyles = set of TFontStyle = C:\lazarus\lcl\graphics.pp(583,14) Description

Создание объектов во время выполнения программы
Помогите мне с таким вопросом. Нужно написать программку. Задание такое: При нажатии на кнопку на форме создается еще одна кнопка. Я ума не приложу как это сделать. Помогите пожалуйста.

Вычислить сумму целых случайных чисел, распределенных в диапазоне от 5 до 10
Помагите пожалуйста решить задачку в Lazarus и если можно нарисовать все это в Form1. Вычислить сумму целых случайных чисел, распределительных в диапазоне от 5 до 10 , пока эта сумма не превышает...

Программа для создания тестов
Ребята помогите создать тестовую приложение с формами,чтобы был редактор ,можно было заново создавать

Игра 'Сапёр' на Лазарус
Хочу создать сапёра на Лазарусе, но не знаю, как сделать алгоритм определения бомб. Можете ли скинуть код, срочно надо.:help::help::help:

Текстовый редактор в Lazarus
Создаю текстовый редактор, наподобие блокнота в windows. Есть одна загвоздка: Как написать процедуру для кнопки меню ВЫХОД?

Lazarus OnClick for Button
Добрый день, собственно нужна ваша помощь, суть такова: нужно было описать обработчик событий OnClick для кнопки, нажав на которую загружался файл с рисунком формата BMP в память компьютера, далее...

Вывод в Label
var poch,kin,k,s : integer; procedure TForm1.Button1Click(Sender: TObject); begin poch:=StrToInt(Form1.Edit1.text); kin:=StrToInt(Form1.Edit2.text); while poch <=...

Laz 1.4, не видит libmysql.dll (5.6)
При попытке выставить connected в true у MySQL56Connection появляется вот эта ошибка, нет длл-ки и всё. Хотя в папке с проектом она есть, и в system32 есть. Находил описание ошибки такое, что надо в...

Создать две: очистить и добавить пробелы к строкам
Ребят, только-только начинаю изучать лазарус,плохо разбираюсь в этом всё, можете помочь стоит задача создать две кнопки: btnClear - очистить выделенный текст (SelText := '') при его наличии...

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

Сокрытие программы в панели задач
При запуске нужно скрыть значок приложения в панели задач, выполнить некоторые действия(форма должна быть видна, а от заначок - нет), скрыть саму форму. Второе - всё просто: formName.Visible:=...

Работа с классами и значениями переменных класса
Привет. Извините, что прямо так прошу :) не привык так) Помогите!!! Перешел на 3 курс, сказали все, с++ не будет, будет lazarus и pascal. Буквально на второй лабораторной запоролся :) Не буду...

Файл в кодировке ANSI
Лазарус работает с UFT8 и файлы, которые сохраняются через TStringList или TextFile так же имеют кодировку UTF8. Необходимо: открыть файл "1.txt"(utf8) и сохранить его в файл "2.txt"(ansi)....

Можно ли сделать форму прозрачной, но чтобы компоненты оставались видны?
Хочу чтобы компоненты лэйбл весели в воздухе. То-есть форма не видна, а компоненты лейбл видны. Добавлено через 21 минуту В делфи среде это делается через свойства формы TransparentColor и...

Как выводить Application.MessageBox по-центру приложения, а не по-центру экрана
сабж. на stackoverflow нашел вариант, как показывать это сообщение по центру приложения для Delphi. Там это делается через конструкцию MessageBox(this, ...). В Lazarus такая конструкция у меня не...

Ошибка при запуске программы: "" is an invalid integer - Lazarus
В компиляции не было ошибок. Но при запуске программы и нажатии кнопки вылезает диалоговое окно с данной ошибкой. Помогите пожалуйста. procedure TForm1.Button1Click(Sender: TObject); var...

Ошибка преобразования строки в вещественное число (EConvertError)
подскажите пожалуйста где у меня допущена ошибка unit Unit1; {$mode objfpc}{$H+} interface uses

Присваивание обработчика события
Пусть кнопка создана так: Button:=TSpeedButton.Create(FormMain); Button.Parent:=FormMain; Button.Width :=23; Button.Height:=23; Button.Left :=0; Button.Top :=0;...

Эллипс в Lazarus
Нужно нарисовать окружность с заданными координатами. При использовании кода, приведенного ниже происходит следующее: рисуется окружность белого цвета в нужном месте, а всё остальное поле Image'а...

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

Поменять местами первый и минимальный элементы массива.
Сформировать массив из 15 целых чисел, выбранных случайным образом из интервала . Поменять местами первый и минимальный элементы. Не получается уже с первого шага, заполнить таблицу А дальше так...

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

Вычислить количество миллиметров и сантиметров по введенному количеству метров
Составьте программу, вычисляющую количество миллиметров и сантиметров по введенному количеству метров. Вывод на экран оформить следующим образом: Введите количество метров: 5 Сантиметров = 500 ...

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

Обработка ситуации деления на ноль в простом калькуляторе
Создал калькулятор по примеру из книги Н.Культина "Delphi в задачах и примерах", добавил туда умножение и деление. НО возник вопрос, как сделать так, чтобы при делении на ноль, выводилась надпись "на...

Найти сумму всех чисел, находящихся в строке
Помогите написать код к задаче - " найти сумму всех чисел строки. В строке могут присутствовать буквы"

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

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

Lazarus + com порт + win32
Всем привет. Возникла необходимость написания программы которая получает данные из com-порта. Грубо говоря датчик температуры шлет в com-порт значения и их нужно считать. Реализовать это все...

Шифрование. Метод одиночной перестановки по ключу
Всем привет! В общем моя проблема, пишу программу для курсовой своему другу(свою уже сдал, к счастью мне попался простой метод Цезаря), но сам застрял и незнаю что делать. Программа шифрования метод...

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

Сохранить таблицу в excel
Нашёл как стринггрид записать в таблицу, а как открыть уже существующую для редактирования\сохранения? То есть хотя бы в тот же компонент загрузить

Очистка памяти VirtualStringTree
Добрый день! Работаю с компонентом VirtualStringTree. Очистка памяти: TTreeData_Test = record int_test_1: integer;

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

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

Какое событие генерируется при нажатии на ячейке TStringGrid?
подскажите, можно ли сделать так, чтобы при нажатии на ячейке TStringGrid получалось событие, которое можно обрабатывать так-же, как и нажатие кнопнки? вот это оно ? StringGrid1ButtonClick или нужно...

Морской бой (поле 9х9)
Постановка задачи: на квадратном поле 9х9 клеток случайным образом размещено 4 одноклеточных корабля.С клавиатуры пользователь вводит адрес ячейки, если корабль там(т.е есть попадание), то...

FileGetAttr возвращает -1 при работе с файлами, имена которых содержат кириллицу
Программа пишется в лазарус. Есть вот такая процедура: procedure TMainWindows.SelectButtomClick(Sender: TObject); begin OpenDialog.Execute; SelectFile.Text:=OpenDialog.FileName; ...

Как сделать перенос текста внутри одной ячейки StringGrid?
Как сделать перенос текста внутри одной ячейки StringGrid? Чтобы текст был в несколько строк в одной ячейке. Может свойство какое есть? Чет не нахожу!

Решение линейных, квадратных и кубических уравнений
Unit Unit9; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;

Создать типизированный файл, куда записать n целых чисел
Разработать консольное приложение и программу в среде программирования Lazarus. Создать интерфейс, соответствующий условию. 7.5. Составить две программы. Первая должна сформировать типизированный...

DBGrid сортировка при нажатии на заголовок
Всем привет! DBGrid стандартный в Lazarus 1.2.6. Нужно осуществлять сортировку при нажатии на заголовок столбца. Первое, не обнаружил у компонента SQLQuery -> Sort, в Delphi у ADOQuery есть....

Рандомные цвета пикселей в Lazarus
Не могу понять,как мне сделать так,что бы в процедуре button2mousedown цвет пикселей выбирался рандомный и переходил в процедуру rinkis? unit Unit1; {$mode objfpc}{$H+} interface uses ...

Incompatible type: Got "AnsiString", expected "QWord"
не могу найти ошибку. на форме имеется поле tmemo. из него считывается строка. по событию onclick выполняются действия, после чего в tlabel записывается результат. вот код: procedure...

Lazarus выдает ошибку method identifier expected
Создаю проект, часть, отвечающую за решение кубических уравнений, делала в отдельной программе. Все нормально работало. Как только перенесла код в основную программу вдруг начала вылетать ошибка...

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

Использование gif анимации в Lazarus
господа , помогите мне , не нашёл данной информации в интернете , собственно мне требуется программный код , или любая альтернатива использования анимации в lazarus .

Вывод матрицы в Memo
Как правильно вывести матрицу в Tmemo(сейчас учитывать тип массива не обязательно)?

Открытие файла программой по умолчанию
Идея такая: Есть таблица, при выборе определенной строки и нажатии кнопки "Открыть" открывается файл, определенный документ doc. Возможно ли это реализовать? Есть ли команды, которые открывают...

Перевод строки строчных букв в прописные
Составил программу по заданию: Составьте программу перевода строки строчных русских букв в прописные в Lazarus. При отладке, ввожу русские буквы и они превращаются в ?????? или УаленьШй тест....

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

Вращение Image
Всем доброго дня! В Lazarus для компонента Label существует такое свойство, как Orientation чтобы изменять угол наклона. Есть ли что-нибудь подобное для Image? Если нет, то можно ли написать...

Существует ли аналог ADO в Lazarus?
Имею небольшой опыт работы с базами данных *.mdb (Access-овские) в Delphi. Там я пользовался компонентом TADOConnection. Есть ли аналог этого в Lazarus? Пожалуйста, в ответах не говорите "работай в...

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

Круговая диаграмма
Напишите программу, которая на поверхности объекта TImage рисует круговую диаграмму, отражающую например, товарооборот продуктового магазина (или любые другие данные). Сектора должны быть выделены...

Файловый менеджер для Windows
Всем доброго, тема проекта, над которым работаю для кафедры, - файловый ассистент (по затее, файловый менеджер с доп возможностями). Нашёл такого рода файловый менеджер, написанный на с++, но им я...

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

Error: identifier idents no member "edit1"
выдаёт ошибку identifier idents no member "edit1" , не знаю как исправить, пожалуйста, помогите (начинаю только в лазарусе работать, делаю судоку) unit Unit3; {$mode objfpc}{$H+} interface ...

Class TLabel not found. В чем проблема?
Программа компилируется, однако сразу после этого вылетает ошибка: Вызван класс исключений: Class TLabel not found Программа многоформенная, где конкретно ошибка я не понимаю, вот весь код. unit...

Рисование геометрических фигур в lazarus 1.0
Помогите пожалуйста с заданием по программированию в lazarus. Задание: Создайте новое приложение(New Application),которое позволяет: А)Загружать в компонент Image1,размещенный на форме,выбранное...

Ошибка operator is not overloaded в программе по выбору станка
Добрый день, я не очень хорошо понимаю программирование, ну не шарю в нем, нужна помощь вообщем. Пишет ошибку operarot is not overloaded double and double, если даже исправится ошибка, то могут еще...

Как Лазарус работает с таблицей ASCII?
Здравствуйте. Как Лазарус работает с ASCI таблицей? При выводе символов функцией chr, большая часть выводится квадратами. Подскажите пожалуйста, как получить Полный доступ ко всем значениям...

Преобразование пакета Delphi в Lazarus
Преобразую пакет из Delphi 7 в Lazarus 0.9.30 На компилляции файла .../source/rtl/sys/system.pas выдается ошибка C:\Program Files\Borland\Delphi7\Source\Rtl\Sys\System.pas(194,21) Error:...

JSON + яндекс API погоды
Всем привет. Есть Яндекс API погоды. Зарегистрировался, получил ключ. Есть желание сделать для себя отображение погоды (интерес "для себя"), в официальной документации написано так: "GET...

Проблемы с использованием графики (TImage)
Вобщем хотелось бы исп компонент Timage выводить картинки(не линии,квадратики,треугольники итп а ихображения).Я примерно знаю как ето нужно делать но к сожелению только примерно уже 2й день ищу по...

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

Memo вывод текста
У меня есть 2 Memo и 1 Button, как сделать, чтобы при нажатии на Button текст из Memo1 "копировался" в Memo2? Еще как сделать, чтобы при нажатии на "Enter" текст из Memo1 "копировался" в Memo2?

Циклы while, until: вычисление суммы ряда
\sum_{n=1}^{\propto} \frac{5^n*{x}^{(n-1)}}{(n+2)!} s>0 s это точность, так вот нужно посчитать сумму и шаг на котором будет достигнута требуемая точность, точность вводится с клавиатуры, х тоже. ...

Воспроизведение видео
У меня windows 7 64 разрядная, установлен 64-х разрядный лазарус. В программе требуется воспроизвести несколько видео-фрагментов. Для этой цели скачиваю mplayercontrollaz.lpk и пытаюсь установить...

SQLite, Lazarus и DBDrid
Начал осваивать Lazarus. С трудом установил SQLite с рекомендуемым современным sqlite3.dll, получал всё время ругательство: "Не удаётся продолжить выполнение кода, поскольку система не обнаружила...

Морской бой на два игрока
Как сделать игру на два игрока ?

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

Ошибка при запуске программы: exception class 'EConvertError' with message "" is an invalid integer
Подскажите пожалуйста что я не так сделал, как исправить ошибку которая появляется при компиляции:project project1.exe raised exception class 'EConvertError' with message: ""is an invalid integer...

Задания в Lazarus'е
Здравствуйте уважаемые программисты!Я ученик 10 класса.Щас по ОИВТ работаем в Lazarus'e.Имеются задания с которыми я не справляюсь,в связи с чем прошу у Вас помощи. 1.Создать текстовый...

Ошибка: project1 вызвал класс исключения 'external: SIGFPE'
достала эта ошибка не одна програ не идет! procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d:integer; x1,x2:real; begin a:=strtoint(edit1.text); b:=strtoint(edit2.text); ...

Ежедневник, ошибка RunError(100)
Здравствуйте, у меня куча ошибок и очень невнятный код(не плохое начало?). когда записываю инф. в файл и не закрывая проект нажимаю "запланированные(события)" вылетает ошибочка RunError(100). При...

задачи решения lazarus
Пожалуйста напишите решение трёх задач т.е. код...пожалуйста послезавтра сдавать.. Буду очень благодарен 1. Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения...

Разделение целой и дробной части в Лазарус
У меня довольно простой вопрос: как разделяется целая и дробноя части в Лазарусе? В 1-ой программе ввод осуществляется через запятую. На точку он ругается("Немедленное прекращение работы!"). Во...

Создание игры
При создании игры возникли некоторые вопросы, например: Как сделать так, чтобы снаряд попадал в самолёт. Я так понимаю, что надо использовать FormMouseDown Я прав?

Диалоговые окна
Как сделать так, чтобы при нажатии крестика(отмены) в подобном диалоговом окне вернуться обратно к форме без изменений? MessageDlg('Данные изменены,сохранить заново?', mtInformation, , 0) = mrYes ...

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

Изменение цвета формы при движении указателя
Написать программу, в которой при движении мыши по поверхности формы происходит произвольная смена цвета формы. При этом в заголовок окна формы выводится значение текущего цвета. Например, RGB: (120,...

Программа вычисления объема куба Lazarus
Помогите составить код для вычисления объема куба. Наприме a1=6, av=10. Потом в memo1 должно появиться a1=6 V=216 a1=7 V=343 a1=8 V=512 a1=9 V=729 a1=10 V=1000 Помогите пожалуйста от этого...

Identifier not found: Form2
Добрый вечер/день/утро, уважаемые форумчане. я знаю, есть грамотные люди, знающие все о программировании или хотя бы что-то основное)) у меня не получается связать 3 формы! так легко, я знаю, но...

Не получается принять сообщение (SendMessage)
Программу компилирую в Лазарусе. В качестве обучалки использую эту статью. В моей программе не происходит вызов WMCopyData. Пожалуйста, помогите решить эту проблему. Вот мой код: Sender (здесь...

Кодировка. Запись из Stringgrid в Excel
Привет! Как записать в excel русскими буквами? procedure TForm1.Button2Click(Sender: TObject); Var ExcelApp, ExcelSheet, ExcelCol, ExcelRow: Variant; Size: Byte; i, j, N: Word;

5dpo: чтение данных из Serial port
Здравствуйте. Приношу извинение за возможно глупый вопрос, но более менее понятной для меня информации в сети не нашел... Суть вопроса: Lazarus получает данные через srial com port от контроллера...

База DBF в лазарус
У меня возник, наверное легкий вопрос, но нигде не нашел явного ответа на него. Подскажите, как добавить запись в таблицу dbf, но не с помощью ввода в саму таблицу, а чтобы данные "списовались" с...

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

Запись в файл
Создать типизированный файл, куда записать n целых чисел. В файле поменять местами минимальный среди положительных и третий по счету элемент uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, ...

Запуск командной строки с параметрами (Лазраус)
Уважаемые программисты! В который раз прошу Вашей помощи. Пытаюсь запустить командную строку с параметрами. Выглядит это так, Process1.Parameters.Add('@chcp 1251'); ...

Ввод слов в Edit - разрешённые символы
Здравствуйте. У меня учебный проект - добавление слов в ListBox для сортировки. Можно добавлять по одному слову за раз кириллицей или латиницей, до 30 символов. Также надо вставлять слова в Edit из...

Ввод числа пи через едит
Здравствуйте, как можно ввести число pi через компонент edit выводит ошибку на преобразование. E:=strtofloat(edit5.text); //E:=2*pi; // пробовал этот вариант но мне надо именно через едит

Выравнивание в ячейке StringGrid
Пожалуйста, дайте полный код процедуры по выравниванию текста в ячейке StringGrid. В интернете находил способы для Delphi, но не смог с ними разобраться. Нашел такой способ:...

ListBox перенос строк
У меня в ListBox значения (Items) есть длинные и чтобы их прочитать, приходится скроллить. Хотелось бы от этого избавиться. Как можно решить ? Поиск в сети не помогает. Может быть другой компонент...

Как сделать кроссворд в Лазарус
Всем здравствуйте! Я - учитель информатики, но 6 лет пришлось работать хоть и в школе, но не по профилю. Теперь вернулась в свою специальность. В университете программировали в основном на Turbo...

Открытие csv-файла
Доброго времени суток. Как загрузить csv-файл в Stringgrid?

Разобраться с SpinEdit и ColorBox
здравствуйте помогите пожалуйста не могу разобраться с SpinEdit и ColorBox SpinEdit- не могу понять как выставить утолщение линий по щелчку ColorBox-не могу понять ваше как пользоваться и как...

Выбор в ComboBox
Помогите пожалуйста организовать правильно изменение данных в программе Есть 2 модуля:Настройки и функции игры В настройках есть ComboBox, где выбирается уровень сложности(например) и при...

Работа с текстом в поле Memo
Помогите плиз с заданием. Нужно написать код к программе, которая позволяет найти в тексте слова cat и dog, и строчки в которых есть эти слова поменять местами. Я сначала хотел реализовать через...

Вычисление определенного интеграла методом левых прямоугольников
вычисление определенного интеграла методом левых прямоугольников от функции y=23x на промежутке

Изменение формы кнопки
Доброго времени суток. Можно ли как-то изменить форму кнопки? Или можно только разместить подходящее изображение на панели и создать событие по клику?

Отладка приложения в Лазарус
пока писал прогу, та росла и ширилась. ошибок нету. и вот написал процедуру, с несколькими вложенными, обработчик клика кнопки. запускаю в режиме отладки (до этого всё норм работало, неоднократно...

Заменить некоторый символ, на другой введенный символ
Дана последовательность S1, S2, ..., Sn (вводятся одной строкой), заменить в ней некоторый символ, на другой введенный символ.

Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found
Добрый день! пишу программу по методичке, выдает вот такие ошибки: unit1.pas(78,1) Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found unit1.pas(78,1) Warning: Unknown procedure...

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

Не отображается кириллица при idHTTP.Get
Делаю Get запрос. На сайте кодировка UTF 8 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> Сохраняю исходный код странице в переменой WideString.code:=...

Как переделать код для экспорта данных в Excel под OpenOffice Calc?
Пишу дипломную. Есть код для копирования из таблицы String Grid в программу Microsoft Excel (то есть при нажатии на кнопку открывается Excel и в него вставляются данные). Нужно переделать данный код...

Сохранение таблицы в файл
Доброго времени суток! Есть таблица, в есть как строчные данные,так и целочисленные (по-моему,тип неважен). Нужно сохранить все в файл, а затем загрузить из этого файла данные в эту таблицу

Reset вызвал класс исключений "RunError2"
Запись в файл делал, а вот прочитать не могу AssignFile(fileStructur, opendirectory + '/structura.dat'); AssignFile(fileMass, opendirectory + '/fileMass.dat'); Reset(fileMass); ...

Удаление файла
День добрый нужна помощь в коде приложения Данное приложение не может удалить выбранный файл через кнопку 'жму ёё ничего не происходит' видимо где то напортачил или не так сделал. Хотелось бы...

Как пользоваться отладчиком в Lazarus?
Вобщеем, уже неделю мучаюсь со своим проектом, никак не могу избавиться от навязчивой ошибки External:SIGSERV, и, что самое обидное, я никак не могу понять, в каком именно куске кода она появляется....

Как правильно свернуть в трей при нажатии иконки minimize?
Именно как правильно? Потому что, если делать это в событии OnWindowStateChange следующим образом if WindowState = ws_minimize then begin Hide; TrayIcon1.Show; end; , то снова восстановить окно...

Условные операторы "и" и "или"
Объясните пожалуйста как реализуются записи если m=n и k=l то ... и если m=n или k=l то ... Добавлено через 9 минут я понимаю, что реализовать можно по разному, но удобнее всего так

Поиск подстроки в файле
Доброго времени. Задолбался уже. Читаю один файл в ListBox. Второй файл в tfile. Затем нужно найти в tfile нужную строку и сравнить с подстрокой в ListBox. Если они совпадают, то сделать какое-то...

Как можно связать две формы?
в делфи это делается Use Unit ,а как это можно в Лазарусе? заранее спасибо) Добавлено через 16 часов 40 минут видно об этом лазарусе не кто не чего не знает..

Access Violation при открытии проекта
Создал проект, добавил объектов. Потом я закрыл проект, при открытии начало появляется окно: В файле *путь к нему*\unit1.lfm Acces violation Acces violation Если попробовать просмотреть...

Как выполнить парсинг XML
Возникла проблема такого характера, необходимо организовать парсинг xml файла с последующим сохранением некоторых данных в файл txt, архив с входящим.xml и обработанным.txt прилагаю, прошу направить...

Как добавить видео?
Здравствуйте. Я не совсем понимаю, как воспроизводить видео в лазарусе... Пожалуйста, напишите по аналогии с тем кодом, что снизу, как бы вы прописали, если бы вам нужно было воспроизвести видео...

Парсинг строки, не могу получить киррилический символ
Парсинг строки, не могу получить киррилический символ по его номеру в строке.

Cкачать библиотеку dblib.dll
где скачать библиотеку dblib.dll для Lazarus 1.2.6 ?

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

Перевести скорость ветра из метра в секунду в километры в час
Напишите программу, которая пересчитывает скорость ветра из метра в секунду в километры в час.

Как запретить разворачивание формы?
Доброго времени суток. Как запретить разворачивание формы?

Запустить внешнее приложение, передать ему параметры и получить результат
Здравствуйте. Проблема такая: RunCommand(exe_name,,output); Думаю, что такое exe_name и exe_param, пояснять не надо) Дебаг показал, что на этой строчке программа стопорится и дальше не идет....

Ошибка: "illegal counter variable"
Прошу помощи. Составляю для контрольной приложение на Lazarus'e. В операторе цикла for выдает ошибку unit1.pas(67,6) Error: Illegal counter variable Гугл помощи не дал. Прошу помощи. unit Unit1; ...

Ошибка отладчика GDB: 740
Lazarus 1.2.6 В инете ответа не нашел. С IDE знаком плохо, только начал разбираться. При запуске откомпилированного приложения выходит ошибка: Команда GDB: "-exec-run" возвратила ошибку:...

Как связать две формы в Лазарусе?
Как связать две формы в лазарусе

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

Сортировка одномерного массива
Ребят, я новичёк но нужно срочно решить программу...толком ничего не получается=( нужно, что бы я вводил 5 цифр (0..9) через запятую или пробел он переводил их в масив ,потом нажав на кнопку он мне...

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

Программа для конспектов
И всё было-бы хорошо, всё получается что ни начнёшь, и на что-бы не отвлекался, но вот упёрлось всё в то, что оказывается нужно писать конспекты, а оказывается единственная прога рекомендуемая -...

Как отловить в Lazarus событие: нажатие на правую или среднюю кнопку мыши?
Как отловить в Lazarus событие: нажатие на правую или среднюю кнопку мыши на каком либо компоненте?

Является ли сумма цифр данного четырёхзначного числа n чётным числом?
помогите пожалуйста составить программу, определяющую, является ли сумма цифр данного четырёхзначного числа n чётным числом.

Отображение одиночных точек в компоненте TChart
На форме размещен компонент TChart. Координатные оси и нулевой отсчет координат сделаны по середине. Координатная сетка фиксированная и задается пользователем. Вопрос: как отобразить на координатной...

Как запустить одновременно несколько форм в Lazarus'e?
Добрый день,возник такой вопрос: как запустить несколько форм одновременно?Вот,например,я создал несколько форм,при запуске выводится только одна форма,а мне нужно,чтобы вывелось несколько,как это...

Ошибка в begin и end
Ошибка в begin и end.Что убрать? procedure TForm1.Button1Click(Sender: TObject); var x1,x2,x3,x4,y1,y2,y3,y4,z:double; k:byte; begin x1:=strtofloat(Edit1.Text); x2:=strtofloat(Edit3.Text);...

Текстовый редактор в Lazarus
создал блокноик в Lazaruse, точнее преобразовал из Delphi(в Delphi работает прекрасно). Работает вск кроме Открыть, Созраить, Созранить как. Скока кодов не пробовал не получается. Даж те кодов,...

Чем бы календарь нарисовать?
Добрмурный день, уважаемые :) Вот приспичило нарисовать мне календарь на весь год, так, чтобы весь год был как на ладони. Обрабатывать клик на любую дату. Чем бы это сделать, так, чтобы...

Вычислить значение выражения и вывести его на экран
Вычислить значение выражения x = (b*f)3 - f/2 при b= - 3c-a, f=7+a и вывести его на экран. Я не понимаю куда писать b= - 3c-a и f=7+а? Пробовал писать в раздел констант, но пишет ошибку...

Имитация нажатия на кнопку из другого события
Добрый день! Подскажите, пожалуйста, можно ли как-то сымитировать нажатие Button1 в другом компоненте при определенном событии? Что я имею в виду: предположим, есть два компонента Edit, мы вводим...

Как безопасно переименовать unit в Lazarus?
Как безопасно переименовать unit в Lazarus? Сделал через сохранить как: test.pas вместо unit1.pas, IDE написала: error while linking.

Ошибка: raised exception class 'External: SIGSEGV'
Мой код проходит компиляцию, но при запуске .exe после того, как нажимаю на кнопку, мной созданную и обработанную, выходит такое сообщение: Project project1.exe raised exception class 'External:...

Построение графиков Sin и Cos
Подскажите, пожалуйста код, который строит Sin и Cos - графики функции. Я для Параболы сделал, а как для синуса с косинусом. var x0, x1, px, py: integer; x, y, d: real; begin...

Проверка на наличие символа в строке
for i := 1 to Length(st) do if st in a then ... "а" - другая строка-константа. Ошибка во 2 строке. Как правильно сделать это в Лазарусе?

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

Программирование микроконтроллеров
Можно- ли в lazarus программировать микроконтроллеры на паскале? Заранее благодарен за ответ.

Ошибка: Fatal: Syntax error, ";" expected but "identifier Mas" found.
Где здесь синтаксическая ошибка( "mas:=A2;" )? procedure TForm1.Button1Click(Sender: TObject); var i:integer; A,A1,A2:integer; begin A1:=22; A2:=9

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

C использованием TChart построить график функции
C использованием TChart построить график у=ctg(x)/sin(3x)

Найти max и min значения
Приветствую всех на этом форуме, сложилась такая нехорошая ситуация, забыл как находить максимальное и минимальное значение по выражению. Для массива знаю а по выражению нет. В общем не буду томить,...

Ошибка FormCreate
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, unit6, ExtCtrls, DbCtrls, unit4;

Got "LongInt", expected "AnsiString"
Привет! Подскажите, как в переменной f(String) заменить символ A на значение переменной A (Integer) StringReplace(f,'a',StrToInt(a), ); - выдаёт ошибку " Got "LongInt", expected "AnsiString" "

Редактирование и отображение HTML + События в IpHtmlPanel
На форме есть IpHtmlPanel на которой отображается страница с Edit, ComboBox и Button Требуется 1. Получить событие нажатия на кнопку в Html в которой (в самой странице есть Action Button <input...

Определить время, через которое встретятся два тела, равноускоренно движущиеся навстречу друг другу
Определить время, через которое встретятся два тела, равноускоренно движущиеся навстречу друг другу, если известны их начальные скорости, ускорение и начальное расстояние между ними. Сама проблема...

Правильно закрыть Форму2
Есть программка. В ней есть форма 1 и форма 2. На форме 1 кнопка по нажатию которой открывается форма 2. На форме 2 кнопка "закрыть". В OnClick для этой кнопки пишу Close; Правильно так будет...

Программа по моделированию полета тела, брошенного под углом к горизонту
Выстрел произведен с начальной скоростью V0, под углом к горизонту α.Построить траекторию полета снаряда Y(x) , указать максимальную высоту полета Hk , дальность падения снаряда Xk и время полета...

Решение системы линейных уравнений методом Гаусса
прошу помощи, есть программа: решение СЛАУ методом Гаусса, надо запихать ее в лазарус... uses crt; type Mat=array of real; MatA=array of real; var i,j,n,l,str,stlb:integer; ...

Динамическое создание Form, ListBox, Button
Подскажите пожалуйста, как в Lazarus динамически создавать окно, ListBox и кнопку, без всяких циклов, процедур, юнитов и пр. наворотов (потом сам их сделаю, так как мне надо)? За 2 недели,...

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

Как организовать OPC клиент?
Всем привет! Как организовать OPC клиент в лазарусе? Имеется OPC-server, на работе говорят нужен клиент. Опыта работы с OPC да еще и на лазарусе нет. Слышал что есть решения на делфи, но он платный,...

Калькулятор
Всем доброго времени суток. Очень нужно сделать вот такую программку: Работа с основными элементами управления Delphi – поля редактирования, кнопки, метки. Написать программу калькулятор. Форма...

Где можно скачать исходники программ на Lazarus?
Где можно скачать исходники программ на Lazarus? В поиске выдает только на Delphi. Интересуют самые простые программки типа блокнот, таймер, рисование графиков и диаграмм, и т.д. Помогите пожалуйста!

Воспроизведение и остановка музыки
Как в Lazarus организовать воспроизведение/остановку/паузу музыкальных файлов (желательно mp3), какую библиотеку для этого лучше использовать? Буду рад советам, ссылкам, исходникам!

Перемещение объекта по панели
Доброго времени суток. Возникла следующая ошибка: "unit1.pas(66,33) Error: Wrong number of parameters specified for call to "_MouseMove"" Задумка такова: после запуска программы возникает форма,...

Формы
Есть 2 формы. Перехожу с одной на другую,методом form1.hide; form2.show; на 2 форме есть кнопка,которая должна закрыть программу procedure TForm2.BitBtn4Click(Sender: TObject); begin close;...

Построение графика sin(x)
Доброго времени суток! Нашел похожее под делфи - https://www.cyberforum.ru/delphi-beginners/thread122904.html только там sin(x)*cos(x), вставил всё в лазарус, вроде бы всё правильно, но выдаёт...

Перевод текста в транслит
Проблема, а точнее задачка: Мне нужно сделать вот такую программку. Структура такова, Дано два TMemo и кнопка. Суть программы вводим в первый TMemo слово русскими буквами, нажимаем на кнопку и во...

Строка: Посчитать количество символов, расположенных внутри скобок
Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Посчитать количество символов, расположенных внутри скобок.

Ошибка при запуске сохраненного проекта ("Странный файл LPI")
При попытке открыть сохраненный проект выдает вот такую ошибку. Сначала я не обращал особо внимания,потому что проекты у меня не очень большие,переделать не тяжело, но в последнее время такая...

Задачи на Lazarus
Ребят, помогите решить две задачки. В долгу не останусь, за правильное решение скину денег на телефон. Задачи простые, поэтому пишу их в одну тему. 1) Дано 10 натуральных чисел. Найти их наибольший...

Печать поля Memo
Здравствуйте, не могу разобраться с тем, как распечатать данные, которые находятся в поле memo. И еще у меня lazarus почему-то не видит команды BeginDoc и AssignPRN. Printers в uses подключил и пакет...

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

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

Как правильно объявлять и использовать статические переменные в Lazarus
Эта тема уже обсуждалась применительно к Delphi https://www.cyberforum.ru/delphi-beginners/thread543156.html Автора интересовал вопрос "...есть ли в делфи статическая переменная как в С++...". Ему...

Количество строк и обращение к TDBGrid
В Delphi TDBGrid имеет свойства FieldCount и Fields, позволяющие узнать кол-во записей и содержимое конкретной записи. Есть-ли что-то аналогичное в Lazarus? В "DRKB" (Сборник FAQ-ов по Delphi) есть...

Создание таблицы в Word
Здравствуйте! Помогите, пожалуйста. В первый раз создаю таблицы в word. Никак не могу задать ширину столбца и границы. Погуглила, ничего не нашла. Делаю по книге Корнякова ПРОГРАММИРОВАНИЕ ...

Как вставить в Мemo строку
Создала форму с полем МЕМО, компиляция -успешно, Запустила выполнение, появилась форма с курсором, ручками набрала текст, получилось, Хочу чтобы программа занесла строчку, вставила код, но дает...

Проверка условия больше либо равно
Судя по всему тут есть ошибка, компилятор не выдаёт, но программа работает не так как надо. procedure spervogo; begin if length(arraygrid)>=x then begin if length(arraygrid)>=y then begin ...

Оператор Case. Error: Ordinal expression expected
Столкнулась с проблемой, суть которой не пойму. Почему одна и та же процедура, одного и того же проекта в одном случае проходит компилятор, а в другом нет. Когда я собираю проект для платформы...

Создание окна в Lazarus
Добрый день всем форумчатам! Мне очень-очень нужно создать окно ошибки в программе Lazarus. Просто дефолтное окно. Я вообще не могу разобраться в этой программе. Кто может немного помочь или скинуть...

Использование ProgressBar при копировании файла
Нужно использовать Progress Bar при копировании файла из программы на системный диск. Как в данном случае использовать Progress Bar?

Деление числа a на число b
если при делении числа a на число b получается остаток, равный числу x, то сообщить об этом

Возвести 2 в степень n?
Возвести 2 в степень n? Число n может быть от 1 до 20000. Программа должна выводить все число без экспоненты, в этом то и загвоздка, которую я не могу решить. На личном опыте я поняла что нужно...

Перебор символов строки в цикле
Интересное поведение функций работающих с типом String: если в строке есть русские буквы (которые кодируются в utf8 двумя байтами) - функция length(String) - дает длину строки в байтах, а не в...

Работа с таймером
Всем привет! Есть ощущение, что этот объект вообще не рассмотрен ( Ничего не могу найти. Есть переменная a:=10:00:00; надо заделать таймер! НЕ текущее время, как везде написано, а именно...

Выдает ошибку "Index Out of range Cell"
Есть задание: База данных о продажах содержит следующие сведения: наименование товара (столы, стулья и т.д), месяц продажи, кол-во проданного за раз товара. Вывести данные о продажах заданного...

Написать процедуру вращения фигуры вокруг центра
Здравствуйте! Есть задача: написать процедуру вращения фигуры вокргу центра. Форму фигуры задать процедурным типом. Примеры вращения фигур я много раз видел на форуме. А вот никак не пойму, что...

Процедуры и функции
Нужно переделать код Lazarus с использованием процедур и функций. var Form1: TForm1; implementation {$R *.lfm} { TForm1 }

Очистить все Checkbox-ы при нажатии на кнопку
можно ли при нажатии на кнопку button убрать галочки сразу со всех чекбоксов? если можно, то как?

Преобразование string в word и string в byte
Как преобразовать string в byte в этой строчке: dolgn.prof.stag:=Edit5.Text; //dolgn.prof.stag - тип byte, а Edit5.Text - тип string и Как преобразовать string в word в этих строчках:...

ListBox задача
Ввести на форме Фамилию абонента (ListBox.1), номер телефона (ListBox.2) и дата установки(ListBox.3). Выполнить следующие виды работ: • Ввод данных в списки • Дописать в телефонный справочник...

Создать файл. Lazarus
Помогите пожалуйста с задачкой по Lazarus(( задача"Создать типизированный файл, куда записать n целых чисел. Последнюю группу расположенных подряд положительных чисел из исходного файла переписать в...

Составить запрос SQL
Есть глобальная переменная FieldLook : string. Есть такой запрос: SELECT * FROM table_name WHERE FieldLook = 'значение' Дак вот как мне эту переменную FieldLook затолкать в запрос, у меня не...

Ввод списка строк в компоненты ComboBox и ListBox
Нужно по событию 'OnCreate' ввести в свойство Items компонентов ComboBox и ListBox жестко составленный список строк. ( список городов: 'Абакан','Азов','Александров','Алексин' и т.д.). Я знаю, что...

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

ошибка Error: Incompatible type for arg no. 1: Got "TRawbyteSearchRec", expected "LongWord"
Здравствуйте дорогие форумчанины. В данном коде выходит ошибка unit1.pas(101,24) Error: Incompatible type for arg no. 1: Got "TRawbyteSearchRec", expected "LongWord" как исправить...

Не создается проект
Не могу собрать из-за не понятных причин, только установил lazarus и чистый проект пробую копилить и не получается пишет ошибку: project1.lpr(9,3) Fatal: Невозможно найти Interfaces, используемый в...

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

Получение списка доступных COM портов
Всем здравствуйте. Не могу выделить в отдельную функцию работающий код. Всё что написано в FormCreate - всё работает. Кликаем по кнопке пытаясь проделать то же самое, но уже с помощью функции -...

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

ToDo для разработчика
Добрый день. Пишу программу "под себя" и хотел узнать чем Вы обычно пользуетесь для подобного? А может Вам тоже нужна подобная? Когда начинаю писать очередной проект постоянно возникает куча...

Запись и чтение из текстового файла
Всем здравствуйте. Подскажите пожалуйста самый короткий и простой способ записать в текстовый файл 'asdf.txt' целое число, например 12345. Предыдущее содержимое файла, если он существует должно...

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

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

Ubuntu: при нажатии на кнопку запуска появляется надпись "Идет отладка"
У меня ubuntu 9.10 ставил из репозитория лазарус. Проблема вот в чем ,когда нажимаю на запуск появляется надпись "идет отладка..." и больше ничего не происходит .Что я не так делаю?

Аналог System.Generics.Collections в lazarus
Есть аналог System.Generics.Collections в lazarus?

InputBox, ввести числа через пробел и записать их в массив
Ребят, у меня вопрос) Мне нужно вывести InputBox, в него ввести числа через пробел и записать их в массив х, как это сделать?))

Работа с TPaintBox
Дали задание создать в Lazarus'е графический редактор,используя TPaintBox. Работать в нем вообще не умею, ничего не знаю. Может кто нибудь проведёт короткий гайд, или ссылку на него?

Есть ли возможность поменять цветовую схему
Получилось изменять темы редактора, но есть ли возможость изменить тему самого Lazarus?

Иконка для приложения
Здравствуйте. Помогите, пожалуйста, с такой проблемой. Установил Lazarus на LinuxMint и создал приложение. В настройках проекта выбрал иконку (дефолтную), но приложение все равно ее не использует....

Загрузка в Memo текста из файла в кодировке Win (cp1251)
Решение нашел - но не уверен, что оно лучшее. В исходном тексте (ниже) закомментированные варианты не сработали procedure TForm1.Button1Click(Sender: TObject); var s: string; s1:TStringList;...

Рисуем квадрат, процедура WmPaint
по идее должна выводить квадрат на форме работает в Delphi не работает в Лазарусе может у кого какие соображения на эту тему будут unit Unit1; {$mode Delphi}

Lazarus вызов формы из основной программы
Приветствую всех . Прошу помочь . Я создал в лазарусе (Через меню файл - создать - программа) программу в этом же проекте создал форму (unit1) которая автоматом прописалась в разделе программы uses,...

Треугольник задан величинами своих сторон - a, b, c Найти углы треугольника - a, B, y
Разработать программу в среде программирования Lazarus. Для задачи создать интерфейс, соответствующий условию. Треугольник задан величинами своих сторон - a, b, c. Найти углы треугольника - a, B, y.

Воспроизведение музыкальных файлов
Как сделать чтобы при нажатии кнопки, при исполнении оператора if при нажании клавиши на клавиатуре воспроизводился звук? И ещё. Чтобы он не воспроизводился 100 раз сразу если 100 раз нажмешь на...

Lazarus/ Free Pascal, как сделать плавный цветовой переход?
Здрасти) помогите мне пожалуйста создать ПЛАВНЫЙ(почти не заметный) цветовой переход от любого цвета к данному. Я делаю проект на лазарусе. В нём я выбираю цвет(для 1 эталона), и мне надо чтобы 2...

Калькулятор (возведение в степень)
задали создать приложение, которое возводит числа в степень при чем число и показатель вводятся с клавиатуры+ выполняется проверка, если числа отрицательные, то программа меняет их на положительные и...

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

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

Проект потерпел исключения класса einouterror
проект потерпел исключения класса einouterror с сообщением access denied в файле tests.pas строка: 57 reset (f) вот код unit tests; {$mode objfpc}{$H+} interface uses Classes, SysUtils;...

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

Вывести значения в Label
Привет, сижу уже около часа, никак не могу додуматься. В общем, если есть флажок - выводит текст на лейбл, всего три таких флажка, одна кнопка их "активации". Не могу понять, как добиться того,...

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

ForceDirectories: не получается создать директорию
Пытаюсь программно создать директорию "inMyDir", но по какой то причине она не создается! Как это исправить? uses Registry; ... procedure TForm1.Button1Click(Sender: TObject); var Reg:...

Как в калькуляторе прописать проценты?
У меня вот такой код, но считает он криво procedure TForm1.Button19Click(Sender: TObject); begin buff:=StrToFloat(Edit1.Text); Edit1.Text:= ''; operation:= '%'; end;

SQLite3 с поддержкой кириллицы
Здравствуйте, Уважаемые форумчане! Сразу хочу сказать, что я новичок! В SQLite3 с Lazarus есть какие-то проблемы с поддержкой кириллицы? Как её можно решить? Кто-то мне говорил, что есть...

База Данных в Lazarus
Добрый день, подскажите пожалуйста какой компонент в Lazarus, заменяет компонент ADOConnection в Delphi? И можно ли вообще создать такую же функциональную БД как в Delphi?

Определить - существует ли треугольник с заданными сторонами
Даны стороны треугольника. Определить существует ли треугольник с заданными сторонами, если да, то будет ли он равносторонним. Найти площадь этого треугольника.

Единождое выполнение оператора в теле цикла, или виртуальный конвейер
Такое возможно? Тело цикла. Допустим что это тут, для примера. На самом деле единожде выполнение требуется в другом цикле - в внешнем, но пусть как-бы тут repeat StringGrid1.Cells:=...

Считать с мемо
Привет всем, такая проблема , надо считать с мемо значения и занести их в массив , но выдает исключениеunit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms,...

Циклы for.to, repeat.until, while.do
Дана таблица целых a,a,...a. Найти тройки чисел a, a, a удовлетворяющие условию a<=(a + a)/2.

Очистка таблицы StringGrid
Доброго времени суток! При нажатии на кнопку нужно очистить таблице,т.е. удалить из нее введенные данные. Как правильно это сделать?

Из Form1 вызвать Form2
как реализовать даную задачу? нужно что бы при нажатии на кнопку на 1 форме она закрывалась и показывалась 2 форма и тд по аналогии. вот код процедуры в unit1: procedure...

Отображение MessageBox поверх остальных окон в Windows
Здравствуйте. Никак не получается добиться у MessageBox такого же поведения в плане отображения поверх остальных окон, как у Application.MessageBox. Например, есть главная форма Form1. Если...

Изменение цвета ячейки StringGrid
Доброго времени суток. нужно изменить цвет ячейки на черный: Objects:= TObject(clBlack); При этом ничего не происходит. С другими цветами проблем нет. Метод для отрисовки цвета есть. В чем...

Даны два угла треугольника в градусах. Определить является ли такой треугольник прямоугольным
не могу понять как реализовать программу в lazarus, на паскале я ее написал а вот что дальше делать незнаю! Даны два угла треугольника в градусах. Определить является ли такой треугольник...

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

Компоненты графического интерфейса (Lazarus)
Провёл поиск по разделам, ничего не нашёл особо похожего. Листаю книгу по Lazarus и параллельно пишу небольшую программу. Решил её сделать пофункциональнее и появилась необходимость добавления в...

Найти среднее арифметическое десяти чисел введенных с клавиатуры
Здравствуйте. Помогите решить задачу.Только не Паскаль, а именно лазарус со всеми Label, Edit, Button Найти среднее арифметическое десяти чисел введенных с клавиатуры.

Найти площадь круга
Дана длина окружности, найти площадь круга, ограниченной этой окружностью, в качестве pi использовать 3.14

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

Как сделать Zoom (масштабирование) изображений
Всем привет. Сделал обозреватель изображений, все норм, но не знаю как можно приблизить картинку используя Батоны или трэкбар. Если можете подсказать, то желательно используя трекбар. Пожалуйста. :)

Оставить одну цифру, после запятой, в вещественном числе
Скажите пожалуйста как оставить одну цифру в вещественном числе, после запятой, если есть команда. Если команды нет такой, то скажите что нету её. Заранее спасибо.

Ошибка синтаксиса, ожидается ";" но "." найдено
Программа: Program project10; Uses Unit10; Var s1,s2,s3:string; Begin Writeln (' vvod stroki'); Readln(s1,s2); S3:=scep(s1,s2); Writelen(scep:s3); Writeln('add star');

Преобразовать строковую переменную в вещественную
Выдает ошибку var speed:single; .... begin .... speed:=StrToSingl(Copy(Memo1.Lines,7,4)); unit1.pas(99,12) Error: Identifier not found "StrToSingl" а как это можно сделать?

Вывод сообщения из SendMessage
всем привет. пытаюсь вывести сообщение отправленное через SendMessage WMCopyData (задача поставленна передать сообщение в копию программы(запущенно 2 одинаковые программы) при чем ОБЯЗАТЕЛЬНО с...

Инспектор объектов, изменение Name
в инспекторе объектов ,в свойстве Name попытался поменять вместо Form1 поставить f-Main ..вылезла ошибка "имя компонента "f-Main" не является корректным идентификатором" так должно быть или у...

Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k
Вывести все в stringgrid1. Можно пожалуйста с объяснениями.

Рамка вокруг формы
На http://www.swissdelphicenter.ch/torry/showcode.php?id=868 приведён пример для Delphi, как можно нарисовать красную рамку вокруг формы. unit Unit1; {$mode objfpc}{$H+} interface uses ...

Как исправить "Warning: Local variable "s" of a managed type does not seem to be initialized"
main.pas(13,9) Warning: Local variable "s" of a managed type does not seem to be initialized procedure TfMain.Button1Click(Sender: TObject); var s: string; //для сбора результатов деления ...

Ошибка при пересборке проекта
Для проекта нужно было добавить новый компонент. Компиляция прошла нормально, без ошибок. Но когда начинается пересборка лазаруса, выдает 2 ошибки: Warning: svn not in path. Fatal: Unable to...

Как сделать кодировкой проекта Windows-1251
по умолчанию при создании проекта модуль главной формы находится в кодировке UTF8 как сделать чтобы кодировка была Windows-1251 // ps можно конечно открыть модуль в Notepad++ потом там сменить...

Delay
Можете объяснить почему Delay и Sleep, в цикле выполняется только 1 раз ?

Где находится компонент TChart?
Помогите где находится компонент TChart в Additional его нету !

В процедуре по очистке Label1.Caption ошибка: Identifier not found.
Создаю свою процедуру по очистке Label1.Caption , программа тычет в Label1 и говорит identifier not found. Помогите разобраться в чём ошибка. Вот код: unit Unit1; {$mode objfpc}{$H+} ...

Посчитать средний балл по группе
У меня есть Контингент группы(всего обучающихся в группе) Есть формула для расчета среднего балла группы: СБ=(5*n+4*n+3*n+2*n)/N, где n-количество человек,получивших оценки "5","4","3","2"....

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

Класс TBitmap в Lazarus, отсутствуют некоторые методы
Подскажите, пожалуйста, в лазарусе нет всех функций класса TBitMap типа: Free, Assign, LoadFromFile, ScanLine и т.д, как в делфи?? Например: MyBitMap : TBitMap; То, при написании MyBitMap. ...

Подскажите учебник по Lazarus и Object Pascal
Подскажите учебник по Object Pascal/Lazarus! Очень надо.

Дата и время
В поле ввода вводится дата. Посчитать сколько полных лет, месяцев и дней отделяют введенную дату от текущей. Результат вывести в надписи. Буду рад любой помощи)

Свойства компонента Edit
Подскажите, пожалуйста, ответы на следующие вопросы: 1) как задать свойства, что бы в Edit текст был прижат не к левому краю, а был выровнен по центру. 2) Из Edit-ов составлена таблица. Как...

TChart Ось Х - параметр дата/время
Подскажите пожалуйста, что нужно сделать, чтобы на ТChart по оси Х указывались значения не в виде double, а в виде дата/время

TChart в Лазарусе: задать шаг по осям
Никак на могу в TChart лазаруса задать шаг по осям - ставит всё автоматически. Например, хочу по оси Х нанести часовые точки за два дня, шаг делается 5 часов, а мне надо хотя бы 3... Далее, хочу,...

Создать одномерный массив из случайных чисел<50
Создать одномерный массив из случайных чисел<50. Во второй массив вывести элементы первого массива, заменив четные элементы единицами, а нечетные элементы нулями.

Как программно убрать фокус с компонента
Вариант Form1.ActiveControl:= 0; не компилируется. Может быть это можно сделать для компонента с конкретным именем. Например, по кнопке SpeedButton убрать фокус с Edit или с активного компонента.

Смена цвета формы через определённый интервал времени
Привет! Не могу разобраться, как менять цвет формы через каждые 2 секунды. В свойствах интервал выставил=2000, как прописать код, чтобы через 2 секунды следующий цвет был красным и так далее? ...

Очередь. Проверка на отсутствие элементов
Есть класс очереди: TClassType = class(TObject) private tctHead: TPointTemp;// голова очереди. tctTail: TPointTemp;// хвост очереди. ... public function isEmpty:...

Картинка на задний план
Можно как-то при помощи свойств компонента TImage переместить картинку на задний план, чтобы было видно не только кнопки и поля ввода, но и текст(компонент TLabel)

Как работает и что делает ключевое слово inherited?
Я читал справочник, книгу Алексеевой Чесноковой, вот http://wiki.lazarus.freepascal.org/inherited и вот http://www.delphibasics.ru/Inherited.php. Все-равно я не уверен что правильно понял, объясните...

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

Несколько форм на юнит
Добрый день! Можно ли создать несколько форм в одном unit'е? Пробовал в unit'е делать так: TForm2 = class(TForm) ...... var Form2 : TForm2 ......

Дата последней модификации файла
Столкнулся с проблемой. Не всегда можно получить правильную дату модификации файла, используя подход, описанный в нижеприведенной процедуре. procedure TForm1.Button1Click(Sender: TObject); var ...

Не работает Lazarus
Здравствуйте,скажите пожалуйста,в чём проблема.У меня после успешной компиляции не включается форма,а в верхнем окне пишет:"Идёт отладка".И больше ничего не происходит.

TChart: как установить диапазон?
Привет. Кидаю TChart на форму, изначально диапазон по OX и OY и там, и там. 1) Как задать диапазон ручками? Мне нужно, чтобы по oy был , например, а по оси OX от 0 и, например, вначале до...

Lasarus в школе
В школах ввели СПО, поэтому программирование изучаем на Lasarus. Я учитель информатики, язык изучаю самостоятельно. Не все получается. Например, создала тестовый редактор. В меню добавила действия:...

LazReport составить отчёт
Нужна помощь в составлении отчёта. Я не могу понять как делать связи... Мне нужно сделать так, чтобы информация которая сейчас выбрана в приложении перешла в отчёт. А сейчас просто выходит вся...

"Бегущая строка" в компоненте Label
Здравствуйте. Моё приложение должно подгружать из файла данные, и отображать их на экран. В файле, есть разные группы данных которые нужно размещать в разных областях приложения. Есть поле, где...

Отделение цифр после запятой
Добрый вечер! помогите пожалуйста доделать программу, в общем надо чтобы результат выводился до сотой. Код прилагается. Заранее спасибо!!! unit Unit1; {$mode objfpc}{$H+} interface uses ...

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

Число знаков после запятой
Извините, если уже был такой вопрос, искал, но не нашёл. Как ограничить количество знаков после запятой в ответе при делении целых чисел? К примеру: uses Classes, SysUtils, FileUtil,...

Цифровые часы при помощи таймера и лейбла
Как помощью таймера и лэйбла сделать цифровые часы?

Нарисовать ёлку
Нарисовать елку по этому тексту пожалуйста TForm1.PaintBox1click TForml.PaintBox1Paint PaintBox1.Canvas до 40 begin pen.color: -clGreen: pen.Width: -2: moveto (150, 50) LineTo (200,100): ...

Как сделать, чтобы по нажатию кнопки менялось изображение?
...

Составить подпрограмму вычисления площади треугольника
10. Составить подпрограмму вычисления площади треугольника, заданного координатами своих вершин, по формуле S=sqrt(p(p-a)(p-b)(p-c)) где p=(a+b+c)/2 где a, b, c – длины сторон треугольника,...

Изменение размера столбца StringGrid-а
Доброго времени суток. Можно ли программной изменить размер столбца StringGrid'a?

Игра 15, Lazarus
Помогите, пожалуйста, сделать игру 15 на lazarus срочно! Желательно(но необязательно) скинуть exe-проекта. Заранее благодарю.

TLvlGraphControl
Не знаю, возможно уже спрашивал когда-то. В общем нужен редактор узлов, нечто вроде редактора нодов шейдеров в Blender 3D, для других целей, но нужно так. Этот компонент на вкладке IDE -...

Создать базу данных sqlite
Подскажите пожалуйста. Как создать базу данных SQLite? Хочу сделать проверку на наличии файла и если его нет то создать базу данных? Спасибо!

Определить размер свободной памяти
Здравствуйте, товарищи программисты! А не подскажете, как определить количество свободной оперативной памяти? нашел для Дельфи: var Status: TMemoryStatus; begin Status.dwLength :=...

Непонятки с AnsiString
Делаю свой первый проект с дефолтным уникодом на паскале. Текущая локаль - UTF8, есть переменаня s типа AnsiString. Не могу правильно присвоить перемеенной значение ни константы, ни поля Text объекта...

Error: identifier idents no member "Handle"
Добрый день. Программировать начинал с Turbo Delphi Explorer, теперь решил пересесть на Lazarus. В своих программах, для отображения листингов расчетов использовал модули ExprDraw и ExprMake,...

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

Наличие выделенной записи ListBox а
Подскажите, как определить наличие выделенной строки Listbox, точнее, что ничего не отмечено? ItemIndex всегда показывает бльше - 1, если ранее была выделена строка.

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

Расположить на шахматной доске 12 коней так, чтобы все поля были под "боем"
Расположить на шахматной доске 12 коней так, чтобы все поля были под "боем".

Фиксированная шкала на осях графика в компоненте TChart
Изучаю Lazarus и мне понадобились фиксированные (постоянные) шкалы в компоненте TChart. По умолчанию компонент TChart изменяет размерность по осям в зависимости от заданных величин. Вещь очень...

Генерация случайных целых чисел в заданном интервале
Здравствуйте! Правильно ли я прописал код случайных чисел от -1 до 2 ??? Спасибо. procedure TForm1.FormCreate(Sender: TObject); var Col, Row, N, M: integer; begin randomize; N:=6; M:=6;...

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

Обычная Прокрутка формы в Lazarus
Всем привет, на сайте не нашёл ответ на свой вопрос, поэтому решил зарегистрироваться и создать тему чтобы решить свой вопрос. Создаю проект в школе, надо создать на форме тест (вопросов 10-15) и...

Цикл Pause
Здравствуйте. Задача: Считать данные из Memo1 и по мере считывания выполнять действия. Каждая строка Memo1 задает определенную анимацию для объекта. Нужно поставить на паузу цикл считывающий...

Метод бисекции при решении нелинейного уравнения
Напишите функцию Solve, которая решает нелинейное уравнение f(x)=0 методом бисекции (метод деления отрезка пополам) на интервале . Функция должна принимать два параметра (real, действительные...

Открыть папку в проводнике
Написал код для открытия папки в проводнике. При указании адреса вручную (напр. 'C:\Lazarus') всё работает полностью исправно и открывает тот путь, который мне нужен. В моём случае мне нужно открыть...

Lazarus и виндовые сообщения
Добрый день! Второй день ломаю голову, как принимать wm-сообщения. Пример кода на Дельфи7 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Как сделать корректное завершение программы при выключении Windows?
Если при запущенном приложении пользователь винды нажмет "Завершение работы", это закроет вашу программу без обработки OnClose, например, и без записи значений Form1.SessionProperties в...

Как сделать плавное движение объекта?
Есть фигура ,я кликаю в любую точку на форме и надо сделать, чтобы она плавно двигалась к месту клика. Как так сделать?Я понял,как сделать мгновенно,но,чтобы плавно-нет.

Как определить является ли введенная строка числом или текстом?
Составить программу, определяющую , является ли веденная строка числом или текстом, а если в строке будет текст и числа то вывести об этом соответствующие сообщения Допустимые процедуры и функции:...

Как выводить текстовую переменную?
var A : Text; a:='123abc'; Label1.Caption:=...? И если кто знает, подскажите как сделать "123" одного цвета, а "abc" другого. Заранее спасибо.

Соединить точки (по координатам из таблицы) ломаной линией
Дана таблица с координатами (х, у) семи точек. Изобразить их на рисунке и по выбору пользователя либо слева-направо, либо снизу-вверх, либо в порядке перечисления соединить ломаной линией. Найти...

Установка шага цикла
Задать цикл с шагом, например от 0 до 6, но через 2. Например вместо for k :=0 to 3 do надо как-то for k :=0 to 6 do, где k увеличивается на 2, то-есть будет выполнено опять-же 3 прохода. Просто...

Error: Wrong number of parameters specified for call to "Image1MouseUp"
Ситуация в следующем такова: при создании графического редактора в Лазарь я добавил функцию загрузки изображения, но при попытке задать для функции событие MouseUp возникла ошибка, с которой я не...

Точка пересечения прямой и окружности
Привет. Делаю сопряжение прямой и дуги о котором писал тут: https://www.cyberforum.ru/algorithms/thread124625.html Возник вопрос как определить координаты точки пересечения прямой и окружности....

Создание окна ввода логина и пароля
Всем привет! Пытаюсь сделать окно ввода логина и пароля как здесь http://delphiru.ru/interface/117-display-a-login-password-dialog-before-the-main-form-is-created Только у меня ещё на форме...

Координаты курсора
Всем привет.Нужно чтобы в строку edit постоянно выводились координаты курсора, т.е. нужно зациклить. Как это сделать? В edit щас выводится только первоначальное значение т.к. процедура Edit1Change...

Одномерный массив из 10 элементов отсортировать в порядке возрастания
Одномерный массив из 10 элементов отсортировать в порядке возрастания. Метод сортировки любой. Результат вывести на экран и записать в файл (Одномерный массив считывается из файла или создаётся в...

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

Объединение ячеек StringGrid
Доброго времени суток. Можно ли объединять ячейки StringGrid'a?

Смешивание цветов.
Имеются три TrackBar отвечающие за цвета RGB соответственно. Как сделать так, что бы Panel принимал цвет в зависимости от позиции всех TrackBar? Добавлено через 1 час 0 минут procedure...

Как реализовать переключение форм?
Всем привет :) . Пишу курсовой, нужно сделать оконный интерфейс. С Lazarus только познакомился, ООП не знаю совсем, до этого изучал только Паскаль. Есть две формы, эмулятор и калькулятор....

Как объединить в одном проекте несколько форм?
Мне необходимо увязать 3 формы между собой. У меня есть в проекте одна форма - она главная и запуск программы начинается с нее. Вопрос вот в чем: как мне создать еще одну форму и переназначить...

Не получается изменить height и width у Label
высота label по умолчанию = 14 меняю ее на 20 кликаю в инспекторе объектов на label и...высота снова становится =14 как нужно сохранять изменения высоты и ширины label?

Быстрое добавление строк в ListView
Скажите пожалуйста, есть ли возможность ускорить добавление строк в ListView? Этим способом 5000 строк добавляются за 7 секунд, нужно быстрее. ListView1.Clear; n := 5000; for i := 1 to...

Подсчёт кликов по форме
Здраствуйте, есть ли такая команда в Lazarus'e, что бы подсчитать сколько раз кликнул по форме???

Работа с таймером и задержкой
При создание программы, отображающей траекторию полёта в реальном времени столкнулся с некоторой проблемой. Вот цикл отрисовки гарфика: Repeat t:=t+0.04; ...

Как вписать текущую дату в RichMemo?
Как вписать текущую дату в RichMemo? procedure TForm1.Button1Click(Sender: TObject); begin RichMemo1.Lines.Add('тут должна отображаться текущая дата в формате например 09.04.2015'); end;

Программное создание таймера
Часто нужно организовывать следующее событие: Вызываем какую-то процедуру обрабатываемую в цикле таймера 4-5 раз с частотой в 1 сек и после этого этот таймер останавливается и практически нигде не...

Ввести с клавиатуры 10 пар чисел, сравнить числа в каждой паре, и напечатать большее из них
помогите пожалуйста Напишите с while, for,repeat

Если можно создать массив TButton, то как создать массив их событий?
Пишу программу в которой много однообразных Едитов и кнопок. Чтобы "облегчить сбе жизнь" создал MyEdit: array of TEdit. Аналогично можно поступить и с кнопками: MyButton: array of TButton. Теперь...

Открыть документ MS Word. Функция
Пишу функцию для открытия документа MS Word: ... // Constants for enum WdOpenFormat type WdOpenFormat = TOleEnum; const wdOpenFormatAuto = $00000000; wdOpenFormatDocument = $00000001; ...

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

Как запустить файл на выполнение
Здравствуйте ! Как в Lazarus-е запустить файл ? К примеру при нажатии на кнопку, у меня в той же директории где есть .exe файл моей программы запускался файл run.exe ? Как в Lazaruse-e сделать...

Дано число, вывести цифры исходного числа через пробел
Дано число. Вывести цифры исходного числа через пробел. Найти, если число нечетное, сумму четных цифр, их произведение, их количество, и сумму всех цифр числа, если число четное. Найти в...

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

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

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

Нажатием на кнопку двигается текст(на текст наоборот)
Суть, создать программу, в которой есть текст (компонент label) и кнопка. При нажатии на кнопку - текст передвигается в рандомное место на форме, а при нажатии на текст - кнопка передвигается в...

Создание программы
Скрншоты взяты с готовой программы найденной в интернете Как сделать на рисунке цифрой 1 обозначен раскрывающийся список Вопрос: А как добавить в раскрывающийся список свой вариан?

Нарисовать флаг России по всей поверхности формы
Помогите пожалуйтста Нужно написать программу, которая на всей поверхности формы (независимо от размера) рисует флаг Российской Федерации и по центру выводит слово «Россия». Главная моя проблема-не...

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

Шифр Цезаря
Здравствуйте! При написании данного кода в lazarus возникла следующая трудность. При количестве сдвигов на 2 не отображается результат шифрования буквы "x", а все буквы в шифруемом слове, которые...

Надо перевести ttime в часы, минуты, секунды и терции
Надо перевести ttime в часы, минуты, секунды и терции.

Исправить недочеты в программе "Калькулятор"
Добрый день, хотел сделать калькулятор,вроде бы и получилось...но есть недочеты...например..при включении в поле edit появляется 0 и хотелось бы сделать так чтобы при нажатии другого числа 0 исчезал...

Разрешить редактирование StringGrid-а
Есть массив, записанный в StringGrid, как сделать так, чтобы его можно было редактировать?

Закрывается консольное приложение
Закрывается консольное приложение. При создании имеет стандартный вид program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF}

Рисование линии мышкой
Я делаю графический редактор и возник вопрос: как нарисовать линию? Линия должна рисоваться с помощью двух точек, которые делает левая кнопка мыши.

Совместимость программы с 32bit, если Lazarus 64bit
Здравствуйте! Как сделать мою программу совместимой с 32bit, если она собирается в 64bit Lazarus'e?

Удаление строк из TMemo
В поле ввода TEdit содержится номер строки TMemo. Необходимо удалить из TMemo строку с указанным номером. Если строки с таким номером нет, вывести на экран соответствующее сообщение. При вводе,...

Работа с типизированными файлами
В интернете есть информация по работе с типизированными бинарными файлами только вот в таком виде {$PACKRECORDS 1} block = record name: string; val: array of...

Создать директорию
Искал темы, нашёл только с рутом для админа, поэтому создаю новую. Нужно просто создать директорию в папке с exe.шником программы.

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

Восстановление формы
Доброго времени суток. Была удалена главная форма. Можно ее как-то восстановить или снова делать новую?

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

чайник в lazarus
всем сдрасьти нужна ваша помощь в задании в lazarus задали практику 1)Ввести десять целых чисел (совпадения допускаются). Определить сколько раз было вве-дено число 5. 2)Ввести ряд целых...

Выделение всей строки синим цветом в StringGrid
Здравствуйте. Как сделать выделение всей строки синим цветом в StringGrid Есть свойство SelectedColor которое видимо за выделение отвечает. Необязательно синим главное чтобы это было заметно....

Использование DLL написанной на С++ в Lazarus
Возник вопрос по использованию DLL написанной на С++ в Lazarus. Пример DLL на С++ *** MyDLL.h: *** #ifndef __MyDLL_H__ #define __MyDLL_H__ #ifndef STRICT #define STRICT

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

Подсчитать количество пробелов, вывести на форму слова, начинающиеся на букву "а"
Во внешнем файле имеется фраза содержащая несколько слов (не более 10). Подсчитать колличество пробелов, вывести на форму слова, начинающиеся на букву "а" Помогите пожайлуста, я не понимаю, как это...

Lazarus + Firebird: No update query specified and failed to generate one
Привет форумчанам! Я, в рамках дипломной работы делаю БД используя лазарус и firibird (как сервер бд..) столкнулся с проблемой: Редактирую на форме записи в DBGrid, в DBNavigator'e жмется...

Отсчет времени между нажатиями на кнопку
Еще раз здраствуйте, хотел бы еще спросить можно ли запускать таймер затем по клику на кнопку он останавливался и считал сколько времени прошло? Добавлено через 1 час 29 минут ну вообщем нажатием...

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

An invalid integer
Использую процедуру для поиска в БД и выдает вот такую ошибку:an invalid integer. procedure TForm1.Edit1Change(Sender: TObject); begin SQLQuery1.Close; SQLQuery1.SQL.Clear; ...

Какую опцию надо выбрать прежде компиляции проекта в новую версию Лазаруса?
Привет! Я сейчас изучаю Лазарус и обновил его до последней версии 2.2.0. (Последняя версия с которой я занимался раньше была 1.8.0.) И в новую версию, прежде компиляции проекта, появляется...

Просмотреть изменение значений переменных при выполнении программы
например ,на форме помещено edit1 и edit2 ,в них вводим значение переменных a:=strtofloat(edit1.text);также и в b вводим из edit2 нужно вычислить сумму a+b ,НО до окончательного результата ...

Результаты сдачи экзаменационной сессии студентами.
“Результаты сессии -2” Результаты сдачи экзаменационной сессии студентами некоторой группы вносятся в специальную таблицу, а затем подвергаются обработке. Создать Windows-приложение,...

Работа с таблицами. Компонент TStringGrid
Ввести в компонент StringGrid1 исходные числа, используя функцию InputBox(). В компонент StringGrid2 в соответствующие клетки занести сумму нечетных цифр каждого числа, если таких нет в числе...

Можно ли использовать python код в Lazarus?
У меня есть программа на python. Я хочу написать для нее графический интерфейс на Lazarus. Возможно ли это вообще? Если да, то что надо использовать? Мне надо передавать/получать данные в/из...

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

Где скачать Lazarus Portable?
Где можно скачать портабильную версию программы?

SQLite: вывести значение поля в поле ввода Edit или сохранить в переменную
Задача: вывести значение поля в поле ввода Edit или сохранить в переменную. По идее этот код должен работать, но ругается, говорит, что поля 'family not found' Что я делаю не так? ...

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

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

Построение столбчатых диаграмм
Какая-то у меня диаграмма получается неправильная и горизонтальная, объясню на словах, мне нужна столбчатая диаграмма, их точное кол-во неизвестно, вот код моего проекта: unit Unit1; {$mode...

Как в лазарус поменять кодировку на utf 8?
допустим мне нужно сделать так str2:=str1 + ' ' при том что в str1 присутствуют русские символы. Но при попытке сделать это str2 равняется просто пустоте, но если заменить русские буквы на...

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

Form1.Components[k] не видит TEdit
Хотел очистить все Edit на форме от Text. Но по какой-то причине то, что работает с TLabel не работает с TEdit Bcgjkmpe. ShowMessage('1'); для проверки условия и ничего не выдает. Почему такое...

Найти площадь прямоугольного треугольника по гипотенузе и прилежащему углу
Известна гипотенуза с и прилежащий угол α прямоугольного треугольника. Найти площадь треугольника.

Работа с файлами и директива компилятора {$H+}
Здравствуйте! Всех с наступающим новым годом. Имеется такой код в Lazarus (FPC): program create_files; {$mode objfpc}{$H+} uses CRT, FileUtil, SysUtils; type manager= record

Увеличить текст в третьем столбце StringGrid
Никак не могу увеличить текст, постоянно обрезает его на половину, а мне надо для курсовика. Буду благодарен если поможете.

Lazarus Использование компонентов Label, Button, Edit
Срочно нужна помощь. Lazarus. Вводится число - номер месяца. Вывести количество дней в месяце (год невисокосный). Предусмотреть неправильный ввод номера месяца. Добавлено через 4 минуты вверх ...

Осуществление поиска в таблице stringgrid
у меня есть табличка StringGrid. мне нужно осуществить такой поиск: ввожу в какой нибудь edit слово, а потом должна быть выведена вся строка таблицы с искомым словом.

Расчёт среднего значения цифр в числе
Вводится последовательность из N целых элементов. Для каждого элемента последовательности найти среднее значение его цифр. Создать функцию для расчёта среднего значения цифр в числе.

Привязка горячих клавиш к кнопке button
Много искал в интернете, как привязать горячую клавишу "alt+1", да так, чтобы когда форма была не активна, данная комбинация работала. Все что смог найти, вот это. uses Classes,Windows,...

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

Сортировка значений в StringGrid
Всем доброго времяни суток. Имеется такой вопрос, у меня 2 таблицы, как сделать так чтобы в третью значения из первых двух (и соответствующие им строки) отсортировались по убыанию Пример: ...

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

Взаимодействие между Image и ImageList
Здравствуйте дорогие форумчане. Задача вытащить картинку из ImageList1 и поместить в объект Image1. Мануалов по объекту ImageList1 и его свойствам я не нашел. Предположительно обращение к...

Скрипты python
Вопрос не совсем простой, мне его даже не совсем просто сформулировать (я всё ещё перебираю варианты решения некоторой проблемы необходимости собственного хитрого редактора). Может это очередная...

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

Генерировать случайные числа Х
Помагите пожалуйста решить задачку в Lazarus и если можно нарисовать все это в Form1. Генерировать случайные числа Х , распределенные в диапазоне от -1до 6 и вычислять для чисел >0 √х ,а для...

Как в lazarus передать программе нажатие кнопок без использования WinAPI?
Нужно передать программе нажатие кнопок на клаве, например Alt+Ctrl+Home.

Ошибка "can not load MySQL library(libmysql.dll or libmysql.dll) Check your installation"
Здравствуйте, глубокоуважаемые профи, Ситуация такая, есть локальная сеть(около 400 машин), на локальном сервер с платформой windows server 2012 расположилась База данных Mysql 5.0 и lazarus...

Изменение размеров StringGrid
Доброго времени суток. Пользователь вводить кол-во строк и столбцов StringGrid'a with StringGrid1 do begin RowCount:= strtoint(edit1.text); Height:= 37*RowCount; ...

Переход с Delphi на Lazarus. Совместимость и интерфейс?
Ребят, звиняйте если не в тему, но нет офтопиков на форуме, для подобных вопросов. Решил написать пару мелких программ для себя, так как готовых не нашёл. 10 лет назад немного кодил на d6-2005,...

Чем вызвана ошибка GDB-отладчика
Подключаю модуль Printers (соответствующие пакеты установлены), устанавливаю на форму TButton и PrintSetupDialog, В обработчике кнопки пишу код: if PrinterSetupDialog1.Execute then Exit; Запускаю...

Удалить линию, нарисованную на Canvas
Можно-ли после отрисовки линии через (Form.CanvasLineTo) удалить её?

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

Импорт из XML
Добрый день! Возникла необходимость реализовать импорт из xml файла. Экспорт то с горем пополам сделал, а вот обратный процесс хоть убей не знаю как реализовать... Структура xml файла Может...

''Проект project1 вызвал класс исключения 'External SIGSEGV''
Компиляция проходит успешно,потом выдает ошибку в строке 105'Проект project1 вызвал класс исключения 'External SIGSEGV'' unit objs; {$mode objfpc}{$H+} interface

Установка ZEOS в Lazarus, работа с PostgressSQL в Lazarus
Не получается никак установить компонент ZEOS в Lazarus открываю пакет с Zeos, нажимаю компилировать, потом установить в течение некоторого времени этот процесс происходит, потом появляется...

Открытие PDF файла через нажатие кнопки
Как открыть PDF файл в среде Lazarus стандартными средствами Windows (у меня по умолчанию Chrome, это не важно), на событие нажатия кнопки, сам пдфник находиться в одной папке с исполняемым файлом,...

Найти минимальное и максимальное числа в введенном массиве. Отладка кода
создать программу, которая находит минимальное и максимальное числа в введенном массиве Помогите отладить код unit Unit1; {$mode objfpc}{$H+} interface uses

"Тест": Ошибка "Identifier idents no member"
Нужно сделать этот тест, но при попытке компиляции выдаёт ошибку "Identifier idents no member "Label1" и "Identifier idents no member "Label2" в unit3, ссылаясь на unit4, хотя во втором оба Label...

Печать отчетов
Добрый день, посоветуйте компонет плииз! Full-Free! Печать А4 таблиц с предварительным просмотром. В идеале (не обязательное) с возможностью задать "кликабельные зоны" - в ячейке готовой к...

Посимвольный вывод текста
Необходимо по нажатию на кнопку посимвольно выводить одну строку из файла. Наверно дело в application.ProcessMessages хотя не могу понять что не так. Вместо вывода 1 символа в секунду програма виснет...

Имитация стрелочных часов
Написать программу , позволяющую имитировать стрелочные часы. Секундная стрелка должна менять положение каждую секунду, минутная - каждую минуту, часовая - каждый час (можно сделать, чтобы часовая...

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

Решение лабораторных работ по учебнику Павловской
Здравствуйте! Прошу помощи у форумчан. Надо сделать пару лабораторных по программированию. Быть может кто-то занимался по-этому учебнику и ему не составит труда помочь в решение задач. Учебник:...

Проект project1 вызвал класс исключения 'External: SIGSEGV'
В файле 'tacustomseries.pas' на строке 809 без строки Chart1.ClearSeries ошибки не возникает. как очистить Chart и избежать ошибки? unit Unit1; {$mode objfpc}{$H+} interface

Очистка компонента TChart
Доброго времени суток, форумчане! Ситуация такая: есть текстовый файл с набором координат точек, который считывается в StringGrid. Оттуда строится график в Chart'e. Возникла проблема: как очистить...

Как в Lazarus создать диаграмму используя TChart с информацией из базы Firebird?
Я так понял что для этого необходим еще один компонент: DBChartSource1. В качестве теста я связал их вместе, настроил связь с базой(там всего 2 поля, типа integer), обычный график линейного типа...

Длина строки при объявлении записи
Здравствуйте. Подскажите новичку как правильно исправить ошибку. Учусь работать с записями и файлами. Выскакивает такая ошибка: unit1.pas(38,22) Error: Typed files cannot contain reference-counted...

Сортировка русских строк по алфавиту
Здравствуйте. Написал сортировку массива структур по полю City(город). for i:=1 to n-1 do for j:=1 to n-i do if a.city > a.city then begin s := a; ...

Как задать много условий для if?
вот код не могу понять как? procedure TForm1.Button1Click(Sender: TObject); begin if ComboBox1.ItemIndex>=1 and ComboBox2.ItemIndex>=1 and ComboBox3.ItemIndex>=1 and...

Неправильное отображение русских символов
Есть программа в которой выводится список установленных программ и обновлений. Русские символы отображаются знаком вопроса. MyRegistry:=TRegistry.Create; MyList:=TStringList.Create; ...

Ошибка Access Violation
Добрый день! Впервые что-то пишу на форуме)) делаю программу - обработчик данных. Для оформления использую компоненты Bevel, на нескольких фреймах сразу. В один момент программа выдала Access...

Сохранить файл через SaveDialog
При открытии файла Memo вылазит ошибка , также и при сохранении "Unable to open file" procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then ...

Создать Часы
Создать вот такой проект "часы"

Ввести число в экспоненциальной форме, через edit
Как ввести число в экспоненциальной форме, через edit?

Календарь
Может кто кинуть календарь сделанный в Lazarus?

Lazarus надо написать программу
1. Даны два целых числа A и B(A<B).Вывести все целые числа, расположенные между даными числами(включая сами эти числа), в порядке их возрастания, а также количество N этих чисел. 2. Дано...

Найти все числа, лежащие в интервале от 1 до 1000, у которых 5 делителей
Найти все числа, лежащие в интервале от 1 до 1000, у которых 5 делителей. (Подсказка: оператор a mod b дает остаток от деления числа a на число b).

Строку в array
Добрый день, подскажите технологию плииз! Есть строка вида "фыва"+#13+"фыва"+#13+"фыва"+#13+"фыва" Надо получить array для передачи в параметре функции вида: my(ParamCount: Integer; const...

Canvas ничего не рисует (Lazarus IDE 1.8)
Проблема следующая Препод задал написать программу, строящую график, в Lazarus Я написал в Delphi 5, она работала достаточно неплохо Меня настойчиво попросили переделать ее под Lazarus, дабы можно...

Не заканчивается цикл
Пытаюсь перестроить циклы - не выходит с цикла. Если раскомментирую второй из вне цикл, а цикл с параметром закоментирую - всё работает. Вообще не понимаею в чём дело - всё должно работать. ...

Как сделать так, чтобы при нажатии на кнопку надпись (label) выводилась на экран, а после повторного нажатия исчезала?
Как сделать так чтобы при нажатии на кнопку надпись (label) выводилась на экран, а после повторного нажатия исчезала. И потом при третьем снова появлялась , при четвёртом снова исчезала. ПОЖАЛУЙСТА,...

Два окна
Есть 2 окна. Одно, главное, вызывает второе. Делаю я это так if listbox1.Items.Count<>0 then if (not Assigned(Form2)) then begin Form2:=TForm2.Create(Self); Form2.ShowModal; end; ...

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

INI файл
добавить в меню (раздел Файл) список недавно открываемых файлов. Использовать вспомогательный инициализационный файл для хранения списка.При выборе команды меню Загрузить последние высвечивается...

Установка компонента TComPort
Скачал компонент TComPort для работы с ком-портом (качал с соусфоржа), а он не усланвливается, в смысле не компилируется. Ругается на uses libc, KernelIoCtl; в модуле CPort. Кто-нибудь сталкивался...

Подписи к значениям TChart по оси Х
Проблема заключается в том, что подписи все одинаковые. Знаю что код не правильный, но как сделать, чтобы подписи брались из столбца таблицы (StringGrid) по очереди и прописывались тоже так же?...

Игра "Snake" - аварийное завершение при достижении границ экрана
Проблема в том, что блоки (препятствия) и яблоки (лягушки) спаунятся на самой змейке, а порой и пропадают. Так же, почему-то после добавления препятствий, если не собирать яблоки, а сразу влететь в...

Dateedit и timeedit
Добрый день, возник такой вопрос. Какое необходимо выбрать событие и что записать в него, чтобы в dateedit можно было без календаря вносить дату без лишних символов типа букв, а также в timeedit...

Работа с файлами в графическом приложении
Здравствуйте. Скачал учебник по Lazarus, всё гуд, графические приложения могу делать и запускать. Только вот как-то неясно там описаны процессы работы с файлами с графического окна. открыть файл,...

Допополнительные компоненты для Lazarus
Конкретно для Lazarus'а существует что-то типо вордовского поля? Как memo, только в более "продвинутой" комплектации... Поле, которое поддерживает встраивание картинок в текст, листы, таблицы, и...

Как удалить все обьекты с формы?
У нас есть Form1, на которой размещены две кнопки. Напишите пожалуйста процедуру, которая удалит все обьекты с формы(очистит форму полностью). Заранее спасибо!

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

Объединение событий нескольких кнопок
Есть несколько SpeedButton'ов,выполняющих практически одно и то же. Как создать событие,заменяющее все остальные?

Метод половинного деления
Здравствуйте,прошу в помощи по предмету "Численные методы" ,нужно запрограммировать метод "Половинного деления" если кто сталкивался напишите...

Проверка на латиницу и кириллицу
Добрый вечер. Есть стандартное поле ввода (TEdit) и TLabel, в Caption которого выводиться результат. Нужно осуществить проверку языка строки, которую ввел пользователь. То есть, если строка на...

Fatal: Syntax error, ";" expected but "." found
При компиляции вылазит ошибка Fatal: Syntax error, ";" expected but "." found. Вроде всё правильно, но не уверен. unit Unit1; {$mode objfpc}{$H+} interface

Скорость лодки в стоячей воде
Скорость лодки в стоячей воде V км/ч, скорость течения реки Uкм/ч (U<V). Расстояние между двумя пристанями равно Sкм. Лодка прошла это расстояние сначала против течения, а потом вернулась в исходную...

массив, размеры и прочее
сразу столкнулся с проблемами, точнее рядом непоняток, проблем пока нет, но завтра-послезавтра уже будут. первая непонятка: в массиве spisok есть одна запись, через SetLength(spisok,pozmassiv+1);...

Проект компилируется, но не запускается
Представив код в виде обычных мат.задач: Код реализует рекурсивное уменьшение максимального элемента массива до тех пор, пока среднее массива не станет меньше или равно задаваемого параметра. Код во...

В МАТРИЦЕ найти максимальный среди элементов лежащих ниже побочной диагонали и максимальный среди эл-тов, лежащих выше главной диагонали
В МАТРИЦЕ n-го порядка найти максимальный среди элементов лежащих ниже побочной диагонали и максимальный среди эл-тов, лежащих выше главной диагонали помогите пожалуйста очень нужно!!!

Не рисует график по точкам в TChart
В свойствах LineSeries1 выставлен цвет синий, ShowPoint - true, for i:=0 to s-1 do begin Chart1LineSeries1.AddXY(s,speed); // Chart1LineSeries1.AddXY(s+10,speed); end; не...

Ассемблер в Lazarus
Ghbdtn! :) Сижу развлекаюсь, ковыряю Lazarus. Дошло дело до ассемблера. И сразу ступор. Код: begin {$ASMMODE intel} asm mov EAX, 3 ror EAX, 1 cmp CF, 1 je .......

TObjectList и его метод Sort
Привет. Может кто-то подскажет как правильно юзать метод sort? function Compare(Item1, Item2: Pointer): Integer; begin if TMemBlock(Item1).Start < TMemBlock(Item2).Start then Result :=...

DBGrid как сделать SelectedRows
DBGrid с включённым multiline. При открытии формы передаю фокус гриду DBGrid.SetFocus; После этого var fio_s : string; i : integer; ... with DBGrid.SelectedRows do

Из файла .exe восстановить файл .lpi
Я случайно удалил файл, где прописывал все процедуры. Но файл приложение .exe остался и запускается нормально. Как из этого .exe файла восстановить .lpi?

Из Edit в Label
Всем привет! Мне необходимо в поле Edit ввести имя, и при нажатии Enter должно появляться надпись "Имя, ты любишь читать?" Я уже все перепробовала, но при нажатии на Enter имя в поле просто...

Не понимаю суть ошибки
Суть задачи: Запросите у пользователя строку, состоящию из 5 символов, и проверьте, является ли она примером, складывающим два однозначных числа, каждое из которых меньше пяти; если является, то...

Проверка ввода даты в MaskEdit
здравствуйте, скажите, если я ввожу в поле MaskEdit ,например, 11.12.13, то всё работает, а если 11.30.20, то выдаёт ошибку. Можно ли как то сделать проверку ввода даты?

Ошибка: Illegal qualifier
ругается на переменную k в open в чем причина?( если что, это сапер, open - процедура открытия пустых ячеек unit Unit3; {$mode objfpc}{$H+} interface

Очередь в магазине с приоритетами
Привет, пытаюсь решить задачу, не знаю с какой стороны подступиться, как начать ее выполнять. В магазине выстроилась очередь за товарами. Список товаров строго ограничен. На каждого покупателя...

Найти минимальный элемент массива, и поменять его местами с последним элементом
Помагите пожалуйста решить задачку в Lazarus и если можно нарисовать все это в Form1.дан массив целых чисел al,..,an.Найти минимальный элемент и поменять его местами с последним элементом.

Функции и циклы
Задача состоит в том, что нужно поделить код и записать его весомые весомые части в функции или процедуры. Но при записи цикла в функцию столкнулся с проблемой. Выводится ошибка: ...

Ошибка при очистке Edit
при нажатии на кнопку очистить с кодом procedure TForm5.Button2Click(Sender: TObject); var i:integer; begin edit1.Text:=' ' ; memo1.clear; for i := 0 to ControlCount - 1...

Массивы, сумма элементов
я впервые работаю с массивами но у меня проблемы , у меня если я ввожу двух-,трех- значные цифры вместо сумирывания чисел каждая цифра прибаваляется отдельно вот код : procedure...

Создание отчета в *.odt
Скажу сразу, я программист не профессионал, скорее - любитель. Пишу редко, по необходимости. Есть задача - нахожу решение, насколько оно правильное, не знаю, главное все работает. Это я написал,...

Найти среднее арифметическое каждого столбца
Нужно найти среднее арифметическое каждого столбца вот код: const n = 4; m = 5; var Mat: array of integer; Summa: integer;

Русские буквы не выводятся
Есть программа по Шифру Атбаш. Если строку и алфавит вставить на английском языке то программа работает правильно и без проблем но если вставить русскую строку и алфавит то вместо результата...

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

Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней
Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на...

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

Выделение элементов в ListBox
здравствуйте, у меня один вопросик. у меня на форме listbox, при нажатии на любую строчку, она выделяется, а можно сделать так, чтобы при нажатии на любую строку, она не выделялась?

Устранение эффекта мерцания при анимации
Здравствуйте! Разбираюсь с анимацией в Lazarus. Сделал простенький пример (прикреплён) - движение объекта по неоднородному фону, но он мне не нравиться из возникающего мерцания. Вот здесь Ссылка...

Вычисление определенного интеграла методом правых прямоугольников (на отрезке, с указаным шагом разбития)
Пожалуйста помогите сделать программу в лазарусе: программа должна считать определенный интеграл методом правых прямоугольников на определенном отрезке с указаным шагом разбития. Числа могут быть...

Error: Incompatible type for arg no. 1: Got "AnsiString", expected "Int64"
Помогите исправить ошибку пожалуйста. Error: Incompatible type for arg no. 1: Got "AnsiString", expected "Int64"

Максимальный элемент массива
Здравствуйте, у меня такая задача: "Задано массив целых чисел, A(n) n<=400. Разработать программу, которая находит максимальное среди тех чисел, которые не повторяются.". Подскажите, как найти...

Просуммировать все неотрицательные элементы одномерного массива, стоящие на четных местах.
Задан одномерный массив А. Просуммировать все неотрицательные элементы, стоящие на четных местах Никак не получается найти сумму, получаются какие-то огромные числа procedure...

Движение шара: нужно чтобы шар отталкивался от края формы
procedure TForm1.Timer1Timer(Sender: TObject); var x,y:integer; begin //Координаты шара x:=40; y:=40; //Движение шара shape1.Left:=shape1.Left+x; shape1.Top:=shape1.Top+y;

Json Lazarus
Есть .Json файл, сохранней на жестком диске. Как с ним взаимодействовать программно? Подключаю jsonparser,fpjson. В перменную jData : TJSONData хотел считать данные с файла, но ...

Загрузка базы из текстового файла в StringGrid с возможностью выбора
Имеется вот такая программа в которой есть StringGrid со столбцами «буквы» и «цифры». В папке с программой в папке db есть файл текстовой базы db.txt, он имеет такую же структуру — столбец «буквы» и...

Компиляция из кода - lazarus
Здравствуйте, программисты. Прошу прощения за дебильную задачу, но мне нужна команда компиляции из кода. Например: у меня есть две программы: program1.pas и program2.pas. Program1.pas должна из...

Компиляция в .exe
Здравствуйте дорогие форумчане! Задача: Во время работы приложения, при нажатии на кнопку вытащить исходный код(Free Pascal) из текстового файла и скомпелировать в exe файл. Подскажите в каком...

Как изменить размер формы?
Здравствуйте, такой вопрос. Мне нужна команда, с помощью которой можно изменить форму приложения. Можете даже не писать код, просто команду или функцию/процедуру.

Проект вызвал класс исключения External SIGSEGV
Доброго времени суток, пишу программу для работы с классом класс круговое кольцо свойства: внешний и внутренний диаметр операции: - увеличение/уменьшение размера в заданное количество раз -...

Формула площади поперечного сечения шарового крана
Доброго времени суток! Возможно, оффтоп, но гугл не помог, поэтому интересуюсь здесь. Необходима формула площади поперечного сечения неполностью закрытого/открытого шарового крана в зависимости от...

Кириллица ANSI в тексте TMemo
Здравия всем! Почему-то кракозябры, хотя фонт Verdana, чарсет RUSSIAN_CHARSET, а Нотпад++ определяет кодировку файла как ANSI Memo1.Lines.LoadFromFile(FName); фонт менял на консольный,...

Открытие *txt файла через TOpenDialog
var KIV_Box: TStringList; i: Integer; begin if OpenDialog1.Execute then begin KIV_Box:= TStringList.Create; KIV_Box.LoadFromFile(OpenDialog1.FileName); ... Все компилируется,...

Перевод чисел в CC
Помогите нужно написать программу которая переводит десятичные числа в двоичною, восмеричную и шестнадцатиричную систему счисления. Это приложение в Лазарусе. мне нужен код который работает при...

DBGrid перенос слов в ячейках
Здравствуйте! Не могу разобраться, как сделать перенос слов в ячейках DBGrid. Нужно отображать строки по 200 символов. Как я понял, стандартный грид не умеет. Искал пакеты под Лазарус, нашел только...

Вывод данных из БД FireBird в виде Excel-отчета
В своей программе добавил возможность создание Excel-отчета, и столкнулся с такой проблемой: когда я выбираю диапазон дат, за который мне нужно сформировать отчет, в результате получаю не полный...

Шифрование методом Цезаря
Помогите написать код для приложения, который бы выплнял Шифр Цезаря, пожалуйста

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

Ошибка stream read error
Подскажите, что делаю не так. БД Firebird есть поле типа Blob Binary. В него загружаю фото сотрудников. На форму выводится фото через компонент TDBImage. При открытии проекта появляется ошибка...

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

Обращение к Edit1.text
решил написать программу по выведению из 10СС в 2,3,4,5,6,7,8,9,16( по выбору) Решил не делать к каждой по Radio.Button, а сделать обращение к Edit3.text. (Edit1.text и Edit2.text- поля ввода и...

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

Дано целое число N (> 2) и две вещественные точки на числовой оси: A, B (A < B). Функция F(X) задана формулой F(X) = 1 - sin(X).
Помогите решить задачу. Дано целое число N (> 2) и две вещественные точки на числовой оси: A, B (A < B). Функция F(X) задана формулой F(X) = 1 - sin(X). Вывести значения функции F в N...

Сохранение проекта
Привет всем! С недавних пор такие вот пироги: при сохранении выскакивает вот такое: . При нажатии ОК сохранить не удается (кнопка сохранить нажимается, но не сохраняется, а потом и вовсе всё...

Найти площадь и периметр треугольника с заданными вершинами
Известны координаты вершин треугольника ABC: A(x1,y1), B(x2,y2) и C(x3,y3). Найти его площадь и периметр.

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

Почему не работает trim?
Есть текст со строками определенного формата, который заканчивается так .....(ххх в штуках)где ххх - это целое число, которое и нужно. в конце каждой строки может быть лишний пробел, а может и не...

Запрет на получение фокуса в Edit и Combobox
Есть Editы и Comboboxы, как прогпрамно разрешать и запрещать им получение фокуса? Простой Enabled:=false; меняет цвета текста и фона на серый, а мне надо, чтоб текст оставался чёрным, а фон белым, но...

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

Свойство кнопки, Lazarus
Собственно, возникла следующая сложность. В программе есть функция FormKeyDown, которая должна выполнить действие, если нажатая клавиша - стрелка. Программа работает, пока не нажмёшь какую-либо...

Почему выдает ошибку incompatible type:got "longint" expected TTranslateString
inttostr(score); label7.caption:=score; score-integer

Вывод матрицы из файла в StringGrid
Дорогие форумчане помогите вывести данные из файла в StringGrid. Вот код программы: Сначала заполняем двумерный массив и сохраняем в файле. procedure TForm1.Button1Click(Sender: TObject); begin...

Попадает ли точка в область пересечения 2х графиков (задача)
Задали задачу на программировании. Дали график y=x^2 и y=x^(1/2). Требуется ввести координаты x и y, и программа должна оповестить пользователя "принадлежит" или "не принадлежит" области пересечения...

Работа с компонентом StringGrid
Всем здравствуйте. Поместил на форму компонент StringList, в designtime установил 7x7 квадратных ячеек, без фиксированных строк и столбцов, в редакторе компонента внёс в ячейки текст по одному...

Взаимодействие двух форм
Доброго времени суток товарищи! Столкнулся с одной проблемкой, перечитал все , но не помогает. Ситуация такая - существует 2 формы. На 1-ой форме существует кнопка вызова 2-ой формы...

Объект для работы с JSON
помогите работать с JSON-ом Есть щзапись типа record . Надо ее добавлять в JSON -файл в виде массива . Есть JSION-файл , где вместе с другими данными хранится массив записей типа record type Tuser...

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

TChart - подписи по осям
Я добавляю точки через AddXY и хочу, чтобы подписи были с градацией по целым числам (вообще, у меня значения и X, и Y целые). И чтобы не было по 3 одинаковых значения (типа 0 0 0 1 1 1 2 2 2 3 3 3)....

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

Исполняемый файл на Linux
Всем привет! Я в этом деле полный профан, т.к. никогда не работал в Lazarus под Linux. Но у меня стоит задача узнать, есть ли в Lazarus под Linux исполняемый фаил и как его сделать для запуска на...

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

Char и String
Здравствуйте. Подскажите, почему в Lazarus результат выражения str:=Char(208)+Char(161); даёт символ 'С' (русская заглавная буква), а в Delphi какие-то кракозябры - 'С'. Str имеет тип...

Написать приложение, состоящее из 2-х форм. На первой расположить: два текстовых поля, в которых задаются координат
Написать приложение, состоящее из 2-х форм. На первой расположить: два текстовых поля, в которых задаются координаты вывода второй формы; кнопку «Форма 2», при нажатии на которую открывается...

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