Считываем из файла до символа Опции

[Footballplayer]

Здравствуйте!
Помогите пожалуйста!

Задание: конструктор тестов, программа позваляет создавать и проходить тесты.
моя программа создаёт текстовый файл в котором записаны вопросы и ответы:

Код

вопрос #

ответ неправильный

+ответ правильный

ответ неправильный

ответ неправильный

|

и теперь проблема.
не могу записать в Memo текст вопроса, i.e. всё то что идёт до символа '#' .

Спасибо!

[volvo]

не могу записать в Memo текст вопроса, i.e. всё то что идёт до символа '#'

А как ты вообще файл читаешь? Построчно? Посимвольно? Весь сразу, а потом разбираешь на составляющие?

[Footballplayer]

А как ты вообще файл читаешь? Построчно? Посимвольно? Весь сразу, а потом разбираешь на составляющие?

нуу
посторочно

...

AssignFile(Filee,filename);
Reset(Filee);
readln(Filee,buf)
...

CloseFile(Filee)

Добавлено через 14 мин.

А как делаешь-то? Просто читаешь строку, а потом memo1.text:=copy(s,1,pos('#',s)-1);. Это я про считывание вопроса.

Спасибо тебе!
Пока то что нужно..