Проблема заключается в том что при старте (если указать 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. Изменить контраст

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

Как повернуть изображение на 180 градусов, то есть перевернуть его вверх ногами?

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

Изображения

  

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

Как сделать стены, чтоб персонаж не проходил сквозь них? Использовала Image1(фон) и Image2 (персонаж).

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