6. Удалить в файле Two текст после первой точки. Опции

[Гурик]

6. Удалить в файле TWO текст после первой точки. :molitva:

[Altair]

1 способ.
Читаешь файл посимовльно и копируешь в новый.
Как только встретишь точку, закрываешь все и старый файл удаляешь.
2 способ.
Читаешь файл посимвольно. (но читаешь его как типизированный) и как только встетишь код точки или символ точки, усекаешь файл до этого символа.

[Гурик]

как бы это наглядно у видет :low: ь на примере?

[volvo]

Truncate + F1
А теорию можно здесь посмотреть: FAQ: Файлы

[Altair]

var
 f:file of byte;
 i:byte;
c:boolean;
begin
 c:=false;
 assign(f,'two');
 reset(f);
 repeat
  read(f,i);
  if i=ord('.') then begin  truncate(f) ; close(f); c:=true; end;
 until c=true;
end.

что-то типа того, проверь... у меня протсто нет компилера на компе, поэтому позволю се нарушить чуток правила и не проверить код перед тем как выложить...

[volvo]

Altair, лишние переменные - зло

var
 f: file of char;
 i: char;
begin
 assign(f,'two');
 reset(f);
 repeat
   read(f, i);
   if i = '.' then begin
     truncate(f)
   end;
 until (i = '.') or (eof(f));
 close(f)
end.

Кроме этого, здесь корректно обрабатывается файл, в котором вообще нет точки :P