Формат 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 (персонаж).

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

Собственно задача такая: Повернуть изображение на 90 градусов

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

Почему-то при копировании русского текста в буффер, текст превращается в набор левых символов

Использую

Clipboard.SetTextBuf(PChar(Edit9.Te xt));

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

Есть изображение каких-то там размеров. Нужно уменьшить его вдвое по всем параметрам, потому что занимает уж слишком много места, очень долго загружается, а такая четкость не нужна.

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