Работа с текстовыми файлами Опции

[Sarmat]

Народ, помогите пожалуйста:
Дан текстовый файл. Надо подсчитать количество пустых строк в нем.
Как делать?

[volvo]

Читать файл построчно, и сравнивать каждую прочитанную строку на ''. Если равны - увеличивать счетчик.

[klem4]

Файлы

обнуляешь счетчик, начинаешь читать строки из файла, если очередная строка пустая (Length(s) = 0 или s = '') то увеличиваешь счетчик на единицу.

[Sarmat]

!

2. Все тексты фрагментов программ должны помещаться в теги [code ] ... [ /code ] или [ code=pas ] ... [ /code ].

program ex25;

uses crt;

var
   f:text;
   a:string;
   i:integer;
  
begin
   clrscr;
   assign(f,'25.txt');
   reset(f);
   i:=0;
   while not eof(f) do
   begin
      read(f,a);
      if length(a)=0 then i:=i+1;
   end;
   close(f);
   writeln('number of empty lines is ',i);
   readkey;
end.

вот написал, но она всё равно не работает
что не так?

Сообщение отредактировано: klem4 - 12.06.2007 18:58

[klem4]

while not eof(f) do
   begin
      readln(f,a); // <------------------

Сообщение отредактировано: klem4 - 12.06.2007 19:02

[Sarmat]

Спасибо, всё получилось )))

[AET]

народ помагите надо создать программу каторая извлекает из фаила части фаила тоесть блоки по заданым им адресом и с указаным им размером фаила дапустим есть фаил main.img из него надо извлеч и создать фаил с именем RE0 до REn тоесть пока число блоков не закончится и записовать даныие из блока в данныие фаилы. вот например программа созданная на паскале но имеет расширение ехе а мне нужны исходныие