Нужно посчитать количество букв в 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;

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

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

Как правильно сделать округление в меньшую сторону после деления, до первого знака после запятой?

Т.е например 1000/26,5 = 37.73 округлить до 37,70, а если 2000/26,5 = 75.47, но мне нужно что бы было 75,40 а не 75,50 как делает RoundTo.

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

Как получить адрес ячейки памяти пикселя в БитМапе?
Хотя бы, адрес крайних пикселей. А там уже в промежутки найти координаты нужные не проблем.

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

Есть BitMap. Нужно
1. Сделать его ч/б
2. Изменить яркость
3. Изменить контраст

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