Посимвольный перебор строки можно сделать двумя способами:
1. Завести индекс, брать символ в позиции индекса, инкремировать, проверять на достижение конца строки, goto.
2. Перебирать индекс в for, брать символ в позиции индекса, проверять на достижение конца строки, goto.

Сравним оба варианта на скорость работы:

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

Возможно ли переконвертировать PNG в ICO? при этом оставить прозрачность и разбить на разные разрешения в один ico файл?
К примеру имеется PNG (с разрешением 128х128) и его перевести в ico в котором будут несколько разных разрешений (к примеру 128х128, 92х29 ну и т.д.)
Возможно ли такое?
Или хотя бы такое имеется несколько ico с одинаковым изображением, но в различных разрешениях, можно ли их собрать в один ico?

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

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

Нужна формула или скрипт, который найдёт на листе все надписи NC и рядом с этим текстов в соседней ячейке добавит надпись LIBER. Или может как-то это можно сделать через поиск/замена.

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

Как сделать НЕПРЕРЫВНОЕ движение рисунка по форме по горизонтали справа налево, чтобы часть рисунка, которая уже скрыта за правым полем тут же всплывала с левого поля формы и так далее. Это что-то вроде имитации ЭКГ- выбираем один фрагмент и циклично двигаем его по всей форме.

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

Можно ли как-то в Delphi сделать так чтобы звук повторялся постоянно. То есть, если закончилась музыка то она снова включается и так пока сам ее не выключишь.

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

Делал линзу которая перемещается совместно с курсором, центр окна позиция курсора,
т.е окно которое выше уровня рабочего стола, в windows7 работало хорошо,
в Windows10 не хочет

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

Помогите с формулой или скриптом который найдёт на листе все надписи NC и рядом с этим текстом в соседней ячейке добавит надпись LIBER. Или может как-то это можно сделать через поиск/замена.

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

Вот Вам быстрый доступ к пикселам.
Пользуюсь давно. Работает быстро и замечательно.
К сожалению автор не известен

TMyClass
  private
    fDelta; integer;
    fStart: integer;
end;

...

function TMyClass.GetPixels(X, Y: integer): integer; assembler;
asm
  imul ecx,[eax].fDelta
  add ecx,[eax].fStart
  add ecx,edx
  movzx eax,WORD PTR [ecx+2*edx]
  bswap eax
  shr eax,8
  movzx ecx, BYTE PTR [ecx+2*edx+2]
  or eax,ecx
end;


procedure TMyClass.SetPixels(X, Y: integer; {color}const Value: integer); assembler;
asm
  imul ecx,[eax].fDelta
  add ecx,[eax].fStart
  lea edx,[edx+edx*2]
  mov eax,[ebp+8]  //Value
  bswap eax
  shr eax, 8
  mov [ecx+edx],ax
  shr eax, 16
  mov [ecx+edx+2],al
end;

procedure TMyClass.Mymethod;
begin
  if (bmp = nil) or bmp.Empty then Exit;
  bmp.PixelFormat := pf24bit;
  fStart := integer(bmp.Scanline[0]);
  fDelta := integer(bmp.Scanline[1]) - fStart;
  ...
end;

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