07.12.2009, 19:00
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
Код:
s := '<lol>ass</lol>';
p := pos('<lol>', s);
if (p > 0) then
begin
p1 := pos('</lol>', s);
if (p1 > 0) and (p1 > p) then data := copy(s, p+5, p1-p-5);
end;
примерно так при условии что теги идут парно и правильно |
|
|