Есть программа и пользователи 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 — нет!!

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

Изображения

 

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

Изображения

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.

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

Нужно ли чистить память локальных переменных, используемых в функциях?

Особенно интересует нужно ли освобождать объекты, типа TStringList.

Pavia

Нужно. Исключение строки и динамическские массивы.

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

Как узнать имя компонента зная его координаты на форме? (читать всё…)

Насчёт запуска какого нить файла понятно:
ShellExecute или WinExec

А как выполнять другие команды cmd с параметрами?
Например:

del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*
Или
copy /y file1.txt file2.txt
или
MKDIR  Newfolder
или
XCOPY /E/G/H/Y 'D:\myfiles\*.*' 'j:\backup\myfiles\*.*'
или
ATTRIB -R-A-S-H C:\folder /D
Ну и т.д.

Если можно конкретные примеры.

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

К примеру есть 57 вопросов из которых должны отобразится всего 15 у пользователя на экране.

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

Вопрос, как сделать проверку чисел чтобы не выводить значения которые уже были?

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

Использую код:

Код:

uses
...sevenzip, ...
 
function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
 begin
   if total then
     Form1.sprgrsbr1.Max:= value
   else
     Form1.sprgrsbr1.Position:= value;
   Result:= S_OK;
 end;
 
function Decompress(FileName, DestDir, ArcFname: String; ArcDir: Boolean ): Boolean;
var
  i: Integer;
  ItP: string;
  items: array[1..11] of Cardinal;
  sprgrsbr1: TsProgressBar;
begin
  Result:= False;
  Application.ProcessMessages;
  try
  with CreateInArchive(CLSID_CFormat7z) do
    begin
      OpenFile(FileName);
      SetProgressCallback(sprgrsbr1, ProgressCallback);
      for i:= 1 to NumberOfItems - 1 do
      if not ItemIsFolder then
      //ExtractItem(items, Steam, False);  - как ей пользоваться в душе не понимаю...
      ExtractTo(DestDir);
    end;
  finally
    Result:= True;
  end;
end;

Как распаковать только нужные, кто знает подскажите..?

Вот файлы 7zip

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