[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]