
Последние записи
- PostgreSQL — чтение файла
- Обязательное прикрепление изображений
- Игра «Крестики-Нолики» на чистом HTML (без скриптов)
- Динамическое создание массива TScrollBar
- Как разместить форму в панель задач?
- CMD скрипт, запустить из memo
- Как проверить работу сессий на PHP
- Как узнать дату окончания сертификата
- Как передать значение во внешний JS-скрипт?
- Определить количество знаков после запятой

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
18th
Янв
Компонент ShortPathEdit в lazarus
В lazaruse на вкладке LazControl есть компонента ShortPathEdit с полем ввода и кнопкой выбора каталога. Не могу понять как работать с кнопкой. После выбора через диалог каталога заполняется атрибут Directory, но само поле ввода остается пустым. Подскажите какое событие ловить по окончанию выбора директории? Или это нужно как-то по другому реализовывать?
30th
Ноя
О сколько нам открытий чудных.. или о делении на 0 в Delphi без ошибки и в Lazaus с ошибкой
Давно уже пишу на Delphi, но до сих пор бывают открытия.
Код
var a,b:Word; // или Integer
begin
b:=0;
a:=1 div b;
// ........
нормально прокатывает в Delphi , а в Lazaus при запуске — аварийный выход, .. класс исключения «External: SIGFPE»
Правда, если в Delphi добавить после деления
Memo1.Lines.Add(IntToStr(a));
тоже будет ошибка при запуске.
В чем там разница? Пробовал {$Q+} или {$Q-} — ничего не меняется.
18th
Авг
Русские буквы в Консольном приложении Lazarus
Оператор
Writeln(‘Русские буквы’);
печатает абракадабру вместо русских букв в Простой программе или в Консольном приложении в Lazarus 2.02.12.
Как исправить?
4th
Фев
Выгрузка TImage в Excel
На форме есть TImage с изображением. Пытаюсь вставить в Excel: копирую изображение из TImage в буфер обмена. Затем вставляю в Excel с помощью команды PasteSpecial. В итоге на PasteSpecial все время возникает исключение EOleException с текстом:
Метод PasteSpecial из класса Worksheet завершен неверно.
procedure TfmMain.TestBtnClick(Sender: TObject);
var Img: TImage;
xla: Variant;
xls: Variant;
begin
Img:=TImage.Create(nil);
xla := CreateOleObject('Excel.Application');
xla.Workbooks.Add;
xls := xla.Workbooks[1].WorkSheets[1];
xls.Name := 'Sheet1';
xla.Visible:=True;
Clipboard.Assign(Img.Picture);
xla.Cells(5,5).Select;
xls.PasteSpecial(5,False,False,False,0,EmptyParam,EmptyParam);
Img.Free;
end;
Версия Lazarus: 1.6.4
Версия FPC: 3.0.4
Я думаю, что все дело в том, что неправильно передаются параметры в PasteSpecial. Если у кого-нибудь есть рабочий вариант, поделитесь пожалуйста.
Облако меток
реестр css timer ассемблер SaveToFile ShellExecute массив советы word программы random pos SQL MySQL ListView дата компоненты form LoadFromFile база данных сеть RichEdit html php indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет excel Microsoft Office Excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)