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

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

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

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

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

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

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

FlowPanel: доступ к элементам
Добрый день Имеется FlowPanel, в которую программно добавляются другие TPanel. Каждая добавляемая TPanel имеет в своем составе TLabel, TImage, TButton. Как получить доступ к элементам TLabel,...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

9-битный обмен через последовательный порт
Столкнулся с устройством, обмен с которым производится по протоколу, использующему 9 бит данных. Компонент TComPort предоставляет возможность добавлять 9-й бит (свойство Parity.Bits:=prMark или...

Разделение окна кода на две части в Lazarus
Доброго времени суток. Как разделить окно с кодом на две горизонтальные части в Lazarus (в микрософт ворде потянул за полоску над скролом - окно и разделилось на две части)? Lazarus самый...

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

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

Процедура FormCreate работает по разному в разных проектах
В одном проекте это работает со всеми вытекающими procedure TForm1.FormCreate(Sender: TObject); var i,j:integer; begin StaticObject :=0;//число объектов для загрузки DinamicObject...

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

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

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

Вложенный PageControl не переключается мышкой
Ubuntu 14 x64, Lazarus IDE 3.4 Минимальный тестовый пример: PageControl1 с двумя TabSheet, на первом из которых лежит GhoupBox1, на котором лежит PageControl2 с двумя TabSheet, на первом из которых...

Сохранение отчёта в JPG
Приветствую Есть необходимость сохранить отчёт в формат JPG. В документации LazReport есть описание, как это сделать на примере HTML. Пакет lr_extexp.lpk добавил, модуль TfrImageExport на форму...

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

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

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

Зачем для Lazarus 4.2 нужен Qt?
На сайте https://forum.lazarus.freepascal.org/index.php/topic,71826.0.html указаны минимальные требования для установки Lazarus 4.2 в ОС Windows: "2k, 32 или 64 бит, Qt, Qt5, Qt6 (только 64 бит)"....

Динамический вызов dll
Пытаюсь реализовать динамический вызов dll, но он не может найти модуль. Что C латинская - проверил, а других идей что-то нет. procedure TProForm.ToolButton7Click(Sender: TObject); var h:THandle;...

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

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

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

Скрол для изображения в TPaintBox
Такой вопрос - как это реализовать? Поиск по разделу результатов не принёс. Ответ от LM выглядит слишком сложным, а рисование - не цель, а промежуточное средство. Или оставить как есть, или найти...

Как подключить к проекту драйвер базы данных SQLite3 Multiple Ciphers?
Здравствуйте. Прошу помочь подключить к проекту драйвер базы данных SQLite3 Multiple Ciphers. Использую Windows 11 x64, Lazarus 4.2 x64, драйвер sqlite3mc-2.0.3-sqlite-3.49.0-icu-win64. В архиве в...

Работа с типами памяти ЭВМ программой, выполняемой на FPC
ТЗ такое. Допустим программа осуществляет симуляцию газообразной или жидкой среды, взаимодействующей с твердотельными объектами. Любой момент, когда на любые инерционные процессы газа, жидкости, в...

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

Первый элемент массива подчеркивается при компиляции в Лазарусе
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):...

Визуальный компонент фильтрации
Добрый день. Есть ли в Lazarus графический элемент аналогичный элементру фильтра как на скрине? То есть поле edit в правой части которого находится кнопка очистки поля от текста. И курсор при наборе...

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

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

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

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

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

OpenFolderDialog. Выбор папки на удалённой машине, как организовать?
Приветствую, суть задачи такая: подключаюсь по ssh к удаленной машине(удаленная машинка на Linux-е) и хочу сделать, чтобы юзер в визуальном режиме на этой машине мог выбрать какую-либо папку,...

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

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

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

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

Объединение отрезков
Есть массив с "Полем", где расположены отрезки и координатами отрезков (начало и конец). (смотри желтую таблицу). Некоторые отрезки в рамках одного поля можно объединить в более длинные отрезки, и...

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

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

Смотреть из программы свойства файла (время создания)
Это будет нечто вроде проигрывателя физической симуляции (создаётся чисто для отладки и анализа работы симулятора), задача - вычислить по дате (системному времени) создания файла и вывести на форму...

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

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

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

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

