как из $4d4d получить MM

← →
ламер_13 (2006-07-05 17:27) [0]

как из $4d4d получить "MM"

← →
PSPF2003 © (2006-07-05 17:32) [1]

А поподробнее можно, непонятно.

← →
Virgo_Style © (2006-07-05 17:35) [2]

Chr( StrToInt( "$4D" ) ) = "M"

← →
StriderMan © (2006-07-05 17:35) [3]

if a = $4d4d then result := "ММ"

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

← →
все тот же ламер_13 (2006-07-05 17:40) [4]

to Virgo_Style
посимвольно Не хочется

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

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

← →
begin...end © (2006-07-05 17:41) [5]

HexToBin

> все тот же ламер_13 (05.07.06 17:40) [4]

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

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

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

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

← →
вечный ламер_13 (2006-07-06 09:06) [7]

to begin...end
Отлично!!!!! это то что нужно....

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

как из $4d4d получить MM Найти похожие ветки