Для ускорения расчётов в программе, написанной на 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;

Изображения

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

На форме 2 RadioButton. при вызове этой формы должно быть условие: если в БД в определенном поле значение 0, то активен RadioButton1, если в БД в этом поле 1, то активен RadioButton2.

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

Использую FireBird 3.0
Есть рабочий запрос:

select p.*, pr.NUMBER_IN as NUMBER_IN_PR, c.EXECUTE_BEGIN as EXECUTE_BEGIN_C,
  c.EXECUTE_END as EXECUTE_END_C, c.CLIENT_ID as CLIENT_ID_C,
  c.PDV as PDV_C, c.PDV_WITHOUT as PDV_WITHOUT_C, c.PDV_TOTAL as PDV_TOTAL_C,
  c.FIRST_PART_NUMBER_CONTRACT as FIRST_PART_NUMBER_CONTRACT_C,
  c.CREATE_NUMBER as CREATE_NUMBER_C from PLAN_D p join CONTRACT c on
  p.CONTRACT_ID = c.ID join PROPOSAL pr on pr.ID = c.PROPOSAL_ID
  where c.SEND_STATUS = 1 and p.ARCHIVE = 1 order by p.ID

он выдает строки результата.
К каждой строке этого результата желательно прикрепить еще один запрос:

select distinct(sw.NAME_SORT_WORK) from DEVICES d
  join SORT_WORK sw on d.SORT_WORK_ID = sw.ID where d.PROPOSAL_ID = 1

результатом этого запроса, также могут стать несколько строк.
Мне нужно результат второго запроса превратить в строку (перечисление через запятую), и вставить в новое поле первого запроса. Ключевое поле объединения = «PROPOSAL_ID» (которое есть и в таблице «CONTRACT» и в таблице «DEVICES«)

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

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

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

Как возвратить ячейке сколько дней прошло с определенного числа предыдущего месяца по такое же число текущего?

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

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

Для примера я выбрал пару действий чтоб понять сам принцип.. допустим надо:

с пред-пред-предпоследней строки (в примере 7-я строка) скопировать A:G и вставить в пред-предпоследнюю (в примере 8-я) в H:N
с пред-предпоследней строки (8-я) скопировать A:G и вставить в предпоследнюю (9-я) в H:N
с пред-пред-пред-предпоследней строки (6-я) скопировать A:G и вставить в пред-пред-предпоследнюю (7-я) в O:U
с пред-пред-предпоследней строки (7-я) скопировать A:G и вставить в предпоследнюю (9-я) в O:U

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