Видимость TTreeView с начала после скрытия узлов
Проблема в следующем - на форме создаётся дерево, затем производится поиск текста. Те узлы, в которых есть заданный текст выделяются .Selected:=True Затем я хочу скрыть те узлы, в которых текст не...

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

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

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

Toolbar расположить кнопки на нём справа
Приветствую, экспресс-вопрос, как сделать так, чтобы кнопки на тулбаре прижимались к правому краю, а не к левому (как по умолчанию)? Чёт не въеду, или тулбар такого не поддерживает (

Кросскомпиляция в Lazarus-4.0
В версии 3.8 были файлы для кросскомпиляции (lazarus-3.8-fpc-3.2.2-cross-i386-win32-win64.exe и lazarus-3.8-fpc-3.2.2-cross-x86_64-win64-win32.exe). Не могу их найти для новой версии. Либо я плохо...

Анимированная картинка в TBitBtn
Есть ли возможность, чтобы картинка в TBitBtn была анимированной? Сразу скажу, в лоб проверял, при присвоении свойству Glyph gif-файла, картинка при выполнении всё равно статическая.

Добавить bgrabitmappack.lpk с помощью lazbuild
Добрый день. Как правильно добавить пакет в Lazarus с помощью lazbuild? (на примере bgrabitmappack.lpk) У меня стоит задача собрать rpm пакет в сборочной "песочнице" на удаленном сервере....

Lazarus после пересборки не запускается
Возможно вопрос не по "Lazarus". После установки пакетов "BGRABitmap" и "BGLControls" Lazarus компилируется, пересобирается, но не запускается. Сообщения системы : ... система не...

Видимость переменных
Знаю что уже это было у меня, но теперь снова. Это беда. Решил отлаживать симулятор вообще на канве, так как LM составила код чтобы мышкой делать вершины актуаторами и устанавливать на актуаторы...

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

Lazarus понимает dfm?
Конвертировал проект из Delphi в Lazarus, один, самый большой модуль не сконвертировался. Я, по-моему, уже обсуждал эту проблему здесь. Но, как оказалось, для форм это и не требуется. Проект...

Как подключить sqlite к Lazarus?
Как подключить sqlite3 к Lazarus 3.0.

Отображение Alpha канала (прозрачности) при использовании формата изображения webp
Приветствую всех. В приложении требуется отображать изображения в формате webp. На форуме нашёл рабочий пример: unit Unit1; {$mode objfpc}{$H+} interface

Как добавить фильтрацию в TMemDataset ?
Приветствую, делаю утилитку для просмотра файлов логов, читаю файл и гружу данные в TMemeDataSet, и вывожу их в DBGrid. Всё грузится, отображает, но теперь нужно добавить фильтрацию данных. Как я...

Отслеживание работы компьютера
Здравствуйте. ОС: REDOS MUROM (7.3.6) 64-разрядный + Mate (1.28.1) Среда разработки: Lazarus (3.6) Разрабатываю приложение, одна из функций которого наблюдать когда за компьютером работают и...

Вывод элемента массива
Массив введен в процедуру ////////////////////////////////////////////////////////////////////////////////////////////////////// procedure TForm2.massivsp;// процедура создание массива и...

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

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

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

Как удалить все строки из компонента Мemo?
Я делаю так var r:integer; begin r:=0; while Form9.Memo1.Lines<>'' do ...

Предварительный просмотр канвы Компонента image перед печатью на принтере
Здравствуйте Уважаемые форумчане. Написал процедуру для вывода канвы компонента image на принтер , но виртуальная канва принтера на экране не отображается. Как отобразить виртуальную канву принтера...

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

Декомпиляция
Такая проблема - снова понадобился старый проект. Задал вопрос ИИ как написать к радектору текстовому плагин - тот ответил что в таком плагине уже нет необходимости, так как всё уже встроено в...

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

Доступ к процедурам другого модуля
Первый модуль включает (в uses) второй модуль, поэтому во второй нельзя включать первый, и вызвать во втором процедуры первого не получается: "not found" (включая сам unit1 - not found). Найденные...

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

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

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

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

Как создать 5-ть массивов слов?
Как создать 5-ть массивов слов, нажимается клавиша на форме, запускается цикл, в цикле случайно выбирается массив и затем случайно выбирается и выводится слово после выбора слово из массива...

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

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

Разделение на слова
Есть ли в Lazarus или Delphi функция, разделяющая текстовую строку на отдельные слова, разделённые пробелами, учитывая то, что пробел может быть не один? Пример: Строка: Я ухожу. Выход: Я...

Не происходит обработка Exception по EAccessViolation
При втором обращении, по идее, тут должен осуществиться переход на блок except, но этого не происходит. Вместо этого - системное сообщение. procedure ClosePQDb(nb:integer=0); var serr:string;...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как перейти с одной формы на другую?
Помогите кто знает как из одной формы в другую перейти??? Два раза кликаю по кнопке 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 Делал, делал калькулятор, а тут вот такое, а главное раньше всё...

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

Учёт кодировки
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...

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

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

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

Как исправить 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+}

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

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

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

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

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

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

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

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

