Вниз
Скачать: CL | DM;

А как преобразовать строку %EB%EF%3E и т.д. в обычные символы?   Найти похожие ветки 

 
Smok_er   (2002-05-20 22:09) [0]

т.е. %EB - это "л", а %EF - "п"

Пробовал с использованием знака #, но никак не получается.

Может кто-то знает выход?


 
Song ©   (2002-05-20 22:25) [1]


S:="%EB%EF%3E";
S:=StringReplace(s,"%","$",[rfReplaceAll]);
St:="";
While (Length(S)>0) Do
Begin
St:=St+Chr(StrToInt(Copy(S,t,3)));
Delete(S,1,3);
End;
ShowMessage(St);


 
Song ©   (2002-05-20 22:26) [2]

t замени на 1


 
Smok_er   (2002-05-21 00:03) [3]

Большое спасибо!
Работает!



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

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



Память: 0.45 MB
Время: 0.01 c
1-97303
Noname111
2002-05-16 19:01
2002.05.30
Delphi BPL


7-97444
sdan
2002-03-04 18:05
2002.05.30
Keyboard


6-97377
kvcomp
2002-03-18 14:16
2002.05.30
RasHangUp!


1-97334
Tahion
2002-05-18 19:23
2002.05.30
Работа с Вордом из Делфи


1-97258
antistatic
2002-05-21 07:54
2002.05.30
Проблемы с String и PChar




   Наверх