В каталоге имеются файлы двух типов:
1. file.html
2. file.html.tmp
Необходимо у всех файлов с «.tmp» удалить это окончание, т.е. найти их и переименовать.

(читать всё…)

Нужно чтобы представление:
Отображало количество арендованных жилых и нежилых объектов недвижимости физическими и юридическими лицами каждый месяц текущего года.

(читать всё…)

Задача такая: по кнопке нужно изменить курсор, курсор я уже заготовил, проблема его поменять на 10 винде. Я пишу setcursor(cur), и по нажатию на заветную кнопень, менее секунды появляется мой курсор и снова ставит обратно как было, объясните почему он так делает?
вот код как я это реализую

procedure TForm1.Button1Click(Sender: TObject);
Var
  Cur: HICON;
begin
  Cur := LoadCursorFromFile(PWideChar(ExtractFilePath(Application.ExeName) +
    '1.cur'));
  SetCursor(Cur);
end;

(читать всё…)

Может ли кто-то помочь с кодом? Знаю что это делается как-то через CopyRect, но как именно равные части получить не соображу.

(читать всё…)

Есть программа и пользователи Windows 10 (не все, зависимости пока не нашел) сталкиваются с множественными ошибками в работе этой программы. Опытным путем выяснилось, что при инструкции записи в базу данных и даже просто отображения текущий даты с помощью «DateToStr(now)» результат получается не совсем ожидаемым. А именно, к примеру: «Пт 12.01.00». Соответственно, при попытке обратного преобразования «StrToDate» возникает ошибка: «Пт 12.01.00 is not a valid date».

Может, кто сталкивался с подобным и знает как можно с этим бороться? Не хотелось бы пилить костыль преобразования строки в нужную дату путем удаления лишних «Пт «, «Чт » и так далее.

(читать всё…)

Для ускорения расчётов в программе, написанной на Delphi XE2 (…XE6), ранее использовались потоки (объект TThread) на CPU. Сейчас возникла идея использовать возможности GPU. Простой, как казалось, путь — подключить модули (заголовочные файлы к OpenCL.dll по сути) — и использовать возможности OpenCL от Khronos Groupe.

Работает всё это, но…только при компиляции дельфового проекта под Win32. А мне нужны большие массивы, динамические: компиляция всей научной программы под Win64 просто необходима (используем иногда до 12 Гбайт оперативки CPU).

При компиляции под Win32 работает, а под Win64 — нет!!

(читать всё…)

Есть данные (для примера в столбцах A:G) и нужно скопировать данные одной строки и вставить в определенную-другую строку этого же листа в диапазон например H:N или O:U и тд.
Трудность для меня заключается в том что строки каждый день добавляются и для работы макросу нужно «отталкиваться» от последней строки с данными (снизу).

(читать всё…)

Необходимо в первом столбце «A» программно кодом найти последнюю ячейку с заполненными данными (после которой по столбцу вообще нет никаких данных) и в последующей пустой ячейке крайне левого столбца «A» выполнить только код ActiveSheet.Paste — код по вставке данных.

(читать всё…)

Изображения

 

(читать всё…)

Изображения

jillitil

  RadioGroup1.Buttons[0].Enabled:= false;
  RadioGroup1.Buttons[6].Enabled:= false;
  RadioGroup1.Buttons[7].Enabled:= false;
  RadioGroup1.Buttons[5].Enabled:= false;
  RadioGroup1.Buttons[11].Enabled:= false;

Изображения

тема на форуме