Программирование в среде Delphi. Часть 3. Файлы. Садовская О.Б. - 31 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

31
copy(f, h);
reset(f); c:='$'; write(f,c);
reset(h); copy(h, f);
closefile(f); closefile(h)
end;
procedure TForm1.Button2Click(Sender: TObject);
var d : char;
begin
reset(f); label2.Caption:='';
while not eof(f) do
begin
read(f, d);
label2.caption:=label2.caption + d
end;
closefile(f)
end;
Задача 45. Вставить новый символ ′ + ′ после четвёртого по
порядку элемента существующего типизированного файла . ( Использо -
вать вспомогательный файл . )
Задача 46. Удалить из существующего типизированного файла
все символы ′ , ′ . ( Использовать вспомогательный файл . ) 
                                       31
      copy(f, h);
      reset(f); c:='$'; write(f,c);
      reset(h); copy(h, f);
      closefile(f); closefile(h)
      end;
      procedure TForm1.Button2Click(Sender: TObject);
      var d : char;
      begin
      reset(f); label2.Caption:='';
      while not eof(f) do
      begin
      read(f, d);
      label2.caption:=label2.caption + d
      end;
      closefile(f)
      end;
      За д а ча 45. В ста вит ь н овый сим вол ′ + ′ после четвёрт ого по
поря д ку э лем ен т а су щест ву ю щего типизирова н н ого ф а йла . ( И спользо-
ва т ь вспом ога т ельн ый ф а йл. )




    За д а ча 46. У д а лит ь из су щест ву ю щего т ипизирова н н ого ф а йла
все сим волы ′ , ′ . ( И спользова т ь вспом ога т ельн ый ф а йл.)

Страницы