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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

32
Задача 47. Создать типизированный файл , состоящий из символов,
введённых в окно ввода Edit. Заменить в файле каждую английскую
букву ′ e ′ буквой ′ i ′ . ( Не используя вспомогательный файл . )
Процедура обработки события щелчка по кнопке Выполнить:
procedure TForm1.Button2Click(Sender: TObject);
var f:file of char; c, d:char;
begin
if not opendialog1.Execute then exit;
assignfile(f, opendialog1.FileName);
label1.Caption:=opendialog1.FileName;
reset(f); c:='i';
while not eof(f) do
begin
read(f, d);
if d='e' then begin seek(f, filepos(f)-1); write(f,c) end
end;
closefile(f)
end;
Задача 48. Создать типизированный файл , состоящий из символов,
введённых в окно ввода Edit. Заменить в файле каждый пробел
символом ′ _ ′ . ( Не используя вспомогательный файл . )
Задача 49. Переписать содержимое данного символьного файла в
новый символьный файл , заменяя каждую встречающуюся строчную 
                                           32
      За д а ча 47. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. За м ен ит ь в ф а йле ка ж д у ю а н глийску ю
б у кву ′ e ′ б у квой ′ i ′ . ( Не использу я вспом ога т ельн ый ф а йл. )




    П роцед у ра об ра б отки соб ыт ия щелчка по кн опке В ы пол н и ть :
    procedure TForm1.Button2Click(Sender: TObject);
    var f:file of char; c, d:char;
    begin
    if not opendialog1.Execute then exit;
    assignfile(f, opendialog1.FileName);
    label1.Caption:=opendialog1.FileName;
    reset(f); c:='i';
    while not eof(f) do
    begin
    read(f, d);
    if d='e' then begin seek(f, filepos(f)-1); write(f,c) end
    end;
    closefile(f)
    end;

     За д а ча 48. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. За м ен ит ь в ф а йле ка ж д ый проб ел
сим волом ′ _ ′ . ( Не использу я вспом ога т ельн ый ф а йл. )




     За д а ча 49. П ереписа т ь сод ерж им ое д а н н ого сим вольн ого ф а йла в
н овый сим вольн ый ф а йл, за м ен я я ка ж д у ю встреча ю щу ю ся ст рочн у ю

Страницы