Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как перевести 2 байта в слово? 
:(
    Опции темы
baphonet
Дата 28.7.2005, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Как быстрее всего перевести 2 байта (старший и младший) в слово?
Код


var Hbyte, Lbyte : byte;
      wrd : word;
begin
   Hbyte := 123;
   Lbyte := 111;
// . . . 
   showmessage (inttostr(wrd));   // wrd=15855  (1111011 1101111)
PM MAIL   Вверх
Chrisstoff
Дата 28.7.2005, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.5.2005
Где: Hell... жудкое ме сто

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

asm

....

end;


;))
PM MAIL ICQ   Вверх
baphonet
Дата 28.7.2005, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
LOL
Почему бы и нет smile
PM MAIL   Вверх
Chrisstoff
Дата 28.7.2005, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.5.2005
Где: Hell... жудкое ме сто

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

function my(Lb, Hb: Byte): Word; Assembler;
asm
  MOV AL,[Lb]
  MOV AH,[Hb]
end; 
PM MAIL ICQ   Вверх
baphonet
Дата 28.7.2005, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Chrisstoff, спасибо!
PM MAIL   Вверх
p0s0l
Дата 28.7.2005, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


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

Репутация: нет
Всего: 112
Про MakeWord забыли ? smile

Код
function MakeWord(A, B: Byte): Word;
begin
  Result := A or B shl 8;
end;



--------------------
С уважением, г-н Посол.
PM   Вверх
Chrisstoff
Дата 28.7.2005, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.5.2005
Где: Hell... жудкое ме сто

Репутация: нет
Всего: 1
p0s0l
Готоф поспорить вариант с асмом будет работать быстрее ...
а требуется ...
Цитата
Как быстрее всего перевести 2 байта (старший и младший) в слово?

;)))
PM MAIL ICQ   Вверх
baphonet
Дата 28.7.2005, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Хм, слово "быстрее" можно трактовать по-разному smile : как "без лишнего гемороя" или как "с максимальной скоростью". Думаю, заюзаю асмовский вариант, но за MakeWord тоже спасибо
PM MAIL   Вверх
ManiaK
Дата 5.8.2005, 10:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Homo Sapience
***


Профиль
Группа: Комодератор
Сообщений: 1145
Регистрация: 3.8.2004
Где: ИУ5-93

Репутация: нет
Всего: 29
Chrisstoff Забавно, я всегда MAKEWORD пользовался smile
PM MAIL WWW   Вверх
Chrisstoff
Дата 7.8.2005, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.5.2005
Где: Hell... жудкое ме сто

Репутация: нет
Всего: 1
Цитата
Chrisstoff Забавно, я всегда MAKEWORD пользовался

... ну это я так ... после травмы в виде длительного принудительного траха с асемблером .... начал волей не волей кой чё писать на нём ... ))) тем более когда вопрос худо бедно касаеца мелкой рациональности ...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0765 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.