Ошибка: 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. Как исправить?

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

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

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

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

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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Массивы в 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.. За период обучения появились некоторые проблемы. Вообщем суть программы: В задаче надо считывать из файла текст, и записать...

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

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

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

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

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

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

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

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

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

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

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

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

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

Перевод чисел в различные системы счисления
Написать программу в 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, но столкнулся с непонятной проблемой! Когда я пытаюсь заполнить множество, он говорит мне что во множество можно положить только перечисляемый...

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

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

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

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

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

Где описываются глобальные переменные?
Подскажите,где в 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,...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Работа с текстовыми файлами в 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...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка Невозможно найти модуль (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 пакета...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Вывод в 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 <=...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Преобразование пакета 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:...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Программа вычисления объема куба 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 Помогите пожалуйста от этого...

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

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

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

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

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

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

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

Ошибка: 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); ...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка в 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);...

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

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

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

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

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

Ошибка: 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка 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, используемый в...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как исправить "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; //для сбора результатов деления ...

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

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

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

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

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

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

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

Ошибка синтаксиса, ожидается ";" но "." найдено
Программа: 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');

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Открытие PDF файла через нажатие кнопки
Как открыть PDF файл в среде Lazarus стандартными средствами Windows (у меня по умолчанию Chrome, это не важно), на событие нажатия кнопки, сам пдфник находиться в одной папке с исполняемым файлом,...

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

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

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

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

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

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

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

Ошибка Access Violation
Добрый день! Впервые что-то пишу на форуме)) делаю программу - обработчик данных. Для оформления использую компоненты Bevel, на нескольких фреймах сразу. В один момент программа выдала Access...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как в lazarus передать программе нажатие кнопок без использования WinAPI?
Нужно передать программе нажатие кнопок на клаве, например Alt+Ctrl+Home.

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

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

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

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

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

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

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

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

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

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

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

Ошибка "can not load MySQL library(libmysql.dll or libmysql.dll) Check your installation"
Здравствуйте, глубокоуважаемые профи, Ситуация такая, есть локальная сеть(около 400 машин), на локальном сервер с платформой windows server 2012 расположилась База данных Mysql 5.0 и lazarus...

Как в Lazarus создать диаграмму используя TChart с информацией из базы Firebird?
Я так понял что для этого необходим еще один компонент: DBChartSource1. В качестве теста я связал их вместе, настроил связь с базой(там всего 2 поля, типа integer), обычный график линейного типа...

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

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

Установка ZEOS в Lazarus, работа с PostgressSQL в Lazarus
Не получается никак установить компонент ZEOS в Lazarus открываю пакет с Zeos, нажимаю компилировать, потом установить в течение некоторого времени этот процесс происходит, потом появляется...

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

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

Чем вызвана ошибка GDB-отладчика
Подключаю модуль Printers (соответствующие пакеты установлены), устанавливаю на форму TButton и PrintSetupDialog, В обработчике кнопки пишу код: if PrinterSetupDialog1.Execute then Exit; Запускаю...

Подписи к значениям TChart по оси Х
Проблема заключается в том, что подписи все одинаковые. Знаю что код не правильный, но как сделать, чтобы подписи брались из столбца таблицы (StringGrid) по очереди и прописывались тоже так же?...

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

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

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

