функция обратная StrToHex

← →
Abikos (2003-09-23 20:09) [0]

использую функцию StrToHex из Jcl ... Мне нужна еще и обратная ей - что-то типа HexToStr наверное... мне приходят строка в которой есть символы с кодами от 0-255 (то есть со всеми)...
Функция приведенная ниже, нужно результата естественно не дает, т.к. символы с начальными кодами принимает за пробелы и получается "20"... как быть ??? я просто сегодня туплю :) подскажите пожалуйста!

function TModemThread.Convert(Inp:string):string;
var i:Integer;
begin
for i:=7 downto 0 do
begin
Result:=Result+IntToHex(byte(Inp[8-i]),2);
end;
end;

← →
Anatoly Podgoretsky © (2003-09-23 20:12) [1]

Если скажешь где есть такая - StrToHex :-)
Ддя IntToHex обратная StrToInt

← →
Abikos (2003-09-23 20:18) [2]

Anatoly Podgoretsky
как и обычно - твой ответ это ответ не о чем :)
и не удивительно :)
ни на один серьезный вопрос ты как мне помнится еще ни разу не ответил :) я как бы уже просто 12 часов подряд срочно доделываю прогу, да как бы туплю уже... но это не повод издеваться :)
блин разобрался я... мне контроллер действительно 20 шлет... гад :)

← →
KosilkA © (2003-09-23 21:24) [3]

есть такой анекдот про программера...
летят Шерлок Холмс и доктор Ватсон на воздушном шаре и попадают в туман . Заблудились .
Ватсон кричит в туман: Аууууу.... Есть кто живой ???
В ответ из тумана доносится : Есть ...
Ватсон спрашивает : Где мы находимся ?
В ответ ему : Здесь ...
Холмс говорит : Это наверное был программист .
Ватсон: С чего вы взяли , Холмс ?
Холмс : Это же элементарно , Ватсон ! Во первых - ответ был предельно точен , а во вторых - не нёс в себе никакой действительно нужной информации ...

Не есть повод, а твой вопрос про что?
Если слет 20, то что же ты хочешь, это и есть код пробела. Ты хочешь хекс код преобразовать в двоичное представление или что?

H: string;
I: integer;

...
H:="A15F";
I:=StrToInt("$"+H);
...

функция обратная StrToHex Найти похожие ветки