Работа с файлами.

[GoodNight]

Добрый вечер!
Pascal
Дан текстовый файл. Перепишите его содержимое в новый файл сохраняя строчную структуру и удаляя пустые строки.

[Serge_Bliznykov]

неужели всё НАСТОЛЬКО плохо?!

var f,g : Text;
  s : string;
begin
  Assign(f, 'ishod.txt'); 
  Reset(f);
  Assign(g,'rezult.txt');
  Rewwrite(g);
  while Not eof(f) do begin
     Readln(f, s);
     if s<>'' then WriteLn(g, s);
  end; 
  Close(f);
  Сlose(g);
end.

и всё!

примечание.
в данном примере пустые строки, это строки, которые не содержат вообще ни одного символа (любого).
Если нужно пустыми считать строчки, состоящие за пробелов и знаков табуляции, то проверку в if ... нужно немного изменить.

[GoodNight]

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

неужели всё НАСТОЛЬКО плохо?!

var f,g : Text;
  s : string;
begin
  Assign(f, 'ishod.txt'); 
  Reset(f);
  Assign(g,'rezult.txt');
  Rewwrite(g);
  while Not eof(f) do begin
     Readln(f, s);
     if s<>'' then WriteLn(g, s);
  end; 
  Close(f);
  Сlose(g);
end.

и всё!

примечание.
в данном примере пустые строки, это строки, которые не содержат вообще ни одного символа (любого).
Если нужно пустыми считать строчки, состоящие за пробелов и знаков табуляции, то проверку в if ... нужно немного изменить.

Не подскажите что за ошибка: Fatal: can't find unit system used by

[Stilet]

Турбопаскаль не полный видимо или криво установлен.

[GoodNight]

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

Турбопаскаль не полный видимо или криво установлен.

У меня Free Pascal. И что нужно сделать?

[Stilet]

ИМХО переустановить )

[GoodNight]

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

ИМХО переустановить )

переустанавливал...

[GoodNight]

А что значит "сохраняя строчную структуру и удаляя пустые строки."? Это как?