Установка компонента TComPort
Скачал компонент TComPort для работы с ком-портом (качал с соусфоржа), а он не усланвливается, в смысле не компилируется. Ругается на uses libc, KernelIoCtl; в модуле CPort. Кто-нибудь сталкивался...

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

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

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

Удалить линию, нарисованную на Canvas
Можно-ли после отрисовки линии через (Form.CanvasLineTo) удалить её?

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

"Тест": Ошибка "Identifier idents no member"
Нужно сделать этот тест, но при попытке компиляции выдаёт ошибку "Identifier idents no member "Label1" и "Identifier idents no member "Label2" в unit3, ссылаясь на unit4, хотя во втором оба Label...

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

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

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

Кириллица ANSI в тексте TMemo
Здравия всем! Почему-то кракозябры, хотя фонт Verdana, чарсет RUSSIAN_CHARSET, а Нотпад++ определяет кодировку файла как ANSI Memo1.Lines.LoadFromFile(FName); фонт менял на консольный,...

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

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

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

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

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

Изменение размеров StringGrid
Доброго времени суток. Пользователь вводить кол-во строк и столбцов StringGrid'a with StringGrid1 do begin RowCount:= strtoint(edit1.text); Height:= 37*RowCount; ...

Неправильное отображение русских символов
Есть программа в которой выводится список установленных программ и обновлений. Русские символы отображаются знаком вопроса. MyRegistry:=TRegistry.Create; MyList:=TStringList.Create; ...

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

Два окна
Есть 2 окна. Одно, главное, вызывает второе. Делаю я это так if listbox1.Items.Count<>0 then if (not Assigned(Form2)) then begin Form2:=TForm2.Create(Self); Form2.ShowModal; end; ...

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

DBGrid как сделать SelectedRows
DBGrid с включённым multiline. При открытии формы передаю фокус гриду DBGrid.SetFocus; После этого var fio_s : string; i : integer; ... with DBGrid.SelectedRows do

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

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

Переход с Delphi на Lazarus. Совместимость и интерфейс?
Ребят, звиняйте если не в тему, но нет офтопиков на форуме, для подобных вопросов. Решил написать пару мелких программ для себя, так как готовых не нашёл. 10 лет назад немного кодил на d6-2005,...

Печать отчетов
Добрый день, посоветуйте компонет плииз! Full-Free! Печать А4 таблиц с предварительным просмотром. В идеале (не обязательное) с возможностью задать "кликабельные зоны" - в ячейке готовой к...

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

Сохранить файл через SaveDialog
При открытии файла Memo вылазит ошибка , также и при сохранении "Unable to open file" procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then ...

Загрузка базы из текстового файла в StringGrid с возможностью выбора
Имеется вот такая программа в которой есть StringGrid со столбцами «буквы» и «цифры». В папке с программой в папке db есть файл текстовой базы db.txt, он имеет такую же структуру — столбец «буквы» и...

Устранение эффекта мерцания при анимации
Здравствуйте! Разбираюсь с анимацией в Lazarus. Сделал простенький пример (прикреплён) - движение объекта по неоднородному фону, но он мне не нравиться из возникающего мерцания. Вот здесь Ссылка...

INI файл
добавить в меню (раздел Файл) список недавно открываемых файлов. Использовать вспомогательный инициализационный файл для хранения списка.При выборе команды меню Загрузить последние высвечивается...

Игра "Snake" - аварийное завершение при достижении границ экрана
Проблема в том, что блоки (препятствия) и яблоки (лягушки) спаунятся на самой змейке, а порой и пропадают. Так же, почему-то после добавления препятствий, если не собирать яблоки, а сразу влететь в...

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

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

Генерировать случайные числа Х
Помагите пожалуйста решить задачку в Lazarus и если можно нарисовать все это в Form1. Генерировать случайные числа Х , распределенные в диапазоне от -1до 6 и вычислять для чисел >0 √х ,а для...

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

Строку в array
Добрый день, подскажите технологию плииз! Есть строка вида "фыва"+#13+"фыва"+#13+"фыва"+#13+"фыва" Надо получить array для передачи в параметре функции вида: my(ParamCount: Integer; const...

