VPF::Зеркальное отображение битов - Форум программистов

Unforgiven

Дата 30.4.2007, 13:57 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 27.1.2005

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

Подскажите пожалуйста, как мне зеркально отобразить все байты в файле заданного размера за минимальный промежуток времени (Например была последовательность 10000000 11000000 10100000, а должна получиться 00000001 00000011 00000101)? У меня так медленно это получается при файле большого размера... Заранее благодарю

Это сообщение отредактировал(а) Unforgiven - 30.4.2007, 13:58

W4FhLF

Дата 30.4.2007, 14:47 (ссылка)

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

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  value:dword;
begin
  value := $FFFF0000; // 11111111111111110000000000000000
  asm
    push eax
    push ecx
    push edx

    xor eax,eax
    mov edx,value
    mov ecx,$20
    @loop:
    shr edx,1
    adc eax,eax
    dec ecx
    jne @loop
    // eax == 0000000000000001111111111111111b
    mov value,eax

    pop edx
    pop ecx
    pop eax
  end;
  ShowMessage(IntToHex(value, 8));
end;

PS Тебе dword'ы или байты обрабатывать надо? Что-то я не совсем понял. Мой код для dword'ов

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

"Бог умер" © Ницше
"Ницше умер" © Бог

Unforgiven

Дата 30.4.2007, 14:51 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 27.1.2005

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

Нужно переводить байты. Просто я в заголовке ошибся. Извиняюсь smile

Это сообщение отредактировал(а) Unforgiven - 30.4.2007, 14:52

W4FhLF

Дата 30.4.2007, 14:56 (ссылка)

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

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Ну, это немногое меняет:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  value:byte;
begin
  value := $F0; // 11110000
  asm
    push eax
    push ecx
    push edx

    xor eax,eax
    mov dl,value
    mov cl,8
    @loop:
    shr dl,1
    adc al,al
    dec cl
    jne @loop
    // eax == 00001111b
    mov value,al

    pop edx
    pop ecx
    pop eax
  end;
  ShowMessage(IntToHex(value, 2));
end;

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

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