Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
15th
Июл
Как добавить элемент в динамический массив?
Никак не могу найти в VBA встроенную функцию, добавляющую элемент в конец динамического массива.
(аналог array_push() или Arr[] в PHP или push() в Perl)
также не получается найти встроенную функцию сортировки массивов (аналог sort() в PHP и Perl)
Допустим, я объявляю динамический массив. Его конечный размер заранее неизвестен.
Dim arr() As String
Redim arr(1)
затем, мне надо в цикле просмотреть все строки одной таблицы («Лист1»), на каждой итерации просмотреть колонку второй таблицы («Лист2») и, если интересующие вхождения будут найдены, добавить новые элементы из ячеек «Лист1» в конец массива arr(), а по выходу из цикла, отсортировать этот массив arr() по алфавиту.
Моя конструкция
arr(UBound(arr) + 1) = tb.Cells(j, "C").Value
не срабатывает, ругается, что «Subscript out of range»
Если не трудно, подскажите, как решаются такие задачи в VBA!
15th
Фильтрация по мере того как вводишь в combobox текст, чтобы предлагались только те результаты, которые соответствуют вводу
Идея следующая — есть таблица и связанная с ней форма. В форме combobox (данные берет из таблицы). Необходима фильтрация по мере того как вводишь в combobox текст, чтобы предлагались только те результаты, которые соответствуют вводу. В силу того что я только начинаю осваивать данный предмет (ACCESS), для меня эта задача без помощи, неподъемная. Нужен пример, ибо только описание решения не поможет…
15th
ASCII прорисовка. Танчик при помощи псевдографики с поворотами влева и вправа по 45 градусов
кто подскажет хочу сделать танчик при помощи псевдографики
получается вроде не плохо но очень отличаются расстояния между символами горизонтальные и вертикальные.
получается как то так
а хочется
или
кто подскажет как рисовать такими квадратиками, (код и кодировку и как ее переключить)
и что бы размер по вертикали и горизонтали
15th
Использование GDI+ в делфи 7. Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp
Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp. Скачал архив с GDI+, распаковал и положил 6 файлов (DirectDraw.dcu, GDIPAPI.dcu, GDIPUTIL.dcu, GDIPOBJ.dcu, DirectX, Jedi) в каталог Lib, где стоит делфи. Потом когда я получил ошибку — скопировал эти же файлы и в проект (на всякий случай), но не помогло. Пишу код:
uses
Windows, ... jpeg, pngimage, GifImage,
GDIPAPI, GDIPOBJ, GDIPUTIL;
procedure TForm1.Button3Click(Sender: TObject);
var
encoderClsid: TGUID;
Image: TGPImage;
begin
Edit1.Text:=StringReplace(Edit1.Text,ExtractFileExt(Edit1.Text),'',[]);
if ExtractFileExt(Edit1.Text)='.jpg' then
Image := TGPImage.Create(Edit1.Text+'.jpg');
GetEncoderClsid('image/bmp', encoderClsid);
image.Save(Edit1.Text+'.bmp', encoderClsid, nil);
image.Free;
Image2.Picture.LoadFromFile(Edit1.Text+'.bmp');
end;
При запуске сначала появляется такое предупреждение
[Предупреждение] Unit1.pas(98): Variable ‘Image’ might not have been initialized
А затем вылазеет ошибка вот в таком окне:
—————————
Debugger Exception Notification
—————————
Проект Capcha.exe вызвал исключение класса EAccessViolation с сообщением ‘Access violation at address 7C80980F in module
‘kernel32.dll’. Write of address CED6E8D3′. Процесс остановлен. Используйте Шаг или Запуск для продолжения.
—————————
OK Help
—————————
Жму ОК, выскакивает окно:
Исходник не найден GDIPOBJ.pas
Путь к файлу: GDIPOBJ.pas
Да, действительно файла GDIPOBJ.pas нет ни в папке с проектом, ни в папке Lib где стоит делфи. В то время как GDIPOBJ.dcu есть в обоих папках. Сам не знаю что думать: то ли делфи не создал GDIPOBJ.pas, то ли этот файл должен был войти в состав скачиваемого GDI+.
15th
Алгоритм точного поворота растрового изображения
Из спортивного интереса решил написать алгоритм для прецизионного поворота растрового изображения на произвольный угол относительно произвольной точки поворота. Но боюсь, что изобретаю велосипед…
Много видел сообщений о то, что такой алгоритм будет очень медленный и громоздкий, но самого алгоритма никто показать не может. Может здесь кто-нибудь встречал такой алгоритм?
15th
Подстановка данных сразу из 4 таблиц в одну в С++ Builder 6
Имеется:
1. База данных преподавателей и студентов в MS SQL Server 2005
2. В ней находится 5 таблиц: Факультеты, Группы, Преподаватели, Предметы и Основная.
3. Поля в первых 4 таблицах соответствуют их названиям (не считая целочисленные ключевые поля-идентификаторы). В них просто перечислены все группы, все преподаватели, все предметы и все факультеты
4. Последняя таблица состоит из 4 полей с теми же именами
Задача:
При введении данных в поля Основной таблицы необходимо обеспечить подстановку из таблиц Факультеты, Группы, Преподаватели и Предметы в соответствующие поля, т.е. чтобы не вводить полностью имя препода, который ведёт один из своих предметов у определённой группы на таком-то факультете, а обеспечить возможность выбора данных из динамически формирующегося списка при, скажем, установке курсора в нужное поле (это вообще было бы идеально), т.е. как в конструкторе — собрать Основную таблицу по деталям из четырёх других.
Поскольку связь в Основной таблице идёт многие ко многим, то, пожалуй, будет надобность создавать промежуточные таблицы
Вопрос:
Существуют ли способы, какие-либо select-запросы или ещё что-то, чтобы это можно было осуществить?
14th
Июл
Получения координат мыши относительно формы без таймера
Извеняюсь если вопрос уже задавался но в гугле 3 страницы просмотрел там либо таймер либо MouseMove собственно вопрос в теме тоесть цель необходимо получить координаты курсора мыши относительно формы не используя таймера
А MouseMove не подходит так как у меня форма в основном на ней динамические объекты а цель получения координат мыши необходимо для отслежки в каких координатах нужно расположить динамические лейблы узнать этого нельзя так как имаджи на которых нужно разместить лэйблы размещаются динамически тоесть програмным путем темболее через массив
Вот скрин
Пока нумерация сделана через фотошоп но мне охото сделать програмно темболее она будет тогда качественее и даст пару возможностей.
14th
Работа с pdf в Cairo. Какая функция создает, какая начинает вторую страницу pdf?
Помогите разобраться с выводом графики в pdf. Английский не знаю. Очень трудно читать буржуйские мануалы, 3 день парюсь.
Самый важный вопрос:
Какая функция начинает вторую страницу pdf???
Менее важные:
Как допустим открыть pdf и не удаляя его, продолжить на нем рисовать??
14th
Текстовый редактор на Perl
Написал редактор, но с ошибкой, которую найти не могу, он считывает все текстовые файлы, но если там есть пустая строка, то он останавливается.
27th
Июн
Макросом выписать из таблицы строки по определённому признаку
Пытаюсь макросом выписать из таблицы строки по определённому признаку. в процедуру передаю параметр «U», по которому производится отбор. Вторая таблица изначально пустая. Не получается добавить строку и заполнить её данными. И ещё: Параметр «U» Не уникален.
Уникальная строка получается только в сочетании с другим параметром.
Как лучше организовать поиск? Или при первом нахождении просто проверить второй параметр? и сделать FindNext
Set rst = dbs.OpenRecordset("*****")
rst.FindFirst "ИНомер ='" & U & " '"
Set rstN = dbs.OpenRecordset("*******")
rstN.FindFirst "ИНомер ='" & U & " '"
If rstN.NoMatch Then
rstN.AddNew
For R = 0 To 4 ' эти поля являются ключевыми
rstN(R) = rst(R)
Next R
rstN(5) = 1
rstN(6) = "30.11.2011"
rstN(7) = "30:21:12542/lk:200"
rstN.Update ' на этой строке ругается
Else
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)