Сортировка русских строк по алфавиту
Здравствуйте. Написал сортировку массива структур по полю City(город). for i:=1 to n-1 do for j:=1 to n-i do if a.city > a.city then begin s := a; ...

Ввести число в экспоненциальной форме, через edit
Как ввести число в экспоненциальной форме, через edit?

Как задать много условий для if?
вот код не могу понять как? procedure TForm1.Button1Click(Sender: TObject); begin if ComboBox1.ItemIndex>=1 and ComboBox2.ItemIndex>=1 and ComboBox3.ItemIndex>=1 and...

Импорт из XML
Добрый день! Возникла необходимость реализовать импорт из xml файла. Экспорт то с горем пополам сделал, а вот обратный процесс хоть убей не знаю как реализовать... Структура xml файла Может...

Dateedit и timeedit
Добрый день, возник такой вопрос. Какое необходимо выбрать событие и что записать в него, чтобы в dateedit можно было без календаря вносить дату без лишних символов типа букв, а также в timeedit...

Создать Часы
Создать вот такой проект "часы"

''Проект project1 вызвал класс исключения 'External SIGSEGV''
Компиляция проходит успешно,потом выдает ошибку в строке 105'Проект project1 вызвал класс исключения 'External SIGSEGV'' unit objs; {$mode objfpc}{$H+} interface

Проект project1 вызвал класс исключения 'External: SIGSEGV'
В файле 'tacustomseries.pas' на строке 809 без строки Chart1.ClearSeries ошибки не возникает. как очистить Chart и избежать ошибки? unit Unit1; {$mode objfpc}{$H+} interface

Нужен Календарь, сделанный в Лазарусе
Может кто кинуть календарь сделанный в Lazarus?

Найти минимальное и максимальное числа в введенном массиве. Отладка кода
создать программу, которая находит минимальное и максимальное числа в введенном массиве Помогите отладить код unit Unit1; {$mode objfpc}{$H+} interface uses

Длина строки при объявлении записи
Здравствуйте. Подскажите новичку как правильно исправить ошибку. Учусь работать с записями и файлами. Выскакивает такая ошибка: unit1.pas(38,22) Error: Typed files cannot contain reference-counted...

Canvas ничего не рисует (Lazarus IDE 1.8)
Проблема следующая Препод задал написать программу, строящую график, в Lazarus Я написал в Delphi 5, она работала достаточно неплохо Меня настойчиво попросили переделать ее под Lazarus, дабы можно...

Очистка компонента TChart
Доброго времени суток, форумчане! Ситуация такая: есть текстовый файл с набором координат точек, который считывается в StringGrid. Оттуда строится график в Chart'e. Возникла проблема: как очистить...

Решение лабораторных работ по учебнику Павловской
Здравствуйте! Прошу помощи у форумчан. Надо сделать пару лабораторных по программированию. Быть может кто-то занимался по-этому учебнику и ему не составит труда помочь в решение задач. Учебник:...

Формула площади поперечного сечения шарового крана
Доброго времени суток! Возможно, оффтоп, но гугл не помог, поэтому интересуюсь здесь. Необходима формула площади поперечного сечения неполностью закрытого/открытого шарового крана в зависимости от...

Объединение событий нескольких кнопок
Есть несколько SpeedButton'ов,выполняющих практически одно и то же. Как создать событие,заменяющее все остальные?

Проверка на латиницу и кириллицу
Добрый вечер. Есть стандартное поле ввода (TEdit) и TLabel, в Caption которого выводиться результат. Нужно осуществить проверку языка строки, которую ввел пользователь. То есть, если строка на...

Найти все числа, лежащие в интервале от 1 до 1000, у которых 5 делителей
Найти все числа, лежащие в интервале от 1 до 1000, у которых 5 делителей. (Подсказка: оператор a mod b дает остаток от деления числа a на число b).

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

Как сделать так, чтобы при нажатии на кнопку надпись (label) выводилась на экран, а после повторного нажатия исчезала?
Как сделать так чтобы при нажатии на кнопку надпись (label) выводилась на экран, а после повторного нажатия исчезала. И потом при третьем снова появлялась , при четвёртом снова исчезала. ПОЖАЛУЙСТА,...

