1) Берешь строку с запросом
2) Находишь в ней select
3) Находишь в ней From
4) Берешь из строки то, что между select и From
5) Разделяешь на подстроки - разделитель, запятая
6) Удаляешь лишние пробелы
Полезные функции:
1) Pos - ищет подстроку в строке
2) MidStr - позволяет извлечь подстроку из строки
3) Если создать объект TStringList, и в его свойство CommaText записать строку, содержащую слова, разделенные запятой. То в этом TStringList будет список данных слов.
4) Функция Trim удаляет лишние пробелы
|