Почему то медианный фильтр применяется не до конца изображения где то на 75% справа остаётся нетронутым примерно 25%.

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

Как сделать буквы или цифры или всё вместе на изображении толще или пожирнее ?

Изображение уже содержит буквы или цифры нужно как то обрабатывать.

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

Давно уже пишу на 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-} — ничего не меняется.

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

Нужно посчитать количество букв в Memo. Я эти символы помечаю так:

bukv = [#65..#90,#97..#122,#188..#255,#165,#168,#170,#175,#179,#180,#184,#186];

Но русские буквы программа никак не хочет считать. С английскими проблем нет. Всё отлично работает. А вот русскими беда.
Пробовал разные варианты:

bukv = [(#65)..(#90),(#97)..(#122),'а'..'я','А'..'Я','ё','Ё'];

Не работает.

bukv = [(#65)..(#90),(#97)..(#122),'а'..'п', 'р'..'я', 'ё'];

Не работает.
Как я понял проблема в самом Delphi XE2. Но должен же быть способ как-то решить эту задачу.

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

Есть задание написать программу, для подсчёта и проверки контрольной суммы, в тестовом файле по алгоритму :CRC16CCITT, именно по этому алгоритму и желательно без таблицы.
(читать всё…)

Передо мной встала задача сделать генератор звука, который бы генерировал два типа волн одновременно (синусоиду и прямоугольную), а также синтезировать их. Думаю насчет синтеза не проблема — просто главное чтобы амплитуда совпадала. А вот как генерировать звуковые волны и выводить их на динамики я не знаю.
(читать всё…)

Проблема заключается в том что при старте (если указать 3 потока) то три потока сразу начинают работу с одной цифры.

А потом по логике при запуске каждого потока нужно делать + 1 к ID
id:=id+1;

Но получается что числа дублируются!

Как можно отследить начало/заверщение потока и только потом передать след потоку id:=id+1;

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

Если у кого информация по работе с 232 интерфейсом? Как (своей программой) считать или послать данные? Может кто разбирался с железом ?

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

Есть ли какой нить будь способ сделать на MessageBox’e полосы прокрутки? Просто у меня получается слишком большой мессадж бокс что всего его содержимого не прочитать без таких полос прокрутки. Можно ли их туда как нить поставить?

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

Формат TDateTime выдает неверный результат, если дата менее 30 декабря 1899 года:

procedure TForm1.Button1Click(Sender: TObject);
var t: TDateTime;
    s: string;
begin
   Memo1.Clear;
   t:=-3;
   repeat
      s:=FormatDateTime('dd.mm.yyyy hh:nn:ss', t);
      Memo1.Lines.Add(Format('%.5f = %s', [t, s]));
      t:=t+1/24;
   until t>=3;
end;

Как так? Есть ли корректный способ отображения?

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