Из файла .exe восстановить файл .lpi
Я случайно удалил файл, где прописывал все процедуры. Но файл приложение .exe остался и запускается нормально. Как из этого .exe файла восстановить .lpi?

массив, размеры и прочее
сразу столкнулся с проблемами, точнее рядом непоняток, проблем пока нет, но завтра-послезавтра уже будут. первая непонятка: в массиве spisok есть одна запись, через SetLength(spisok,pozmassiv+1);...

Скорость лодки в стоячей воде
Скорость лодки в стоячей воде V км/ч, скорость течения реки Uкм/ч (U<V). Расстояние между двумя пристанями равно Sкм. Лодка прошла это расстояние сначала против течения, а потом вернулась в исходную...

Не рисует график по точкам в TChart
В свойствах LineSeries1 выставлен цвет синий, ShowPoint - true, for i:=0 to s-1 do begin Chart1LineSeries1.AddXY(s,speed); // Chart1LineSeries1.AddXY(s+10,speed); end; не...

Вывести все целые числа, расположенные между двумя заданными числами, в порядке их возрастания
1. Даны два целых числа A и B(A<B).Вывести все целые числа, расположенные между даными числами(включая сами эти числа), в порядке их возрастания, а также количество N этих чисел. 2. Дано...

Из Edit в Label
Всем привет! Мне необходимо в поле Edit ввести имя, и при нажатии Enter должно появляться надпись "Имя, ты любишь читать?" Я уже все перепробовала, но при нажатии на Enter имя в поле просто...

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

Допополнительные компоненты для Lazarus
Конкретно для Lazarus'а существует что-то типо вордовского поля? Как memo, только в более "продвинутой" комплектации... Поле, которое поддерживает встраивание картинок в текст, листы, таблицы, и...

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

Работа с компонентом StringGrid
Всем здравствуйте. Поместил на форму компонент StringList, в designtime установил 7x7 квадратных ячеек, без фиксированных строк и столбцов, в редакторе компонента внёс в ячейки текст по одному...

Исполняемый файл на Linux
Всем привет! Я в этом деле полный профан, т.к. никогда не работал в Lazarus под Linux. Но у меня стоит задача узнать, есть ли в Lazarus под Linux исполняемый фаил и как его сделать для запуска на...

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

TObjectList и его метод Sort
Привет. Может кто-то подскажет как правильно юзать метод sort? function Compare(Item1, Item2: Pointer): Integer; begin if TMemBlock(Item1).Start < TMemBlock(Item2).Start then Result :=...

Ошибка stream read error
Подскажите, что делаю не так. БД Firebird есть поле типа Blob Binary. В него загружаю фото сотрудников. На форму выводится фото через компонент TDBImage. При открытии проекта появляется ошибка...

Ассемблер в Lazarus
Ghbdtn! :) Сижу развлекаюсь, ковыряю Lazarus. Дошло дело до ассемблера. И сразу ступор. Код: begin {$ASMMODE intel} asm mov EAX, 3 ror EAX, 1 cmp CF, 1 je .......

Как удалить все обьекты с формы?
У нас есть Form1, на которой размещены две кнопки. Напишите пожалуйста процедуру, которая удалит все обьекты с формы(очистит форму полностью). Заранее спасибо!

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

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

Чем отличаются дистрибутивы Lazarus?
Хотел скачать Lazarus/FPC для изучения синтаксиса Pascal, а в будущем, если быстро пойму, может быть, чтобы сделать какую нибудь программу в нем. На sourceforge.net По пути Lazarus Windows 32...

Json Lazarus
Есть .Json файл, сохранней на жестком диске. Как с ним взаимодействовать программно? Подключаю jsonparser,fpjson. В перменную jData : TJSONData хотел считать данные с файла, но ...

Метод половинного деления
Здравствуйте,прошу в помощи по предмету "Численные методы" ,нужно запрограммировать метод "Половинного деления" если кто сталкивался напишите...

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

