Проблема - чтение из файла

[Drakulov]

Всем привет! У меня такая проблемка встретилась в задаче нужно сделать якобы тест используя чтение из файла. Но я решил чуть-чуть примудрить и поставить на тест пароль, что бы его можно было закрыть только введя этот самый пароль.
Но вся беда в том что Делфа не хотит читать паролик... вместа этого она читает "время"...

вот файл теста

[
Принтер                   //это тема выводит спокойно
]
принтер-тест...         //это якобы инструкция=)) тоже нормуль
*
25                        // это время необходмое для сдачи теста. 
!
root                     // собственно пароль
.

вот сам код на чтения пароля

procedure TForm1.parol;
begin
repeat
readln (test,s);
if (s[1] <> '.') and (s[1] <> '!')  then
 buf:=buf+s+'';
until  (s[1] = '.') and (s[1] <> '!') ;
parole:=buf;
Button2.Caption:=buf;
buf:='';
end;

в общем как не пытался я там and на or менять, как от балды ! и . менять - выводит либо ничего, либо просто 25, либо 25root
Хелп ми, плиз!!=)

[Alt]

не совсем понятно, что ты хочешь и зачем использовать такой мудреный файл... =/
а пароль в нем лучше хранить закодированный.

[Alex Cones]

parole:=buf;
Button2.Caption:=buf;
buf:='';

Где вы здесь считываете новую строку? Вы остановились на предыдущей и закончили на этом.

[Drakulov]

Где вы здесь считываете новую строку? Вы остановились на предыдущей и закончили на этом.

Да, точно, ты прав, забыл=)

repeat
readln (test,s);
if (s[1] <> '.') and (s[1] <> '!')  then
 buf:=buf+s;
until  (s[1] = '.') and (s[1] <> '!') ;
 buf:=buf+s;
parole:=buf;
Button2.Caption:=buf;
buf:='';

Вот, правда теперь выдает "25root." щас будем думать=))) спасибо!=)

[Drakulov]

Блин...не могу додуматья=((

[Alex Cones]

buf:=buf+s;

Может во второй раз заменить на

readln (test,buf);

?

[Drakulov]

хм...возможно, сейчас поэкспериментируем=)

[Drakulov]

Ура!!! Спасибки!=) получилось=)
вот код

procedure TForm1.parol;
begin
repeat
readln (test,s);
if (s[1] <> '.') and (s[1] <> '!')  then
buf:=buf+s;
until  (s[1] = '!') ;
readln (test,buf);
parole:=buf;
Button2.Caption:=buf;
buf:='';
end;