Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Вниз
Строки замучили.... как преобразовать????? Найти похожие ветки
← →
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
← →
Digitman (2003-10-06 11:59) [23]
> malefik
чушь какая-то)
ты в состоянии привести фрагмент описания протокола инф.обмена с прибором, в котором описывается формат передаваемых им данных ?
← →
Nikolay M. (2003-10-06 12:04) [24]Так не подойдет?
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]);
← →
malefik (2003-10-06 12:06) [25]#$10#1#$A#$C"!"#5#0#0#0#4#0#$10#3"&"
Вот тебе и формат!!!
Это выход TAdpDataPacket такая строка получается...
← →
Digitman (2003-10-06 12:08) [26]
> такая строка получается
ну раз она "получается", то сразу и присваивай ее св-ву Edit.Text !
← →
malefik (2003-10-06 12:27) [27]А посты внимательно прочитать не судьба???
← →
ZEE (2003-10-06 12:43) [28]> 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]
← →
Digitman (2003-10-06 12:44) [30]а привести фрагмент "кракозябров" тоже не судьба ?
← →
Digitman (2003-10-06 12:47) [31]приведи-ка фрагмент кода, где ты с помощью этого самого TAdpDataPacket осуществляешь обмен с прибором, в рез-те которого в некоей переменной типа String оказывается "строка", которую ты пытаешься в Edit "запихнуть"
← →
malefik (2003-10-06 14:26) [32]Все > разобрался....thanks to ZEE
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.01 c
