прочитать из тестового файла определенную инфу и вынести её в мемо memo1

[oleg kutkov]

Возникла необходимость прочитать из тестового файла определенную инфу и вынести её в мемо. Проблема в том, что бы изьят именно нужные слова и откинуть остальное.
Тестовый файл выглядит примерно так:

Документ
за дату 31/05/07
текст
имя, текст

потом всякая лабуда псевдографкики для оформления, типа таблицы.
число1 число2 число3 число4 число5

число6 число7

вообщем нужно вынести отсюда толко само значение даты из строки за дату 31/05/07
имя (без запятой после него естественно) и числа1-7.
Сколько мучаюсь с read, readln, ничего путного не выходит
какую либо полезную инфу по этому поводу не нашел.
помогоите пожалуйста, и ещё очень хотелось бы поподробнее узнать про
midstr, leftstr, rightstr. Пробовал перебирать посимвольно каждую строчку но программа либо виснет на цикле, либо ничего не выводит...
зы
Тут это не отобразилось, строка с датой начинается с большого пробелла.
Заранее спасибо.

[Alex21]

Здесь посмотри пример калькулятора с разбором строки
http://www.programmersforum.ru/showt...?t=4435&page=2

[oleg kutkov]

Не пойму почему Делфи ругается на указание элемента с определнным номером, вот например пытаюсь отыскать букву П:
readln(vip,s);
if s[1]='П' then showmessage('П');
(Эта конструкция вбита в цикл до окончания файла)
вылетает ошибка, типа "Акцесс виолатион" и указывает на строчку
if s[1]='П' then showmessage('П');
вообще вот мой алгоритм:
начинаем читать, посимвольно, строку, если находим идентификатор, указывающий, что эта строка дальше содержит нужные данные, например символ "з" означает, что далее через фиксированное число символов имеется дата(это количество сиволов вегда одинаково, т.к. файлы создаются по шаблону), далее перескакиваем через опередленное число символов и поподаем к дате, считывем символы с такого то по такой и кидаем это в мемо, переходим на следующюю строку и повторяем процедуру.
Вот, что я конкретно не могу понять, как именно обращаться к конкретному элементу строки, а не просто ко всей строке, т.к. на данном этапе я могу лишь отличить пустую строку от непустой.

[oleg kutkov]

Задача решена.