Ещё один вопрос про парсер текста

[elagin]

Привет, знатоки. Суть:

- Есть текст:

тра та та ту ту та (<b>ihrrq43</b>)<br /><strong> 179307520</strong> - [ID: 2736 | HEX: 0xab00400]

Необходимо выдрать "тра та та ту ту та", "Id:2736" и "HEX: 0xab00400"

Ну не могу я парсить строки

Заранее благодарен за готовый код =)

[Utkin]

pos до 1-й ( и pos до первой [. Получишь координаты нужных частей строки. Дальше дело техники, а именно copy

[alekola]

Сложно помочь вам с решением так как не понятно, какой логике подчиняются остальные строки.
Но тем не менее могу набросать чуть в помощь
pos - находит позицию символа в строке, возвращает его порядковый номер
delete - удаляет заданное количество символов начиная с переданного

[Utkin]

delete - удаляет заданное количество символов начиная с переданного

Ему наверно оригинал нужен...

[elagin]

Всем спасибо за подсказки. Разобрался =)
Нашёл интересную функцию (выводит строку от символа и до символа)

function ParseStr(str, sub1, sub2: string): string;
var
st, fin: Integer;
begin
st := Pos(sub1, str);
if st > 0 then
begin
str := Copy(str, st + length(sub1), length(str) - 1);
st := 1;
fin := Pos(sub2, str);
Result := Copy(str, st, fin - st);
str := Copy(str, fin + length(sub2), length(str) - 1);
end;

text:=copy(otvet.Text,1,pos('(',otvet.Text)-1);
id:=parsestr(otvet.Text,'[ID: ',' |');
hex:=parsestr(otvet.Text,'HEX: ',']');

[s-andriano]

Сообщение от alekola

pos - находит позицию символа в строке, возвращает его порядковый номер

Только не символа, а подстроки.