Помогите с паскалем!!!!!

[Guest]

Народ! Я учу паскаль, не могу разобраться как из .txt файла, взять конкретную строку, например которая начинается на цифру или букву и.д.

Как пробежаться по строкам?

Заранее благодарен!

[BrutalBit]

Цитата:



Народ! Я учу паскаль, не могу разобраться как из .txt файла, взять конкретную строку, например которая начинается на цифру или букву и.д.





Код:

Код: Выделить всё

var s: string; 
      f: text; 
begin 
assign(f,'myfile.txt'); 
reset(f); 
while not eof(f) do  {крутим цикл, пока не дойдем до конца файла} 
 begin 
   readln(f,s); {считываем строку} 
     if s[1] = буква_или_цифра then {проверяем первый символ} 
      begin 
        {делаем, что нужно} 
      end 
      else 
 end; 
close(f);
end.

Если нужно считывать не всю строку сразу,а числа или буквы по отдельности,то



Код:

Код: Выделить всё

while not seekeof(f) do 
 begin 
   while not seekeoln(f) do 
     begin 
        {в этом цикле считываем нужные нам числа или буквы процедурой read} 
      end; 
  readln(f);{переход на новую строку} 
 end;

[s]Исправлено: BrutalBit, 22:20 3-05-2004[/s]

[Guest]

Огромное спасибо! попробую!

[Guest]

Так, это я понял, у меня в файле строка - число, мне нужно проверить это число больше или меньше "n"

такой вопрос - как преобразовать число в файле в integer например, пытался не получается!

[JCooper]

Guest процедурой Val.