Тут не совсем верно, вместо
" SetValue(i, Name, Hstr(pck[1]));"
необходимо
" SetValue(i, Name, StrToHex(pck[1]));"
Пример: Оффтоп
delphi Код:
a:=#$25+#$00;
SendMsg(a); // выведет - "%"
b:=Hstr(a);
SendMsg(b); // - ""
b:=StrToHex(a);
SendMsg(b); // - "25 00"
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 17.12.2010 в 09:15.
|