VPF::Тест подсветки - Форум программистов

sergejzr

Дата 20.10.2004, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360

Представляешь себе, меню для настроек

?
Да и где их делать.....
Технически релизовать легко, но куда вставлять и как будет выглядеть.....

Поэтому подсветка по идее должна быть самая простая...

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

p0s0l

Дата 22.10.2004, 00:18 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Код


procedure msgCRC; assembler;
asm
// запоминаем регистры в стеке
  push ebx
  push ecx

  movzx ecx, word ptr [eax + TMess.sizMain] // размер основной части
  sub cx, msgVarSize
  mov ebx, eax

  push ecx
  xor eax, eax
  shr ecx, 2
  add ebx, msgVarSize
@loopCRC:
  add eax, [ebx]
  add ebx, 4
  ror eax, 1
  loop @loopCRC
  pop ecx
  and ecx, 3
  jz @skip
@loopCRC2:
  add al, [ebx]
  inc ebx
  ror eax, 1
  loop @loopCRC2
@skip:

  pop ecx  { восстанавливаем регистры }
  pop ebx
  
{$Directive+}
  mov al, 'b'
  mov ah, 'a'
@string1: db 'test1', 0
  ret
end;

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »