Файловый ввод\вывод. Зависает программа, а ошибки не выдает.

[victor5133]

Здравствуйте, суть программы в том что она должна из файла считывать строки и в строке найти S21STR= или S21ALL= и считать все символы до знака & и вывести в файл. Она запускается начинает считывать а потом зависает, на одном и том же месте. Подскажите в чем проблема. Вот код

while not EOF(log) do
begin
for p:=0 to length(str)-7 do
 begin
 prom_str:=copy(str,p,7);
 if (prom_str='S21STR=') or (prom_str='S21ALL=') then
   begin
   k:=p+7;
   prom_str:=copy(str,k,1);
   if prom_str<>'&' then
      begin
      while prom_str<>'&' do 
        begin 
        mas_dat[j]:=mas_dat[j]+prom_str; 
        k:=k+1; 
        prom_str:=copy(str,k,1); 
        end;
      writeln(prom,mas_dat[j]);
      j:=j+1;
      end;
   end;

 end;
readln(log,str);
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

во-первых, у Вас вывернуто чтение из файла (я так понимаю, что до строчки while not EOF(log) do идёт Readln(log, str), но этого не видно, да и неправильно так.
нужно

while not EOF(log) do 
begin
    readln(log,str);

    ... а тут обработка прочитанной строки ....

end;

во-вторых, зачем Вы ходите циклами по строке, выбираете из строки кусочки и сравниваете их с нужными значениями?
Вы про функцию POS() что-нибудь слышали?!

в-третьих, я Ваш код не прогонял, но я на 99% уверен, что ошибка у Вас в этом цикле:

        while prom_str<>'&' do 
        begin 
          mas_dat[j]:=mas_dat[j]+prom_str; 
          k:=k+1; 
          prom_str:=copy(str,k,1); 
        end;

подумайте, сколько раз будет выполняться цикл, если в строке НЕТ символа '&'

[victor5133]

ага, понял. Спасибо!

[DiemonStar]

А ещё неплохо почитать про отладку и точки останова - здорово облегчает жизнь в таких случаях. Ошибки находятся быстрее, чем код выкладывается на форум.