Ошибка: Illegal qualifier
ругается на переменную k в open в чем причина?( если что, это сапер, open - процедура открытия пустых ячеек unit Unit3; {$mode objfpc}{$H+} interface

Работа с файлами в графическом приложении
Здравствуйте. Скачал учебник по Lazarus, всё гуд, графические приложения могу делать и запускать. Только вот как-то неясно там описаны процессы работы с файлами с графического окна. открыть файл,...

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

График изменения вещественного параметра во времени
Всем здравствуйте. Компонент TChart. Не понятно как изменить минимумы и максимумы шкал. Как нижнюю шкалу сделать шкалой времени? Как построить график изменения параметра во времени по точкам?

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

Русские буквы не выводятся
Есть программа по Шифру Атбаш. Если строку и алфавит вставить на английском языке то программа работает правильно и без проблем но если вставить русскую строку и алфавит то вместо результата...

Вывод данных из БД FireBird в виде Excel-отчета
В своей программе добавил возможность создание Excel-отчета, и столкнулся с такой проблемой: когда я выбираю диапазон дат, за который мне нужно сформировать отчет, в результате получаю не полный...

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

Как не допустить изменения размера компонента при изменении DPI?
Всем здравствуйте. Разработка проекта ведётся при нормальном DPI (96). Компонент TStaticText имеет при этом размеры 114x41 пкс. Форма занимает весь рабочий стол без панели задач. Меняем DPI на...

DBGrid перенос слов в ячейках
Здравствуйте! Не могу разобраться, как сделать перенос слов в ячейках DBGrid. Нужно отображать строки по 200 символов. Как я понял, стандартный грид не умеет. Искал пакеты под Лазарус, нашел только...

Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней
Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на...

Движение шара: нужно чтобы шар отталкивался от края формы
procedure TForm1.Timer1Timer(Sender: TObject); var x,y:integer; begin //Координаты шара x:=40; y:=40; //Движение шара shape1.Left:=shape1.Left+x; shape1.Top:=shape1.Top+y;

Просуммировать все неотрицательные элементы одномерного массива, стоящие на четных местах.
Задан одномерный массив А. Просуммировать все неотрицательные элементы, стоящие на четных местах Никак не получается найти сумму, получаются какие-то огромные числа procedure...

Массивы, сумма элементов
я впервые работаю с массивами но у меня проблемы , у меня если я ввожу двух-,трех- значные цифры вместо сумирывания чисел каждая цифра прибаваляется отдельно вот код : procedure...

Рисование графиков в TPaintBox
r=10sin2f x=r*cos(f) y=r*sin(f) x1=ox+Mx*r*cos(f) y1=oy-Mx*r*sin(f) Помогите найти ошибку procedure TForm1.Button1Click(Sender: TObject); var x1, y1, ox, oy, mx, my, i, r, f: integer;

PascalScript в Lasarus
Добрый день. Может ктонибудь детально расказать как работать с PascalScript Собственно что мне необходимо: В отдельном скрипте паскаль запускать процедуры и функции. К примеру скрипт var //Здесь...

Проверка ввода даты в MaskEdit
здравствуйте, скажите, если я ввожу в поле MaskEdit ,например, 11.12.13, то всё работает, а если 11.30.20, то выдаёт ошибку. Можно ли как то сделать проверку ввода даты?

Компиляция из кода - lazarus
Здравствуйте, программисты. Прошу прощения за дебильную задачу, но мне нужна команда компиляции из кода. Например: у меня есть две программы: program1.pas и program2.pas. Program1.pas должна из...

Fatal: Syntax error, ";" expected but "." found
При компиляции вылазит ошибка Fatal: Syntax error, ";" expected but "." found. Вроде всё правильно, но не уверен. unit Unit1; {$mode objfpc}{$H+} interface

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

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

Создание отчета в *.odt
Скажу сразу, я программист не профессионал, скорее - любитель. Пишу редко, по необходимости. Есть задача - нахожу решение, насколько оно правильное, не знаю, главное все работает. Это я написал,...

Error: Incompatible type for arg no. 1: Got "AnsiString", expected "Int64"
Помогите исправить ошибку пожалуйста. Error: Incompatible type for arg no. 1: Got "AnsiString", expected "Int64"

Объект для работы с JSON
помогите работать с JSON-ом Есть щзапись типа record . Надо ее добавлять в JSON -файл в виде массива . Есть JSION-файл , где вместе с другими данными хранится массив записей типа record type Tuser...

Ошибка при очистке Edit
при нажатии на кнопку очистить с кодом procedure TForm5.Button2Click(Sender: TObject); var i:integer; begin edit1.Text:=' ' ; memo1.clear; for i := 0 to ControlCount - 1...

Как изменить размер формы?
Здравствуйте, такой вопрос. Мне нужна команда, с помощью которой можно изменить форму приложения. Можете даже не писать код, просто команду или функцию/процедуру.

Компиляция в .exe
Здравствуйте дорогие форумчане! Задача: Во время работы приложения, при нажатии на кнопку вытащить исходный код(Free Pascal) из текстового файла и скомпелировать в exe файл. Подскажите в каком...

В МАТРИЦЕ найти максимальный среди элементов лежащих ниже побочной диагонали и максимальный среди эл-тов, лежащих выше главной диагонали
В МАТРИЦЕ n-го порядка найти максимальный среди элементов лежащих ниже побочной диагонали и максимальный среди эл-тов, лежащих выше главной диагонали помогите пожалуйста очень нужно!!!

Как скопировать файл
Команда CopyFile('161231m.grf', '161231m.grf.bak', false); не компилируется. Может я не подключил нужный модуль инструкцией uses или в Lazaruse свои команды для копирования, переименования,...

Вертикальный курсор в TChart
Добрый вечер, подскажите пожалуйста как поставить вертикальный курсор в Chart, чтобы рядом с ним отображались координаты по осям XY? Видела, что пишут о событиях onChartAfterDrow и onChartMouseMove,...

Регистрация и авторизация через БД
Всем доброго времени суток!!! Не могу сделать регистрацию и авторизацию пользователей через базу данных ibexpert в lazarus-e. В таблице присутствуют такие поля как:...

Максимальный элемент массива
Здравствуйте, у меня такая задача: "Задано массив целых чисел, A(n) n<=400. Разработать программу, которая находит максимальное среди тех чисел, которые не повторяются.". Подскажите, как найти...

Запрет на получение фокуса в Edit и Combobox
Есть Editы и Comboboxы, как прогпрамно разрешать и запрещать им получение фокуса? Простой Enabled:=false; меняет цвета текста и фона на серый, а мне надо, чтоб текст оставался чёрным, а фон белым, но...

Попадает ли точка в область пересечения 2х графиков (задача)
Задали задачу на программировании. Дали график y=x^2 и y=x^(1/2). Требуется ввести координаты x и y, и программа должна оповестить пользователя "принадлежит" или "не принадлежит" области пересечения...

TChart - подписи по осям
Я добавляю точки через AddXY и хочу, чтобы подписи были с градацией по целым числам (вообще, у меня значения и X, и Y целые). И чтобы не было по 3 одинаковых значения (типа 0 0 0 1 1 1 2 2 2 3 3 3)....

Найти среднее арифметическое каждого столбца
Нужно найти среднее арифметическое каждого столбца вот код: const n = 4; m = 5; var Mat: array of integer; Summa: integer;

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

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

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

Как инициализировать массив нулями при объявлении?
Если это делается автоматически, то зачем компилятор выдаёт предупреждения о том что переменная использована, но не инициализирована. Предупреждение выдаётся при объявлении локального массива. Значит...

Проект вызвал класс исключения External SIGSEGV
Доброго времени суток, пишу программу для работы с классом класс круговое кольцо свойства: внешний и внутренний диаметр операции: - увеличение/уменьшение размера в заданное количество раз -...

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

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

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

Char и String
Здравствуйте. Подскажите, почему в Lazarus результат выражения str:=Char(208)+Char(161); даёт символ 'С' (русская заглавная буква), а в Delphi какие-то кракозябры - 'С'. Str имеет тип...

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

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

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

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

Открытие *txt файла через TOpenDialog
var KIV_Box: TStringList; i: Integer; begin if OpenDialog1.Execute then begin KIV_Box:= TStringList.Create; KIV_Box.LoadFromFile(OpenDialog1.FileName); ... Все компилируется,...

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