Разбор строки (Delphi)

[8tomat8]

Есть строка вида

(TCL_FIC_NMK_.FCOD LIKE '16%' and FOP_DATE  BETWEEN '20130101' AND '20131130')
 or (TCL_FIC_NMK_.FCOD LIKE '16%' and FOP_DATE  BETWEEN '20121001' AND '20121130')
 or (TCL_FIC_NMK_.FCOD LIKE '28%' and FOP_DATE  BETWEEN '20130401' AND '20130831')
 or (TCL_FIC_NMK_.FCOD LIKE '24500%' and FOP_DATE  BETWEEN '20130401' AND '20130831')

16%,28%,24500% - некие коды
~20131001 - даты
Хочу разобрать её на куски и поместить в таблицу вида


Как это можно реализовать?
Попробовал через кучу pos. Никак не добьюсь нужного порядка действий(
И возможно ли заменить номера месяцев на слова?

[Stilet]

Есть строка вида

Какого вида?

[8tomat8]

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

Какого вида?

Я ж пример прикрепил

Сообщение от 8tomat8

Есть строка вида

(TCL_FIC_NMK_.FCOD LIKE '16%' and FOP_DATE  BETWEEN '20130101' AND '20131130')
 or (TCL_FIC_NMK_.FCOD LIKE '16%' and FOP_DATE  BETWEEN '20121001' AND '20121130')
 or (TCL_FIC_NMK_.FCOD LIKE '28%' and FOP_DATE  BETWEEN '20130401' AND '20130831')
 or (TCL_FIC_NMK_.FCOD LIKE '24500%' and FOP_DATE  BETWEEN '20130401' AND '20130831')

[BDA]

p := pos('LIKE', s) + 6;
a := copy(s, p, pos('%', s) - p);
p := pos('BETWEEN', s) + 9;
b := copy(s, p, pos(chr(39) + ' AND ' + chr(39), s) - p);
p := pos(chr(39) + ' AND ' + chr(39), s) + 7;
c := copy(s, p, pos(chr(39) + ')', s) - p);

Применять к каждой строке (пример работы - http://ideone.com/0mvBSG).
И заменить числа на слова тоже возможно.

[Stilet]

Я ж пример прикрепил

Ты парсишь SQL запросы???
Можно полюбопытствовать зачем?

[eval]

зачем кусок запроса парсить? ой скорее тут опять не в то место..

[8tomat8]

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

p := pos('LIKE', s) + 6;
a := copy(s, p, pos('%', s) - p);
p := pos('BETWEEN', s) + 9;
b := copy(s, p, pos(chr(39) + ' AND ' + chr(39), s) - p);
p := pos(chr(39) + ' AND ' + chr(39), s) + 7;
c := copy(s, p, pos(chr(39) + ')', s) - p);

Применять к каждой строке (пример работы - http://ideone.com/0mvBSG).
И заменить числа на слова тоже возможно.

Спасибо. Сейчас циклов еще накручу и будет ок) Можно закрывать)

[8tomat8]

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

Ты парсишь SQL запросы???
Можно полюбопытствовать зачем?

Те кто строили нам базы, сделали такую систему установки прав для пользователей. К каждому их запросу добавляется эта строка. А я же теперь хочу что бы у них в меню появлялись в понятном для них виде права

[eval]

права не с воздуха берутся, но это не про вас

[Stilet]

Э-э-э... Так! Стоп! Права временные выдаются на некий срок, верно?
И ты хочешь сделать что? - систему выдачи прав?
Что-то мне все равно не доходит зачем запрос разбирать...
Он что, динамически создается, и каждый раз набор условий разный?