Скачать: CL | DM;

как из $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

---

← →
begin...end ©   (2006-07-05 18:15) [6]

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

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

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

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

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c