Строки замучили.... как преобразовать?????

← →
malefik © (2003-10-06 10:09) [0]

var i:= #10#12#15

как сделать чтобы в другой переменной было "#10#12#15" и в EDIT выводилось #10#12#15 а не кракозябры

← →
Nikolay M. © (2003-10-06 10:11) [1]

С функцией IntToStr знаком?
ShowMessage ("#" + IntToStr (i[1]));

← →
malefik © (2003-10-06 10:35) [2]

Вторая переменная должна содержать символьную строку..т.е.
как будто я обьявляю i := "#10#12#15"

← →
[lamer]Barmaglot © (2003-10-06 10:44) [3]

парсинг...
С конца строки ищещь символ # все что ты нашел до него является одним числом, на него и применяй inttostr()

← →
ZEE © (2003-10-06 10:44) [4]

>malefik © (06.10.03 10:09)
>var i:= #10#12#15
а где тут задание типа...
т.е. какой тип у переменной i?
судя по #10#12#15 - строковый
тогда надо
var i:string; ... i:=#10#12#15;
а чтоб преобразовать надо каждый символ отдельно преобразовывать:
var s:string; // ну привык я строки объявлть как s i:integer; // а числа как i ... s:=#10#12#15; Edit1.Clear; for i:=1 to length(s) do Edit1.Text:=Edit1.Text+"#"+IntToStr(ord(s[i]));

← →
malefik © (2003-10-06 10:54) [5]

А если будет #A#12#$34 ????
Пусть выходная переменная будет STRING и входная STRING

Получается что на входе #A#12#$34
а на выходе "#A#12#$34" нужно

← →
ZEE © (2003-10-06 10:58) [6]

>malefik © (06.10.03 10:54) [5]
>А если будет #A#12#$34 ????
А что такое #A ? - это ж не символ - попробуй запихнуть его в строку - ругаться будет...

← →
malefik © (2003-10-06 11:10) [7]

Мне надо просто выдать эту строку в виде
Edit1.text := "#A#12#$34"
а на
Edit1.text := #A#12#$34 пишет кракозябры

← →
Song © (2003-10-06 11:11) [8]

Дык и чего тебе мешает вот так-то написать?
Edit1.text := "#A#12#$34"

← →
malefik © (2003-10-06 11:14) [9]

Ё..т строка уже есть ........перед фактом стою как её преобразовать

← →
Song © (2003-10-06 11:17) [10]

А почему некоторые hex с #, а некоторые с $ ?

← →
malefik © (2003-10-06 11:19) [11]

Так и есть.....данные такие...

← →
ZEE © (2003-10-06 11:26) [12]

> malefik © (06.10.03 11:10) [7]
> Edit1.text := #A#12#$34 пишет кракозябры
а у меня на это ругается:
"Constant expression expected"
как у тебя кракозябры-то получились?..

← →
malefik © (2003-10-06 11:28) [13]

#$10#1#$A#$C"!"#5#0#0#0#4#0#$10#3"&"

Вот такая строка

← →
Song © (2003-10-06 11:32) [14]

Ничё не понимаю..
#$10 - это hex. Тебе надо его перевести в символ, соответствующий коду его десятичного представления?

← →
malefik © (2003-10-06 11:33) [15]

НЕТ МНЕ НЕ НАДО ПЕРЕВОДИТЬ !!!! МНЕ НАДО ЭТУ СТРОКУ ЗАСУНУТЬ В ЕЁ ЖЕ ВИДЕ В EDIT !!!!

← →
malefik © (2003-10-06 11:34) [16]

ЭТА СТРОКА ДОЛЖНА БЫТЬ ВИДНА В ЭДИТЕ

← →
ZEE © (2003-10-06 11:35) [17]

вот что выдает обработка кот. я приводил выше:
#16#1#10#12#33#5#0#0#0#4#0#16#3#38
само собой выдало все в кодах символов
"!" -> #33
"&" -> #38
и хексы преобразовало тоже
#$10 -> #16
но это уж не знаю как переделать
лучше скажи (а еще лучше) покажи откуда у тебя #$10#1#$A#$C"!"#5#0#0#0#4#0#$10#3"&" берется...

← →
Song © (2003-10-06 11:35) [18]

Ну вот засунул.. В чём проблема-то???

Edit1.Text:="#$10#1#$A#$C""!""#5#0#0#0#4#0#$10#3""&""";

← →
malefik © (2003-10-06 11:38) [19]

Я ЭТО ЗНАЮ!!!! Данные уже есть !!! Получены в переменной.....
МЛЯ !!! ЭТО ОТ ПРИБОРА ИДЕТ!!!! МНЕ НАДО ИХ В EDIT засунуть....

← →
malefik © (2003-10-06 11:38) [20]

В таком виде!!! И ни каком другом

← →
Song © (2003-10-06 11:39) [21]

Ну пример мой тебе подошёл? Или ты глючишь?

← →
malefik © (2003-10-06 11:40) [22]

ХОТЯ БЫ в EDIT

> malefik

чушь какая-то)

ты в состоянии привести фрагмент описания протокола инф.обмена с прибором, в котором описывается формат передаваемых им данных ?

Так не подойдет?

if (i[1] < 32) then if (i[1] <= 9) then ShowMessage ("#" + IntToHex (i[1], 0)) else ShowMessage ("#$" + IntToHex (i[1], 0)) else ShowMessage (i[1]);

#$10#1#$A#$C"!"#5#0#0#0#4#0#$10#3"&"

Вот тебе и формат!!!
Это выход TAdpDataPacket такая строка получается...

> такая строка получается

ну раз она "получается", то сразу и присваивай ее св-ву Edit.Text !

А посты внимательно прочитать не судьба???

> malefik © (06.10.03 12:06) [25]
> #$10#1#$A#$C"!"#5#0#0#0#4#0#$10#3"&"
>
> Вот тебе и формат!!!
> Это выход TAdpDataPacket такая строка получается...
выдвигай претензии к создателям TAdpDataPacket ...

← →
Плохиш_ (2003-10-06 12:44) [29]

>malefik © (06.10.03 12:27) [27]

Это ты себя спросил?

> Song © (06.10.03 11:35) [18]

> Nikolay M. © (06.10.03 12:04) [24]

а привести фрагмент "кракозябров" тоже не судьба ?

приведи-ка фрагмент кода, где ты с помощью этого самого TAdpDataPacket осуществляешь обмен с прибором, в рез-те которого в некоей переменной типа String оказывается "строка", которую ты пытаешься в Edit "запихнуть"

Все > разобрался....thanks to ZEE

Строки замучили.... как преобразовать????? Найти похожие ветки