20.12.2008, 18:21
|
|
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
С нами:
9659698
Репутация:
111
|
|
Nightmarе, скобку забыл одну:
txt:=Memo1.Text;
i:=Pos('<script>lol</script>',txt);
if i<>0 then begin
delete(txt,1,i+length('<script>')-1);
a:=Copy(txt,1,Pos('</script>',txt)-1);
Код только что проверен и прекрасно парсит, собстно заменяя <script> и </script> можно парсить любые данные  переменные ты правильно обявил))
p/s/ Можно с регулярками заморочиться, но тебе надо будут прикрутить TRegExp к сорцам, а ради одной единственной фразы оно того не стоит 
|
|
|