Форум программистов и сисадминов КиберфорумКиберФорум - форум программистов и системных администраторов. Бесплатная помощь в решении задач по программированию, математике, физике и другим наукам, решение проблем с компьютером, операционными системами. |
|
Lazarus 3.0, установка
Вышел новый Lazarus.
Не хотелось бы ошибиться при переустановке, принцип остаётся таким же, как на рисунке? (по мотивам рекомендаций volvo)
Lazarus и Р7-Офис
Всем добра друзья!
Ситуация импортозамещения... Переходим на РедОс, в качестве офиса будет Р7-Офис. Все проекты мои написаны на Делфи 7. Осваиваю Lazarus под Линукс, все нормально, но проблема с...
Быстрая сортировка и вывод двумерного массива змейкой
Всем привет
Собственно сама задача звучит так:
произвести сортировку элементов квадратной матрицы в соответствии с заданной схемой (I), порядком сортировки (II) и методом упорядочивания (III).
...
Нужно удалить компонент "TCastleControlBase" из проекта и всякое связанное с ним
Если у кого есть винда.
Файл большой, потому что я не знаю что можно удалить, там всё связано. Я в Linux ничего не могу сделать, а там парсер. Я могу извлечь его, но лучше когда со всем барахлом и...
Ошибка в коде программы по нахождению в списке повторяющихся элементов
Помогите найти ошибку программы, которая должна проверить, есть ли в списке L хотя бы один повторяющийся элемент.
unit unit12;
{$mode objfpc}{$H+}
interface
uses
Работа с кириллицей
Здравствуйте, уважаемые форумчане.
Не могу понять, где ошибка. Дана строка символов. Найти количество точек. С русскимим буквами работает неправильно. Модуль LazUtf8 подключен.
procedure...
Аппроксимация кривых
Добрый вечер, форумчане!
Очень вероятно, этот вопрос уже поднимался не раз.
Может кто сталкивался, поделитесь, пожалуйста, ссылками на ресурсы по аппроксимации кривых: экспоненциальной...
Controls в ячейках StringGrid. Артефакты
Дорого времени суток!
Есть StringGrid. В ячейки вписаны чекбоксы и комбобоксы. При отрисовке появляются артефакты. А при прокрутке вообще жесть - в отдельных местах появляется то, чего не должно...
Нарисовать заданную геометрическую фигуру, которая перемещается по заданной траектории
Всем привет
В общем вторая лаба оказалась ещё убойнее предыдущей.
Никто ничего не показывал, не рассказывал. Ни одой пары не провели. И задали такое.
Нарисовать заданную геометрическую фигуру,...
Перетащить созданные компоненты form1 в отчёт LazReport
Здравствуйте, как перетащить созданные компоненты на форме, например stringgrid в LazReport. Чтобы созданная таблица StringGrid отображалась в отчёте ?
Работает только шесть нажатий
Здравствуйте. Программа всегда в неактивном окне. Такое дело:
В Form.Create Ставлю ловушку
hook := SetWindowsHookEx(WH_KEYBOARD_LL, @LLKeyProc, GetModuleHandle(nil), 0);
Есть функция...
TStringGrid режим редактирования
Опять засада.
Неправильно работает режим редактирования TStringGrid.
Чтобы не тащить все простыни, сделал контрольные примеры.
Код на Delphi.
procedure TForm2.Button1Click(Sender: TObject);...
ComboBox
Доброго времени суток. Пытоюсь создать обложку для консольной программы но невыходит. Нужно из ComboBox передать переменные параметры для запуска программы, а есть постаянные которые должны быть...
Связь между Lazarus и Python
Доброй ночи всем! Хочу узнать как связать Python скрипт с программой Lazarus. Например, у меня есть скрипт Python и в качестве входных данных он будет принимать строку. Я в Lazarus ввожу например в...
Исключения на математике
А что, lazarus математические исключения не обрабатывает?
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Math;
Координаты ячейки TStringGrid
Есть вот такой TStringGrid (см. вложение), хочу разделить некоторые ячейки на области. Чтобы при клике на одну часть ячейки выполнялась одна функция, на другую - другая (ячейка - в фиксированной...
Можно ли закрепить вторую клавиатуру за конкретным компонентом?
Китайский считыватель RFID-карт определяется, как вторая клавиатура (до этого был российский R5-USB, который определялся как виртуальный COM-порт). При считывании карты её номер выводится в активный...
Подскажите, какими свойствами обладает компонент TCheckGroup, как их правильно использовать (не менее 10 свойств)?
Разработать приложение, которое показывает свойства компонента CheckGroup. Для демонстрации выбрать не менее 10 свойств и приемов использования компонента
Ошибка возникает, но откуда она берется не врубаюсь
В lazrus (в ос Linux Ubuntu 21.10) создаю прогу компилирую все работает (на форме располжены поля MEMO из которых при нажатии клавиши ВЫЧИСЛЕНИЕ берутся данные и выводится результат), я делаю поля...
Как уменьшить файл, сохраняемый из TImage?
Суть такая. Загружаю картинку в TImage из камеры. Камера даёт изображение размером 1920х1080. Размер TImage 362x204 (свойство Stretch=true). После сохранения изображения в файле...
Копирование чисел из одной таблицы в другую при условии запрета
Здравствуйте, помогите пожалуйста. Как сделать так, чтобы числовые данный копировались с одного StringGrid в другой, но при условии что после копирования во второй StringGrid их нельзя прописывать...
Пробема чтения примечания из эксель-файла
Вот такой код работал в Delphi.
var IExcel,ICells:Variant;
...
IExcel:=CreateOleObject('Excel.Application');
IExcel.WorkBooks.Add(fn);
IExcel.Visible:=False;...
Тележка движение вверх и вниз
День добрый, прошу помощи с решением проблемы, помогите заставить тележку двигаться вверх и вниз , но при нажатии кнопок чтоб не было конфликта и тележка не улетела наискосок, пример ( едет вправо,...
Удалить цифры в строке
Добрый вечер, уважаемые эксперты. Помогите, пожалуйста, решить задачу: Дана строка s. Известно, что среди символов данной строки имеется хотя бы один пробел и что первый символ строки s отличен от...
Не могу разобраться с углом
procedure TForm1.Button1Click(Sender: TObject);
var
krylo:extended;
radius:extended;
DiametrDugiKrylo:extended;
radiusTurbiny:extended;
secheneSumm:extended;
areaZazor:extended;...
Обработка данных от нескольких последовательных портов
На заправочной станции установлены 8 колонок, которые управляются компьютером через RS-485. По требованию заказчика каждая колонка должна подключаться через свой COM-порт (можно, конечно, посадить их...
Вычитание одной ячейки StringGrid с другой StringGrid
Здравствуйте, помогите пожалуйста разобраться, как вычесть значение одной ячейки из другой. Например, есть два StringGrid - а. Из ячейки со значением "10" первого StringGrid1 нужно вычесть ячейку со...
Создание гиперссылки в StringGrid
Здравствуйте, подскажите как сделать гиперссылку на определённую форму в ячейке StringGrid в Lazarus ?
Импорт проекта/формы из Delphi
Здравствуйте.
Как правильно импортировать проект из Delphi? Как правильно импортировать одну форму проекта Delphi в свой проект Lazarus?
Возникла потребность перейти на программирование на...
Загрузка нескольких файлов
Добрый день, форумчане.
Подскажите, пожалуйста, как оптимальнее структурировать данные. Передо мной стоит задача одновременной загрузки нескольких файлов (думаю, здесь использовать...
Как вставить в RichMemo рисунок из ImageList?
Необходимо, чтобы в RichMemo по центру сверху отображался логотип фирмы.
В прилагаемых примерах к компоненту есть пример (inline), позволяющий вставлять изображение и даже выполнять мультипликацию....
Ошибка в файле ресурсов
Создаю файл ресурсов командой:
lazres CarWeights_v01.lrs Нет_номера.png Нет_изображения.png 0_нет.png 1_приехала.png 2_опознана.png
3_заезжает.png 4_заехала.png 5_взвешивание.png 6_взвешена.png...
Переносимость программ на Lazarus в Linux/
Вот в этой теме
https://www.cyberforum.ru/lazarus/thread2955482.html
с сообщения 15, спрашивал о развёртывании программ на lazarus под linux на других компьютерах. Экспериментировал, вроде...
Удаление строк из текстового файла
всем доброго времени суток! передо мной стоит задача по запросу, вводимому с клавиатуры, удалить фамилию, имя и номер из файла. с нахождением искомых данных я справился, а вот, как удалить, понять не...
Восстановить свёрнутую форму - проблема
Не хочется делать форму "sizable", поэтому делю свою кнопку свёртывания
form1.FormStyle:=fsNormal;
// form1.WindowState:=wsMinimized;
ShowWindow(form1.Handle,SW_HIDE);
В "обычной"...
Открытие заполненной формы при клике на ячейку с надписью в таблице
Здравствуйте, помогите пожалуйста разобраться, есть проект с тремя формами - две из них содержат таблицы для заполнения данных. Например, в форме 1 таблице заполняется наименование и количество...
Lazarus добавляет библиотеки в uses
Доброе утро, день, вечер...
Скажите плиз (уже надоело бороться)...
Пока редактируешь окно программы, Lazarus накидывает в секцию USES одни и те-же библиотеки...
Выгядит это так...
USES...
Подключение к серверу PostgreSQL через SSH
Выделили мне для удалённой отладки сервер с Postgresql, и подключили через туннель SSH. Сертификаты, ключи, пароль, все дела. Проверили, подключили - работает. Теперь у меня возникает вопрос: а...
В качестве f(x) использовать по выбору: sh(x), x2, ex
Очень нужна помощь с созданием программы.
Выполнить индивидуальное задание в соответствии с вариантом.
В качестве f(x) использовать sh(x),x^2,e^x (Организовать экранное меню из трёх пунктов(...
Как узнать номер жёсткого диска или подключённого внешнего носителя, зная его букву?
здравствуйте всем! функции DiskFree и DiskSize параметром принимают номер диска, у которого требуется получить размер или количество свободного места, а можно ли как-то узнать номер диска, зная его...
Фильтрация таблицы StringGrid
В Lazarus внутри обработчика события Button1Click следующий код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 1 to StringGrid1.RowCount - 1 do
begin
...
Расчет контрольной суммы файла по crc32
Как правильно рассчитать контрольную сумму файла по crc32? При использовании IdHashCRC считает отличную от других расчетных программ хеш. Реализую расчет так:
uses
, IdHashCRC
, IdHash... ...
Странное поведение события FormClose
всех приветствую! пишу программу для прослушивания аудиокниг. на рабочей машине установлена Windows 11 и последний lazarus. нужно, чтобы программа запоминала позицию воспроизведения, при запуске...
Линейная аппроксимация
Добрый вечер!
Подскажите, пожалуйста, полезные ресурсы о линейной аппроксимации в Лазарусе.
Всем спасибо!
Где в настройках убрать отладочное сообщение
Вот это сообщение выскакивает при выходе из программы в режиме отладки, причём, только под Windows. Где его убрать, кто знает?
Сравнить две обыкновенные дроби
Пошаговая демонстрация правила сравнения обыкновенных дробей с разными знаменателями. Исходные две дроби для сравнения задает пользователь приложения. Как разработать данное приложение? В плане...
Как связать Lazarus и макросы на LibreOffice Basic?
Интересует обмен информацией в режиме клиент-сервер.
Ну, кроме как через файлы.
Проблема при подключении к PostgreSQL 16.1-1
Столкнулся с проблемой при подключении к PostgreSQL 16.1-1: "Can not load PostgreSQL client library "libpq.dll". Check your instsllation". Решения, которые нашёл в Интернете к версии 16.1-1 не...
Позиционирование выбранного элемента в выпадающем списке TComboBox
Привет народ!
При открытии выпадающего списка в TComboBox, выбранный элемент всегда расположен в самом верху окошка (список длинный и выбранный не в начале и не в конце).
Мне нужно его сдвинуть...
Продолжить выполнение программы после возникновения исключения
Добрый день.
Не могу понять, как продолжить выполнение программы после возбуждения исключения.
Есть код:
try
DoSomethingCritycal;
except
Создать непустые списки с использованием указателей
Написала код первые два условия работают, а вот последние два совсем нет, не понимаю как исправить. Буду очень благодарна если поможете!
Вот задача: Создать непустые списки L1 и L2 с использованием...
Найти произведение целых нечетных чисел в Lazarus
Найти произведение целых нечетных чисел, кратных 7 в диапазоне от -N до N
Проблема с ScrollBox
Здравствуйте!
На форме (Form1) есть TScrollBox1, в котором находятся элементы TImage. При нажатии на TImage(находящаяся в TScrollBox1) TImage должна скопироваться в буфер обмена. При запуске файла...
Почему в Windows-11 программа не отправляет запросы в последовательный порт
Программа работает в Windows-7 и в Windows-10, как в 32-х, так и в 64-х разрядных версиях. Для проверки использую Virtual Serial Port Emulator, а для контроля Serial Port Monitor. (Написал основную...
Два алиаса одного объекта
Можно ли сделать так, чтобы объект имел несколько алиасов? Пример:
У меня есть много объектов, например, TPen, которые называются по-разному
var...
Допиливание TAChart
На Delphi графики выводил в Excel (см. вложение). На linux Excel нет, поэтому пока решил освоить TAChart. И столкнулся с такой проблемой. Графики проходят отдел нормоконтроля, и есть определённые...
Как уменьшить количество знаков после запятой в TDBGrid1 (TRxDBGrid1)?
В базе данных хранятся числа в формате Real с точностью 1 знак после запятой.
В саму базу числа записываются правильно, а при выводе в TDBGrid добавляется куча знаков после запятой.
Отказаться от...
По какому принципу Лазарус сортирует файлы при поиске?
Набросал в папку похожих файлов, ищу их, и получаю вот такой порядок поиска:
Реестр лицензий субъекта РФ 23 на 08.10.2024 20-15-00.xlsx(1) = 3559373
Реестр лицензий субъекта РФ 23 на 01.10.2024...
Поделиться проектом Лазарус
создал программу, все файлы необходимые для работы программы находятся в основной папке проекта, теперь нужно поделиться программой, но что бы он открывался без лазаруса ну или типо такого, не знаю...
Проблема с выводом текстовой информации и добавление строк
Первые попытки вывести информацию из SQLite в Lazarus. Порылся в интернете, нашел что есть, а есть не много, и сделал следующую форму. Данные числа из таблицы SQLite выводятся, но не выводятся...
Контекстная справка для программ на lazarus под linux
Есть ли какие-то инструменты, типа как HTML Help Workshop в Windows?
Добавление дочерних узлов в TreeView
Добрый день!
Есть проблемка с добавлением первого дочернего узла. Если у родительского узла есть потомки, проблем с добавлением и последующим редактированием нового дочернего узла нет. Но если...
Сохранить содержимое ячейки StringGrid в файл
Подскажи пожалуйста, как сделать так, чтобы в StrinGrid сохранялась только определённая строка таблицы ?
В FormCreate таблицы прописывал код, а он почему - то не работает (...
Определить новый курс корабля
Приветствую.
Подпрограммы процедур и функций.
Задача: объявлены типы и переменные
TYPE kurs=(s,v,u,z)
prikaz=(vpered,vpravo,nazad,vlevo)
var k1,k2:kurs; pr:prikaz;
Корабль сначала шел...
Логин и пароль нескольких пользователей
Здравствуйте, подскажите, как сделать форму с логином и паролем нескольких пользователей, а не одного ? Чтобы, например, при вводе логина и пароля одной учётной записи программа входила в form1, а...
Дана вещественная матрица размером 5x4. Упорядочить ее строки по неубыванию их первых элементов
Доброго времени суток,такая проблема есть.
Делал программу для задания в универе. Сделал программу,зациклилась она в общем.
Размещайте код в текстовом виде.
Переносимость системы адресации из Delphi в Lazarus
Написал в своё время для Delphi вот такой модуль - сбалансированное двоичное дерево для сортировки координат:
unit BTrees;
{$MODE Delphi}
interface
...
Как использовать процедуру?
вот я в implementation сделал процедуру
implementation
procedure pobeda(krornol:array of integer);
хочу чтоб по нажатию кнопки эта процедура срабатывала. как это прописать? заранее...
Код не хочет работать корректно:(
Задание звучит так: "Написать программу, которая считывает текст из файла и выводит его на экран, после каждого предложения добавляя, сколько раз встретилось в нем введенное с клавиатуры слово"....
Можно ли по таймеру закрыть "MessageDlg"?
Пишу программу, которая в случае проблем сообщает оператору о них с помощью "MessageDlg". Если оператор не отреагировал в течении какого-то времени, то как закрыть это сообщение и продолжить...
Несовместимость определений констант
В программе одновременно использую компоненты TAdvLed, TComPort и TComComboBox. При размещении их на форме в разделе uses были подключены файлы ... AdvLed, CPortCtl, CPort, ...
При попытке изменить...
Запоминать индексы комбобокса
Как правильно запоминать индексы комбобокса перед выходом? Допустим, комбобокс содержит только два значения: '%' и 'единицы измерения'. В зависимости от переключения комбобокса пересчитываются...
Вьювер схем для verilog
Есть проблема - вьювер схем от производителя, наверное любого. Вьюверы не имеют настроек, не позволяют позиционировать элементы и прочее, непозволяют изменять и не могут запоминать положение,...
Ошибка отладчика
Дней 5 как уже периодически стала появляться "Ошибка отладчика". Раньше такого не было.
После появления такой ошибки перекомпилирую проект в режиме без отладки, перехожу в режим с отладкой и...
Алгоритм Минимакс для "Крестики-нолики"
Привет всем, подскажите, как реализовать алгоритм минимакс на Lazarus и вообще можно ли?
Программно нарисовать фигуры (рыбы, цветы), отобразить по заданному алгоритму
15) Написать код нв lazarus, который рисует 8 геометрических рыбок, где тело это овал с точкой , хвост треугольник, два плавника с верху и снизу в виде треугольника. При нажатии Button1 на Paintbox...
Программирование под Android
Скорее это не вопрос, а просто хотел бы поделиться общением на международном форуме на эту тему. 29 апреля - 5 мая 2024 года вышло несколько обновлений надстроек LAMW...
Непонятки с TFormatSettings
В проекте, где много форм, получаю пустые значения DecimalSeparator, FormatSettings.DecimalSeparator, DefaultFormatSettings.DecimalSeparator. И никак не могу получить региональные настройки...
Параметры процесса в Linux
Доброго дня всем.
Подскажите как получить информацию о моей программе(процессе), а именно сколько памяти занимает, сколько потоков, насколько грузит ЦП и т.д. и т.п. Интересует вариант кода под...
Как узнать выполнено ли обновление в базе данных?
Использую БД PostgreSQL, но это не принципиально, т.к. компоненты для связи с таблицей такие же, как и у других БД (SQLTransaction1, SQLQuery1) и специфический для данной БД - PQConnection1.
Для...
Вышел Lazarus 3.2. Несовместимости с ZeosLib
Контролы новые, современные, прямо похорошели.
Но -так и не сумел скомпилировать Zeosdbo 8.0
А со старым Zeos 7.2.14 не совместим новый DBGrid
Использую Zeos, так как коннекчусь к Postgres....
Объясните пожалуйста, что здесь не так?
используя предоставленную программ провести исследования влияния сеточных параметров на точность решения в указанной точке пластины.
Программа реализует локально – одномерный метод решения двумерной...
Переполнение буфера порта RS232 при отладке
Использую компонент TComPort Подключённое к нему внешнее устройство с периодичностью 100 ms отправляет в него пакеты по 36 байт. Порт только "слушает", т.е. использую процедуру OnRxChar и, когда...
Как отсечь и разделить символы в слове?
Доброе время суток! в БД пишется сумма, например 43000.00. Но на самом дел это 430 р. 00 коп. Изменить запись в БД варианта нет.
Как можно из строки убрать последние три символа и затем крайние два...
Игра Пятнашки или Пятнадцать на Delphi
Всем привет, сейчас делаю курсовую на делфи, все сделал, осталось только при помощи списков сделать сохранение времени игры и кол-во ходов и вывод в текстовый файл. Прикрепляю проект.
Не могу понять в чем ошибка
Пытаюсь запустить код как консольное приложение, но как ни исправляю, появляется одна и та же ошибка
Program BookStore;
uses
Classes, SysUtils;
type
TBook = class
private
Медленный StretchDraw в Linux
Доброго времени суток!
Переношу небольшой проект на Delphi в Linux, проект получает фреймы (видео), из сторонней либы , определенным образом обрабатывает их, выводит на экран через...
Шифрование текста в Lazarus
Прошу составить код с любым методом шифрования в лазарус!
Просмотрел все что возможно и нигде нет работающего и в шифровании и в дешифрования
Попытки создать свой код не увенчались успехом
...
Создание Items компонента ComboBox по списку загружаемых файлов
Добрый день!
Возможно, эти вопросы уже обсуждались ранее на форуме.
У меня есть процедура, которая открывает 1 или несколько файлов:
function TRelTimes.ReadFiles(OpenDialog : TOpenDialog) :...
Чтение эксель-файла в Lazarus
Помогите пожалуйста, пытаюсь открыть Excel-файл в Lazarus. Но мне нужно знать какой тип столбца у Excel.
Но выдает ошибку Incompatible types: got "FPSTYPES.PCEll" expected "F_LISTE.PCell" в строке...
Как скопировать выделенную строку из DBGrid (RxDBGrid) в строки?
Необходимо сделать так, чтобы при выделении строки в DBGrid (RxDBGrid) запись копировалась в Edit-ы, как на картинке ниже:
Настройка прозрачности изображения
Встала передо мной задача взять файл изображения (не прозрачное) и вывести его на форму с настройкой прозрачности. Перерыл всю информацию, но из чего-то около похожего нашел только черчение квадратов...
Lazarus 2.2.6 глюки
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs;
...
что не так, ошибка (через раз, то есть, то нету ошибки)
ut_main.pas(8,47) Error: модуль не найден: Graphics
и не только...
Asprise OCR для установки Delphi Pascal
Asprise OCR для установки Delphi Pascal можно ли переделать под Lazuras?
https://asprise.com/ocr/sdk/docs/html/asprise-ocr-delphi-pascal-library.html
по этой ссылке создал в Лазурасе...
Русификация системных сообщений
Коллеги!
Допускаю, что такое уже спрашивали ранее, но "в лоб" поиском не нашел, так что звиняйте!
Вопрос:
Можно ли каким-то образом (желательно "штатным") русифицировать сообщения, которые могут...
Ошибка открытия файла через OpenDialog
Всем доброго времени суток
Столкнулся с проблемой открытия файла в OpenDialog
Вылезает ошибка. (скрин ниже)
На функционал она не влияет, т.к. позже дает выбрать файл, но влияет на "визуал"...
Экранная заставка или как перед открытием главной формы открыть другую форму
Допустим, перед открытием главной формы надо проверить пароль. Если пароль не правильный, то программу не запускать. Можно, конечно, это возложить на главную форму, а затем её сделать невидимой....
Как отправить на печать Image без оператора (на принтер по умолчанию)?
Чтобы отправить на печать Image предварительно надо вызвать PrinterSetupDialog1.Execute.
procedure TForm1.Button4Click(Sender: TObject);
var
MyPr: TPrinter;
x, y: Integer;
RR: TRect;...
Разное поведение компилятора на Windows и Linux
Версия Lazarus одна и та же - 2.2.6.
OC - AstraLinux SE 1.7 и Windows-11
На windows нормально отрабатывает оператор case cо строковым типом (что правильно), а на Linux выдаёт ошибку.
Почему?...
Неактивны кнопки запуска проекта в лазарусе
Почему неактивны кнопки запуска проекта в лазарусе? .lpr открыт, его даже удалось скомпилировать, но запустить не получается. Лазарус 2.2.6
Инициализация полей классов
Всем здравствуйте.
const FREQ = 10; // Эти константы будут использоваться только внутри класса. Куда их поместить
DEL_DAY = 900;
INTERVAL = 3;
type
{$PACKRECORDS 1}
ArchData...
Построение графика функции
Добрый день!!! Помогите мне, пожалуйста, мне очень срочно надо создать проект построения графика функции y=cos(x)/(1-x), где x принадлежит от -пи до пи с помощью компонента TChart, заранее огромное...
Возведение в произвольную степень
Доброго... времени, кода - всего :)
Запутался, как возвести число в произвольную степень?
В данном конкретном случае в отрицательную целую степень.
В книжке Мансурова написано - Xn=en*ln(x)
В...
Как изменить цвет формы?
Нужно вобщем сделать так:
Столбик RudioButton-ов с названиями цветов.
Кнопка Смена цвета
Выбираешь цвет, жмёшь кнопку-и форма должна поменять цвет.
Я так понимаю, что надо по клику на кнопку...
Калькулятор сделанный на Lazarus
Искал везде код калькулятора под Lazarus. Нигде не нашел. Пришлось делать самому) Этот калькулятор полная копия обычного калькулятора в Windows 7.
Ошибка: Проект вызвал класс исключения External:SIGSEGV
Привет! Работаю над приложением для работы с оценками учеников. Решил начать с раздела настроек. При вводе кол-ва оценок учащихся проект вызывает класс исключения External:SIGS EGV. Данные вводятся...
Ошибка: project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found
project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found
выдает эту ошибку при компиляции. Написал самое элементарное :
procedure TForm5.Button1Click(Sender: TObject);...
Базы данных в Lazarus
Хочу написать какую-нибудь программу на Lazarus'е... еще никогда не пробовал писать базы данных. Хотелось бы создать нечто наподобие базы данных "По красивым местам планеты", ну или что-то в этом...
Получить количество записей в таблице SQLite
В процессе создания приложения возникла огромная куча вопросов по работе с БД в Lazarus. Вот несколько наиболее актуальных для меня вопросов по этой теме:
1. Необходимо получить информацию о кол-ве...
Последовательность a1, a2, …, an состоит из нулей и единиц. Поставить в начало этой последовательности нули
Здравствуйте! помогите, пожалуйста, написать программу на языке паскаль в лазарусе. Для всех задач входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над...
Сохранение файла в exe
Помогите пожалуйста!!! нужен код для лазарус, чтобы при нажатии кнопки сохранить, сохранялся исходный код, т.е. файл проекта exe. чтобы потом можно было его свободно открывать без программы
Ошибка "Fatal: Syntax error, ";" expected but "." found"
звучит задание: создай программу, в которой можно преподнести введенное пользователем число к указанному степеню.
покапавшись на всяких форумах и тп, написал код. вроде бы все ок. но при...
Создание калькулятора на Lazarus
Сделал калькулятор, но проблема в процентах, он выдаёт не тот результат который должен получится.
Ещё когда нажимаешь на 0, он может ставится бесконечно. Помогите пожалуйста.
unit Unit1;
...
Составить программу 'Крестики-нолики'
Доброго времени суток! Очень нужно к завтрашнему дню составить программу на lazarus крестики нолики (поле 3X3). Помогите пожалуйста, а то я очень слабо ориентируюсь в программировании! Заранее...
Ввод и сохранение данных в текстовом файле
есть программа для решения систем типа:
a11x1+a12x2=b1
a21x1+a22x2=b2
надо сделать так,чтобы данные а11,а12, а21,а22,б1,б2 брались с текстового файла и чтобы ответ х1,х2 выводились в текстовом...
RadioGroup
Помогите выполнить задание:
На городской субботник деканат закрепил за группами электроснабжения следующие объекты:
99Э1 – территория у входа в 14 корпус;
99Э2 – аудитория 15201;
99Э3 – коридор 2...
Как поменять иконку исполняемого файла exe?
как поменять иконку исполняемого файла exe?
Картинка на фон формы
Картинка на фон формы. Это реально?
Написание приложений под Android на Lazarus-е
Здравствуёте!
Хотел бы поделиться своим впечатвлением о написании приложений под Android на Lazarus-е.
Гуру Delphi и Lazarus-а прошу строго не судить - я не профессиональный программист, а...
Изменение цвета при нажатии на кнопку
Изначальный цвет-зеленый. После каждого нажатия изменяется цвет формы в последовательности зеленый-красный-желтый. Помогите
Список команд для lazarus
Прошу дать мне список команд в программе lazarus данная программа использует язык paskal
Error: Illegal expression
Выдает ошибку
unit1.pas(613,34) Error: Illegal expression
в в последней строке из двух
copyTimeBoxMaxY := AOfLabelInATimeBoxMaxY;
copyTimeBoxMaxY.nalichie = true;
при условии что в типах...
Решение квадратных уравнений через графическое приложение
Всем привет, сказали сделать приложение через которое решаются квадратные уравнения вида ax^2+bx+c=0
Создал 6 полей Edit, в первое поле записать число a, во второе b, в третье c, в четвертое x1, в...
Как запустить другую форму
При запуске автоматически запускается Form1, а как запустить в начале, например, Form2? И как правильно переключаться между формами, например, мне необходимо попасть в настройки моей программы и я...
Задачки) Умоляю, помогите...
1. Создайте приложение «Как дела?», которое запрашивает имя пользователя с помощью текстового поля Edit, и выдает личное приветствие с помощью метки Label. Например, если пользователь ввел «Олег», то...
Событие при нажатии клавиши Enter
Как создать событие которое активируется при нажатии клавиши Enter? Или любой другой?
Округление реального числа к большему целому
Подскажите пожалуйста функцию лазаруса для округления реального числа к целому, но к большей части, например 1200/500=2.4? а надо что бы выдавало не 2, а 3, а то функция Round к меньшему...
Программное создание DXF-файлов
Здравствуйте!
Всех с наступающим Новым годом!!!
Хочу поделиться опытом программного создания DXF-файлов - вдруг кому-то пригодится.
Сам не раз пользовался полезными советами и чужими примерами...
Заливка кнопок в Лазарус
Можно ли менять цвет фона кнопок в Лазарус?
Как принять данные с 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); // Как здесь прочитать символ, не зависимо от дефолтной кодировки? Например, у меня на убунте...
Запуск стороннего приложения из лазаруса
Доброго времяни суток. Как в лазарусе открыть сторонний файл? например ярлык или текстовый документ или программу? как в делфи открыть мне уже говорили но с лазарусом проблемы.
Парсинг txt файла, как лучше сделать?
Задача следующая есть стандартный txt файл, его размерность может достигать до 1-2 Мб
Его структура примерно такая...
(0/
1;"Сваи_пружинки";
2:"Microsoft";/
2;5/
23; 10 2 12 4 6 0...
Ошибка External: SIGFPE
Помогите пожалуйста исправить ошибку.
Нужно было сделать программу, которая бы решала многочлен методом barstow (деление на многочлен), но при вычислении dr (39 строка) программа выдает ошибку ...
Как исправить Warning: Local variable "x" does not seem to be initialized
как исправить эту ошибку
unit1.pas(50,10) Warning: Local variable "x" does not seem to be initialized
unit Unit1;
{$mode objfpc}{$H+}
В Lazarus помогите справиться. Создание мини-игры
Я создал в Lazarus что то наподобе игры.
Естественно для ознакомления и учебы...
У меня получилось что изображение image1 двигается по полю клавишами w,a,s,d командами left и top.
А...
Обработка исключений Lazarus - простейший пример
Здравствуйте. Научите меня правильно использовать обработку исключений на примере деления на ноль. Добавил просто блок try-except - оно не работает. Не нашел в интернете ни одного рабочего примера.
...
Нужно сделать Калькулятор в проге Lazarus 1.6.2
Нужно сделать Калькулятор в проге Lazarus 1.6.2
Проект, в котором нужно вычислить сумму, разницу, произведение или деление
нужен код
Текстовые файлы лазарус
Здравствуйте. Есть вопрос по лазарусу. Как очистить текстовый файл и как создать текстовый файл с заданным именем через лазарус?
Как правильно написать условие if ?
имеются три поля tedit.
и кнопка "сложить".
условие такое:
если в полях tedit1 и tedit2 пусто или записаны не числа, операция сложения tedit1 и tedit2 не происходит.
а если в полях tedit1 и...
Звук в Лазарус
В Delphi в библиотеке System есть компонент MediaPlayer. В Лазарус я этот компонент нигде не нашла. Подскажите, пожалуйста, есть ли в Лазарус какой-нибудь аналог MediaPlayer? Если есть, то где он?...
Error: Identifier not found
Помогите мне с работой в лазарусе. Так как изучать начала его сравнительно недавно, никак разобраться с ошибками((
procedure TFormOptions.ButtonOkClick(Sender: TObject);
Var MyColor:TColor;...
Переход между формами
Здравствуйте.
Помогите, пожалуйста. Хочу сделать программу с 2 формами, на 1 форме кнопка, при нажатии на кнопку 1 форма должна закрываться, а 2 открываться.
Если использовать Form1.Close, то...
Динамические TThread
Добрый день.
Интересуюсь, как правильно создавать динамические потоки TThread, а ещё больше - как передать данные в каждый поток (заполнить стартовый массив, так сказать), а потом в главном потоке...
При попытке открыть файл, в пути которого есть символы на кириллице, возникает ошибка: Unable to open file
Добавил на форму OpenDialog, Memo.
При попытке открыть файл в пути которого есть символы на кириллице возникает ошибка Unable to open file.
Как исправить?
Ошибка: Can't open resource file
пишет такую ошибку Error: Can't open resource file "C:\Users\????????\Desktop\7.13\Unit1.dfm"
проверьте что не так пожалуйста!!!!
Работа с текстом и файлами в lazarus
Задача заключается в следующем:нужно открыть некий файл в котором есть текс,взять оттуда этот текст и вывести в окно программы,затем данный текст форматируется таким образом чтобы отступ слева был n...
Работа с UTF8 в Lazarus 1.6
Здравствуйте.
При загрузке проекта в недавно вышедший Lazarus 1.6 получаю предупреждения, что функции работы с юникодом SysToUTF8 и UTF8ToSys не работают ("deprecated").
При компиляции и запуске...
Программное создание события
Здравствуйте =)
Допустим, я создаю, во время работы программы, кнопку, как мне этой созданной кнопке задать событие... ну например OnClick?
Поиском пользовался, ненашел =)
Генератор случайных английских букв
Здравствуйте. Помогите пожалуйста!
Нужно сделать генератор случайных английских букв .
Почему не определяется идентификатор UTF8ToConsole?
Изучаю Лазарус по книге Мансурова "Основы программирования в среде Lazarus"
При компилировании такой программы:
program summa;
{$mode objfpc}{$H+}
uses
FileUtil; {Подключение модуля...
Как установить Synapse?
Доброго времени суток!
Пытаюсь пересесть на Lazarus, никак немогу прикрутить синапс =(
По мануалу с http://www.ararat.cz/synapse/doku.php/public:howto:installsynapse
неполучается.
go to...
Error: method identifier expected
Until1
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, game,
LCLType, ExtCtrls;
Создание кастомного меню для формы без заголовка
В связи с неотвратимостью технического прогресса в части увеличения разрешения экранов дисплеев до каких то на мой взгляд безумных значений (у меня на 13 дюймах 1980 по горизонтали) и одновременного...
Добавить условие в Case
Составить программу, которая в зависимости от порядкового номера дня месяца выводит па экран его название.
Значит вроде все работает, но нужно чтоб при выборе числа больше 12 какую нить ошибку...
Fatal: Can't find unit Unit1 used by project1
Написал элементарную программу на delphi, не компилируется. Вставил код в лазарус вот такая ошибка вылезает: project1.lpr(1,1) Fatal: Can't find unit Unit1 used by project1
Что это значит и как с...
OpenDialog и SaveDialog
Как сохранить и открыть программу через OpenDialog и SaveDialog. Подскажите пожалуйста код...
Ошибка установки Indy в Lazarus
Текст ошибки: "lazarus.pp(1,1) Fatal: Невозможно найти indylaz, используемый в Lazarus, несовместимый PPU=C:\lazarus\components\Indy10_5298\Lib\lib\i386-win32\indylaz.ppu, пакет indylaz".
Lazarus...
Таймер на форме
При открытии формы должен запускаться таймер, который автоматически начинает отчёт 20 минут (в обратном отчёте). Не получается реализовать, чтобы данный таймер срабатывал только на одной форме и...
Отправка письма на почту
Задача непростая:
Дано Memo1 и Две кнопки ( любых )
Задача такая:
пишем в Memo1 текст, например "Привет мир", жмем на одну кнопку и наше сообщение отправляется на почту. Не обязательно...
Запуск консольных команд
Здравствуйте, хотел спросить а можно ли в Lazarus под linux запускать команды которые обычно применяются в консоли, просто под виндой есть bat файлы которые запускают обычные команды в определеной...
Ошибка: "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.
Программа показывает структуру файловой системы.
Хочу сделать...
Работа с сокетами
Здравствуйте, хотелось бы написать внутресетевой чат, понимаю, что изобретаю велосипед, но всё же ради тренировки и опыта. С этим хочу спросить вас: какой пакет лучше использовать для работу с TCP...
Создание калькулятора в программе Lazurus
Как сделать так чтобы калькулятор не делил на ноль, а писал в окне "деление на ноль невозможно"?
Как добавить запятую чтобы калькулятор мог считать десятичные дроби?
Добавлено через 1 час 17...
Рисование круга, прямоугольника, треугольника
я рисую круг, прямоугольник
делаю это так: переменные у меня здесь
implementation
var y0,x0, xpos, ypos:integer;
в процедуре
procedure TForm1.Image3MouseDown(Sender: TObject; Button:...
Обработка событий клавиатуры
В Lazarus можно обрабатывать события клавиатуры?
Кодировка, русский текст в консоли
Привет Ребята.
Возник такой вопрос.
Если создать новый проект в lazarus'e и написать к примеру в коде программы:
writeln('Привет мир!');
то в командной строке вместо русского текста вылазит...
Ошибка: отсутствует файл fpc.cfg. Linux
При выборе компилятора пишет ошибку. Где должен быть fpc.cfg?
Компилятор /usr/bin/fpc.
/etc/fpc.cfg есть
Проект не линкуется - неверные параметры для линкера
Светофор
Задание: смоделировать работу светофора. Изобразить светофор в виде трех окружностей на черном фоне, способных менять цвет от красного (верхняя окружность), до зеленого (нижняя окружность). Сигналы...
Графический редактор на Lazarus'е
нужно сделать графический редактор. желательно через paintbox. не могли бы вы подсказать, как можно сделать чтобы рисовал только левой кнопкой мыши и как сохранять изображение в paintbox'е при...
Ошибка "External: SIGSEGV"
procedure TMap.LoadImagesClick(Sender: TObject);
var i:integer;
begin
if OPDPoint.Execute then
for i:=1 to OPDPoint.Files.Count do begin
...
Компонент TChart: поточечное построение графика функции
В Delphi есть компонент TChar и в нем есть PointSeries, в Lazaruse я такого не могу найти, как построить точечный график функции??? Помогите, нужно для диплома.
Работа с файлами на Lazarus
В файле f записаны целые числа. Написать программу, которая в файл g записывает четные числа, а файл h - нечетные.
Ошибка: Circular unit reference between Unit2 and Unit1
Доброго времени суток.
На первой форме 1 кнопка, на второй 1 кнопка. Первая кнопка открывает вторую форму в обычном режиме и одновременно меняет цвет первой формы, вторая кнопка закрывает...
Использование Random
Доброго времени суток. Нужно задать случайное число из промежутка
random(5) + 8;
Это верно?
Поле ввода Edit
Здравствуйте, ув. программисты. Подскажите пожалуйста с заданием:по заданию пользователь должен вводить исходную последовательность чисел в компонент Edit по одному числу и нажимать Enter. а после...
Работа с регулярными выражениями в Lazarus
Уважаемые, скажите пожалуйста, как в Lazarus организовать работу с регулярными выражениями?
Конкретно хочется очистить строку от всего, что не является цифрой, т.е. . Метод перебора всех символов...
Очистить Canvas
Подскажите, как очистить канву, чтобы не пропали динамически созданные на ней элементы. При перемещении элементов по панели я делаю отрисовку связей, но старые остаются, как их убрать?
Пробовал...
Тест lazarus
Делаю тест ,единственное до чего додумался правильный и не правильный ответ выводить в "ShowMessage " (но так не красиво) , сложно подсчитать количество правильных .Думаю сделать что бы в 1 label...
Ввод и вывод массива
Почему-то целые числа выводит, а на вещественные выводит ошибку?
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,...
Решение задач
Задано решить задачи. Успехов вообще никаких нет, помогите хоть с чем-то.
Нужные задания:
1.24(пункт А)
1.26
2.21
2.28
4.2
4.9
4.23
4.78
Построить график функции
построить график функции y=sin (x) (Лазарус) unit.
Массивы в Lazarus
Помогите наладить код...ругается на строку var mas: array of integer; Пишет: Can't evaluate constant exression
var
Form1: TForm1;
i,j:integer;
a,b:integer;
implementation
{$R *.lfm}
Cчитывание из файла текста в формате txt, и запись его в StringGrid
Доброе время суток!)
С недавних пор начали писать программы в Lazarus.. За период обучения появились некоторые проблемы.
Вообщем суть программы: В задаче надо считывать из файла текст, и записать...
Чтение файла с русскими буквами
не получается - при печати - русские буквы вообще не печатаются (даже вопросов нет вместо русских букв)
assignFile(f, OpenDialog1.FileName);
reset(f);
while not eof(f)...
Создание двумерных массивов
создать двумерный массив , куда можно будет заносить и читать от туда данные(тип string)
для ежедневника
Как объединить все окна интерфейса Lazarus в одно единое окно?
Интерфейс Lazarus разбит на огромную кучу мелких неудобных окон. Можно ли как-то все их объединить в одно единое окно, которое закроет весь рабочий стол? В среде Delphi есть специальная настройка,...
Создать матрицы Lazarus
Помогите пожалуйста с задачкой по Lazarus(( задача:"5. Заданы четыре квадратные матрицы: A(n,n), B(n,n), C(n,n), D(n,n), в которых хранятся целые числа. Найти матрицу, в которой находится...
Вычисление факториала рекурсивным методом
помогите написать на лазарусе вычисление 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:...
Перевод чисел в различные системы счисления
Написать программу в lazarus: перевод чисел в различные системы счисления. Создать форму на ней разместить Edit и переключатели.
Ошибка: Syntax error, ";" expected but "BEGIN" found
Ошибка
unit1.pas(529,1) Fatal: Syntax error, ";" expected but "BEGIN" found
тут в строке с сообщением в комментарие, строка 40. Не понимаю почему.
procedure Ordering;
//type TValueSign = -1..1;...
Множества в Lazarus
Всем здравствуйте! Надо сделать задачу в Lazarus Pascal, но столкнулся с непонятной проблемой! Когда я пытаюсь заполнить множество, он говорит мне что во множество можно положить только перечисляемый...
Изменение размеров Image
Image привязан якорями (Anchors) к форме.
Однако, если поменять размер формы, то размер канваса не меняется.
Чтобы изменить размер канваса можно, напрмиер, так (из OnResize формы):
...
Преобразование чисел
Введите 2 целых числа. Преобразуйте числа в две строки, объедините их в одну и выведите на экран результат.
Допустимые процедуры и функции:
- Процедуры: Delete, Insert, Str, Val
- Функции:...
Запуск только одной копии приложения
Как сделать, чтобы при попытке запустить ещё одну копию свёрнутого (находящегося на заднем плане, временно невидимого) приложения копия не запускалась бы, а то единственное приложение, что временно...
Ошибка: "" is invalid float
Всем привет, пытаюсь считать в программе среднее арифметическое и программа ругается , подскажите что не так unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil,...
Видимая и невидимая надпись при нажатии кнопки
Подскажите , как сделать , чтобы при нажатии на кнопку надпись становилась видимой ,а после второго нажатия невидимой .
Считывание текста с Edit
Как в Lazarus считать текст со строки Edit? как считывать цифры я знаю, а вот как буквы незнаю....
Даны три целых числа; возвести в квадрат отрицательные числа и в третью степень положительные
даны три целых числа возвести в квадрат отрицательные числа и в третью степень положительное лазарус
Отловить подключение usb устройства к компьютеру
Доброго времени! Подскажите как в lazarus реализовать отлов подключения/отключения USB устройства к ПК? На delphi есть готовый код, рабочий... однако при переработке его на lazarus возникают...
Выдаёт ошибки 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,...
Разъясните немного насчет Лазаруса Дельфи и Фри паскаля
Прошу не ругать,так как в програмировании разбираюсь очень мало,и инетерсует очень много.
я вопросы буду задавать по номерам так легче вам будет отвечать:)
Итак
1)Так на каком языке пишет...
Ошибка 103 при попытке чтения файла
Здравствуйте. После попытки чтения выдается ошибка runerror 103. Что нужно исправить?
procedure TForm1.Button3Click(Sender: TObject);
var
f:file;
s:file;
i,j,p:integer;
begin...
Функция power
вещественное число в вещественную степень
Где описываются глобальные переменные?
Подскажите,где в Lazarus описываются глобальные переменные
Random()
Использую в проекте функцию Random();
Подскажите пожалуйста как сделать, чтобы при каждом запуске программы генерировались действительно случайные числа (каждый раз генерируются одинаковые числа)....
Создание простейшего Блокнота
Может кто-нибудь создать в лазарусе блокнот, как в Windows?
А то у меня есть некоторые нестыковки.
Из под Windows в Linux
Скачал lazarus-1.0.8-fpc-2.6.2-win64.exe, установил, под вин компилется хорошо, как из под винды скомпилировать проект под линукс? В параметрах проекта указал ОС линукс, при компиляции выдает ошибку...
Запись данных в текстовый файл
Всем здравствуйте.
procedure TForm1.Button1Click(Sender: TObject);
var f: TextFile;
s:string;
v:real;
begin
AssignFile(f, 'proba.txt');
if not FileExists('proba.txt') then
...
Работа с потоками TThread
Работал с потоками по аналонии с Дэльфи. В Лазарусе компилируется нормально, но выполнение программы прекращается при попытке создать объект класса TLoadThrd. Я максимально упростил поток, оставив в...
Lazarus и GIF анимация
Задача поместить на форму в качестве фона анимираваный GIF.
Руководства и нужных объектов я не нашел.
Пробовал поместить на обьект Image но в ожидании анимации получаю статичную картинку.
Не...
Условия с if/then
Всем добрый день!
Итак, мне необходимо сделать в Лазарусе такую программу, в которой будут находится Edit, Label1, Label2, Button. Задача состоит в том, чтобы пользователь вводил в Эдит любое...
Окна ShowMessage, MessageDlg
Приветствую всех! У меня возникла следующая проблема, я заметил, что окна showmessage и messagedlg останавливают выполнение программы , пока не нажмешь кнопку. Как сделать так, чтобы выполнение...
Ошибка: проект вызвал класс исключения 'EConvertError' с сообщением is an invalid integer
помогите пожалуйста разобраться при запуске программы выдает ошибку. ошибка: проект вызвал класс исключения 'EConvertError' с сообщением is an invalid integer
сама задача: Создать класс обыкновенная...
Найти сумму чисел от 1 до n
Найти сумму чисел от 1 до n. Помогите с кодом, пожалуйста!
Файл с каким расширением в Lazarus отвечает за проект, а какой за модуль главной формы?
Нужно название расширение файла проекта и название расширение файла модуля главной формы.
Свойства Top и Left
Здравствуйте всем. С какого краю фигуры мерится top и left?
Как запустить несколько проектов одновременно?
Есть проект с готовыми (сохранёнными в собственной библиотеке) решениями. Надо куски кода из них скопировать в другой проект. Пока я открываю модули-источники в текстовом редакторе. Хотелось бы...
Access + lazarus
Уважаемые гуру! Я новичок!
Пытаюсь прикрутить базу MDB (Microsoft Access) в lazarus чере *.dsn файла + сама база *.MDB + DBGrid+ODBCConnection+SQLTransaction+SQLQuery+Datasource
делаю следующие!
...
Ping в потоке
Добрый день всем! Стандартная задача для начинающего - пинг(в потоке?)! Задача: опросить сеть с максимальной быстротой на предмет "кто в сети" в диапазоне от 192.168.0.1 до 192.168.0.255. Результат -...
Поменять местами четные и нечетные элементы массива
Помогите пожалуйста.
Нужно в лазарусе программу написать.
"Дан целочисленный массив,нужно поменять местами четные и не четные элементы"
Ошибка: External "SIGSEGV" Error
Такая проблема:
Я сейчас обучаюсь в институте после колледжа, и там некоторые предметы у меня была возможность перезачесть, просто так или что-то сделав.
По одному из них мне сказали переделать мой...
Генератор случайных чисел
Задание
3 кнопки
1 листбокс
1 кнопка-генерирует случайные числа
2 - генерирует случайные чётные числа
3 - очистить листбокс
проблема: Identifier not found Edit1
Как запретить изменения размера формы?
Как я могу запретить изменять размер формы? Чтобы вот как открылась форма, так и была, чтобы нельзя было менять её размер?
3D графика в Lazarus
Такое дело, написал тулзу успешно, конические шестерни печатает, в общем она просто вносит корректировку в G-код.
Но аппетиты растут, после русификации, для себя и 3dtoday чисто, Kisslicer 1.5...
Нарисовать изображение (например, домик)
Господа форумчане)) В Lazarus совсем недавно, мне нужно составить графическое изображение в этой программе, ну например домик нарисовать или что то еще, можете кто нибудь дать пример или объяснить...
Русский язык в консольных приложениях
Консольное приложение под Windows 10
Добавляю в список зависимостей проекта LazUtils
составляю тестовую программу
program LazTest;
uses LazUTF8,Windows;
begin
SetConsoleOutputCP(CP_UTF8);
...
Как работать с двумя формами?
У меня на одной форме находится кнопка TButton. При нажатии на нее, первая форма должна стать неактивна, вторая форма должна стать видимой, и надписи на метках второй формы должны измениться.
в...
Программный код
Помогите разобраться с работой данного программного кода пожалуйста
procedure TForm2.Button3Click(Sender: TObject);
var
i, j: integer;
sl :TStringList;
fl: boolean;
Константа в виде массива строк
нужно создать массив строк как константу
не понимаю как правильно написать ?
const str:array of string=('11','22');
не компилируется.
Как работать с Office Word из Lazarus
Преподаватель поставил задачу:создание отчета в MS Word из программы в Lazarus. Должен запускаться Word, в нем печататься текст, выводиться в таблицу инфа из StringGrid. И все это визуально должно...
Рисование фигур на канве формы
доброго времени суток решил дополнить свой маленький пример поинта вставкой фигур квадрата и Элепса ну почему то
при рисование элепса он слишком сужен а при рисование квадрата он мне выдвигает...
Дано два числа a и b. Найдите гипотенузу треугольника с заданными катетами
Гипотенуза
Дано два числа a и b. Найдите гипотенузу треугольника с заданными катетами.
Входные данные
В двух строках вводятся два числа (числа целые, положительные, не превышают 1000).
...
Русские буквы в пути к файлу
sf:=('C:\Учебное\text_file.txt');
AssignFile(f, sf);
Rewrite(f);
writeln(f, t); //ругается на эту строку
CloseFile(f);
При сохранении файла в директорию с русскими символами...
Путь к файлу
В папке с программой, там где лежит exe-шник, лежат еще 4 картинки, их нужно подгружать в image по изменению RadioButton'а. Как прописать это? Нужно чтобы работало еще и с флэшки, и.т.д, либо как-то...
Ошибка "Identifier not found"
выдает ошибку в строке, выделенной комментарием (строка 42), как исправить?
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Эффективная работа с Bitmap, адекватная скорость прорисовки
Здравствуйте, товарищи программисты!
Возник у меня вопрос относительно работы с графикой в Lazarus.
(использую Lazarus IDE v1.0.4)
Программа должна по нажатию кнопки генерировать и выводить в...
Запуск, удаление и остановка потока
Смотрел документацию на http://wiki.freepascal.org/Multithreaded_Application_Tutorial/ru , однако найти ответы на свои вопросы не смог.
Создаю поток (Button1Click), который должен запускаться не...
Связать пункты TreeView со значениями
Как можно (средствами самого контрола) приписать значение к определенному итему?
Что-то вроде
TreeView1.Items.Item.text='текст';
TreeView1.Items.Item.value='значение';
//подобный код видел,...
Как извлечь год из даты?
Добрый день, не знаю как мне рассчитать год из даты рождения, к примеру 26.06.1996 ===> 1996
Как снять выбор с RadioGroup/CheckGroup?
Как убрать выбранные галочки и/или кружочки с radio и check group с помощью одной кнопки? Lazarus
Или как убрать выбранные ранее галочки и/или кружочки (обнулить выбранные ответы) может быть и без...
Цветная кнопка
Добрый день, хелп плииииз!
Глупый вопрос, но не нашел ГОТОВЫХ компонент, только "как нарисовать" или "попробуем написать".
Под делфи было куча! Мне нужен аналог TButton, но с указанием цвета...
Найти площадь и периметр квадрата ABCD
Люди добрые прошу вас помочь в написании кода,этой задачки.
Известны координаты вершин квадрата ABCD: A(x1, y1) и C(x2, y2). Найти его площадь и периметр.
Код символа (кириллица)
Всем привет!
Перерыл кучу информации, перепробовал множество вариантов, но так ничего и не получилось.
В общем смысле задача следующая. Дан файл (в моем случае file of char), необходимо...
Что значит "Исполнение остановлено"?
program radgrad;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes ,sysutils
{ you can add units after this };
Сохранение форматированного текста RichEdit через SaveDialog
Переделал код билдера в лазарус.
Посмотрите пожалуйста так это должно выглядеть?
Вот исходник на билдере:
https://www.cyberforum.ru/cpp-builder/thread966950.html
а вот что я думаю в лазарусе...
Игра змейка
Здравствуйте, требуется помощь! Может быть кто-то из форумчан когда-то писал игрушку змейку и готов ей поделиться, то я был бы вам очень благодарен! В лазарусе я человек начинающий и поэтому,...
Edit. Ввод только цифр?
Здраствуйте. Искоал кроссплатформенный метод как же в Edit вводить только цифры включая контроля за буфером.
Кроме как включения NumberOnly не нашел ничего а данный способ не годится из за того что...
Построить график в Chart по координатам из StringGrid
Доброго всем времени суток.
У меня возник такой вопрос, каким образом можно построить график в Chart, по данным в StrinGrid?
StrinGrid: Сформулирован следующим образом: имеется 2 столбца, и 15...
Движущаяся фигура (управление с клавиатуры)
Решил начать своё знакомство с Lazarus с простой программы, суть в том, что фигура(квадрат) двигается по полю, по нажатию кнопок "w" "s" "a" "d". Разобрался как реализовать данное действие только для...
Вывод списка файлов в Lazarus
Как вывести список файлов из каталога и отсортировать их по дате, типу и размеру???
Как сделать игру "Пятнашки"?
Мне бы посоветовать как сделать игру "пятнашки", а то не пойму как её делать... Как определить в какой квадратик тыкнул.. как переставлять и т. п.
Во игра как должна выглядеть на paint'е нарисовал)...
Error: Undefined symbol: WSRegisterCustomImageList
Помогите, пожалуйста, не пойму, почему не работает программа?
unit Ir3;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
...
Нужно ли выложить проект в Lazarus отдельной темой?
В проекте - чтение символов MNIST, работа с OpenGL.
Работа над альтернативой свёрточным нейросетям.
далее будет нейросейть прямая, но не простая. Простая прямая - это когда каждый нейрон слоя...
Вывод дерева каталогов в форму
Необходимо реализовать приложение, отображающее дерево каталогов и файлов. При запуске программы пользователь должен в диалоговом окне указать путь к каталогу, содержимое которого будет в дальнейшем...
Создать графический редактор
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, PrintersDlgs, Forms, Controls, Graphics, Dialogs,
ExtCtrls, Menus, Buttons, ExtDlgs;
Перевод из кодировки UTF-8 в CP866
Нужно сделать функцию, которая переводит текст из кодировки UTF-8 в CP866. То есть с нуля, так-как нельзя использовать стандартные функции.
Пользователь вводит текст в UTF-8, а на выходе получает...
Запуск сторонней программы
Как запустить стороннюю программу (.exe)?
Ошибка "Error: Wrong number of parameters specified for call to "FloatToStrF""
и снова я. задание: создайте программу, в которой можно найти максимальное из четырех заданных ризных целых чисел пр условии, что каждое число подается в положительном виде, даже если пользователь...
При нажатии на клавишу "пробел" срабатывает кнопка на форме
Столкнулся со странным поведением программы. При нажатии на клавишу "пробел" срабатывает кнопка, установленная на форме. На другие клавиши кнопка не реагирует. Насколько я понимаю такого не должно...
Скопировать в буфер обмена содержимое поля ввода или значение переменной
Можно такое? Заранее благодарен.
Изменение цвета и/или шрифта заданных узлов TreeView
Гуглил, но ничего путного для себя не нагуглил по указанному сабжу. Возможно ли это в принципе?
Известна диагональ квадрата d Вычислить площадь S и периметр P квадрата
Разработать программу в среде программирования Lazarus. Для задачи создать интерфейс, соответствующий условию.
Известна диагональ квадрата d. Вычислить площадь S и периметр P квадрата.
Координаты мыши на форме
Как в Lazarus сделать чтоб при воде мышью по форме отображались координаты указателя?%-)
Тип данных Запись
открываю тему, потому как люая литература, продаваемая не является справиочником, и не знаю английского. в настоящий, в трёх, имеемых мною на руках книгах, мало описана работа с записями. в...
Обработка нажатия клавиш
Как сделать так, чтобы при нажатии на стрелочку вверх на клавиатуре, делалось какое-то действие, например, менялся текст в Label1.
Скажите код пожалуйста.
При выборе соответствующей кнопки менять вид отображения рамки панели: "выпуклая", "вдавленная", "отсутствует"
Составьте программу, которая при выборе соответствующей командной кнопки, ме-
няет вид отображения рамки панели «выпуклая», «вдавленная», «отсутствует».
Как это сделать в Лазарусе? Всем спасибо!
Необходимо реализовать заливку фигур на канве
Здравствуйте, нужна помощь с заливкой фигуры на канве.
Если более подробно, то предположим я нарисовал на канве фигуру зеленым цветом, и мне нужно залить эту фигуру внутри например синим цветом? при...
Тест с вводом ответов пользователем
Добрый вечер.Подскажите пожалуйста. Нужно сделать тест,с вводом ответов, по нажатию на кнопку проверки должно выводится либо ответ правильный либо нет. Выдает ошибку в коде:
Var
N:integer;
begin...
Изменение цвета Label при наведении на него курсора мыши. Как это сделать?
Изменение цвета Label при наведении на него курсора мыши. Как это сделать? Какое свойство надо поменять?
Отгадать целое число, которое "загадал" компьютер в определенном диапазоне
Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.
Описание переменных:
a – число, "загаданное" компьютером;
b – очередное число, вводимое пользователем.
Алгоритм...
Вставить на форму анимацию в формате gif
Доброго времени суток. Помогите пожалуйста. Нужно в Lazarus на форму вставить анимацию. Анимация в формате gif. Но у меня этот формат не поддерживает. Как решить поставленую задачу. Зарание всем...
Известна диагональ квадрата d. Вычислить площадь S и периметр P квадрата
Известна диагональ квадрата d. Вычислить площадь S и периметр P квадрата.
Создание списка и сортировка списка
Добрый день, понимаю, что в последнее время от меня многовато тем, но конец семестра, так что надеюсь, что это простительно. Требуется создать программу, которая бы создавала список с нужным...
Активация кнопки
всем здравствуйте, передо мной поставленна задача такая: нужно, что бы при заполнении lableedit активировалась кнопка, изначально она неактивна, при чем, допустим в lableedit1 должны быть только...
Функция Length неправильно определяет длину строки в кириллице
Использую функцию length для определения количества символов, при английской раскладке клавиатуры выдает правильный результат, но при русской не верно (за один символ принимает как два). В чем...
Русские буквы на DBGrid
Доброго времени суток! Хотел Лазарус изучить немного написал маленькую тестовую программу база данных Access
Все подключается но на место русских буков выходит вопросительные знаки. Как можно...
Заданы два катета прямоугольного треугольника Найти гипотенузу и углы треугольника
Разработать программу в среде программирования Lazarus. Для задачи создать интерфейс, соответствующий условию.
Заданы два катета прямоугольного треугольника. Найти гипотенузу и углы треугольника
TMemo и размер шрифта
Хотелось-бы знать: существует на настоящий момент что-либо, позволяющее менять в TMemo размер шрифта.
Заранее благодарен за ответ.
Работа с текстовыми файлами в Lazarus
Всем привет! Я начинающий программист, и поэтому знаю немного. А нужно открыть файл и сравнить каждую строку из него со строкой из эдита. Проблема в том, что в файле русский текст, а как я понял...
Динамическое подключение DLL
Здравствуйте.
Проблема такова: надо написать функцию, принимающую на вход имя библиотеки и имя функции, а на выходе выдающую результат этой функции. Я пробовал искать, нашел вот здесь и вот здесь....
Ошибка при компиляции в Lazarus 0.9.29
Под Ubuntu установлен Lazarus 0.9.29 + FPC 2.4.0 (ставился без проблем).
Lazarus создает пустой проект в виде:
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF...
Выбрать случайную букву русского алфавита
Если ли команда чтобы выбиралась рандомом любоя буква алфавита русского?
Как перейти на новую строку в Caption?
Label1.Caption присваиваем переменную типа string и если строчка содержит больше 20 символов, то в Caption записать на новую строчку.
Разделить строку на массив
Здравствуйте!
Начал изучать Лазарус, и столкнулся вот с такой проблемой:
У меня есть строка (допустим, записанная в переменную "row") содержащая несколько слов, разделённые пробелом. Как эти слова...
При нажатии кнопки содержимое файла считать в Memo
Дано: объект Memo, кнопка, текстовый файл в кодировке ASCII (можно UTF-8). Нужно запрограмировать кнопку, чтобы при нажатие содержимое из файла читалось в Memo. Я зделал двумя путями:
procedure...
Построение простого графика
может кто просветит ,как построить линейную функцию с помощью 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.Дана строка. Найти количество вхождений букв А.
Есть решение первой задачи на Паскале:...
Имя файла без полного пути
Вот такая беда
procedure TForm1.MenuItem5Click(Sender: TObject);//загрузить схему в проект
var
//PixF: TPixelFormat;
x,y: integer;
filename:string;
begin
...