Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как из $4d4d получить 'MM' [D7, 2000]

ламер_13 © (2006-07-05 17:27:00)
как из $4d4d получить 'MM'

вечный ламер_13 (2006-07-06 09:06:00) [1]
to begin...end
Отлично!!!!! это то что нужно....

Ламерское содружество благодарит Вас!!!!!

begin...end (2006-07-05 18:15:00) [2]
> все тот же ламер_13 (05.07.06 17:40) [4]

Т.е. $4d4d -- это у Вас не строка с шестнадцатеричным представлением, а число?

Если да, то [5] не поможет. А поможет обычное приведение типа:

if PWord(Buffer)^ = Chuck then ...

Или я неправильно понял вопрос?

begin...end (2006-07-05 17:41:00) [3]
HexToBin

все тот же ламер_13 (2006-07-05 17:40:00) [4]
to Virgo_Style
посимвольно Не хочется

вот поконкретней
Const Chuck $4d4d
var Buffer: PChar;

читаем из файла два байта в BUffer и сравниваем
if (buffer = <Какая-то функция>(Chuck)) then
....
или
if (<Какая-то функция>(buffer0) = Chuck) then
....

Virgo_Style (2006-07-05 17:35:00) [5]
Chr( StrToInt( '$4D' ) )= 'M'

StriderMan (2006-07-05 17:35:00) [6]
if a = $4d4d then result := 'ММ'

PS: какой вопрос - такой ответ

PSPF2003 (2006-07-05 17:32:00) [7]
А поподробнее можно, непонятно.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »