Проблема со считыванием файла в delphi

[aftio]

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

while not Eof(F) do
    begin
      Readln(F,s);
      if s<>'' then
      if s[1]='#' then VOP1:=strtoint(copy(s,2,length(s))) else
      if s[1]='^' then vrema:=strtotime(copy(s,2,length(s))) else
      if s[1]='?' then
       begin
         K[i].question:=copy(s,2,length(s));
         kolvop:=kolvop+1;
         j:=1;
         Readln(F,s);
        while s<>'' do
         begin
         if  s[1]='!' then
              K[i].recom:=copy(s,2,length(s))
         else
         begin
           if  s[1]='*' then
           begin
              K[i].otvet:=j;
              K[i].ans[j]:=copy(s,2,length(s));
           end
           else
              K[i].ans[j]:=s;
           j:=j+1;
           end;
           readln(F,s)
         end;
     end;
     var_otv[i]:=j-1;
     i:=i+1;
     end;

После считывания выводим на панель

Label8.caption:=timetostr(vrema);

Время задается в виде(пример строки в файле): ^0:10:00
Количество обязательных вопросов(пример строки в файле): #5
А когда запускается программа то вместо времени на поле ничего нет, а переменная VOP1=0.

Подскажите, в чем проблема, толдычусь над ней уже 5 дней, сам никак решить не могу.

[Rin]

А как описана переменная F?

[aftio]

Rin,

F: text;

[s-andriano]

Ну, для начала length(s)-1 вместо length(s).

[Serge_Bliznykov]

Сообщение от s-andriano

для начала length(s)-1 вместо length(s).

s-andriano, хотя Вы абсолютно правы, не думаю, что автору темы это чем-то поможет - функция copy "умная" - она сама следит за границами и не вернёт лишнего. Но я тоже стараюсь передавать корректное количество возвращаемых символов в данной функции - просто потому что так правильно.

aftio, Вы на редкость не умеете задавать вопросы!
Во-первых, Вы не первых раз создаёте такую тему (а это нарушение правил форума - кросспостинг)

во-вторых, не выкладываете исходники полностью + исходный текстовый файл. Почему Вы думаете, что по вашему огрызку можно угадать в чём проблема - не знаю. Да хотя бы одно то, что Вы проверяете первый символ в строке, а у вас перед временем может быть пробел(ы), либо в конце текста встречается "левая" строчка, у которой первый символ ^ ...
Гадать можно до бесконечности...

[s-andriano]

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

s-andriano, хотя Вы абсолютно правы, не думаю, что автору темы это чем-то поможет

Вполне возможно. Именно поэтому я и написал "для начала".
Собственно, Вы сами видите, что по приведенному фрагменту нельзя точно указать ошибку, а можно лишь попытаться указать направление возможных поисков, что я и попытался сделать.
Следующим этапом я бы порекомендовал выяснить, что именно реально подается на вход strtoint и strtotime, и что они возвращают.

IMHO пусть ТС сам учится отлаживать программу, а не получает готовый рецепт.

[aftio]

Serge_Bliznykov, вот http://us.ua/817067/ сама программа и извините за кросспостинг(чего то думал, что та тема уже закрыта).

[Serge_Bliznykov]

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

сама программа

мда... я даже не думал, что так всё запущено...

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

Время задается в виде(пример строки в файле): ^0:10:00
Количество обязательных вопросов(пример строки в файле): #5

Вы вложили в архив два текстовых файла с вопросами:
test_v1.txt
test_v2.txt

вы не пробовали их открыть (тем же блокнотом, хотя бы) ?!
В этом файле нет ни строчек с ^время, ни #Количество
трудно ожидать, что они там появятся сами по себе во время чтения...

[aftio]

Serge_Bliznykov, ну извините, что Вас так задолбал.

[Serge_Bliznykov]

aftio, учение не всегда ровная гладкая дорога...
Дерзайте и всё у Вас получится!

Добавьте нужные строчки в TXT файл для начала