TURBO PASCAL:Учебное пособие. Терёхин В.В. - 117 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

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

Рубрика: 

117
с именем внешнего файла с помощью процедуры Assign.
Пример:
program p54;
var
F: file;
Ch : Char ;
S: String;
begin
Write (' Введите имя удаляемого файла ')/'
Readln(S);
Assign(F, S) ;
{Si-}
Reset (F) ;
if lOResult <> 0 then
Writeln (' файл ' , S, ' отсутствует')
else
begin
Close (F) ;
Write ( 'Удалять ', S, '? (y/no) ' ) ;
Readln(Ch) ;
{Function UpCase(C: char): Char Преобразует латинскую
букву в заглавную.}
if UpCase(Ch) = 'Y' then Erase (F) ;
end;
end.
Процедура
procedure Rename(var f; newname: string);
переименовывает файл. Здесь f - переменная файлового типа;
newname - строка, содержащая новое имя внешнего файла.
Пример:
program p55;
var
f: file;
S1, S2: String;
begin 
с именем внешнего файла с помощью процедуры Assign.
        Пример:
program p54;
var
  F: file;
  Ch : Char ;
  S: String;
begin
  Write (' Введите имя удаляемого файла ')/'
  Readln(S);
  Assign(F, S) ;
{Si-}
  Reset (F) ;
  if lOResult <> 0 then
        Writeln (' файл ' , S, ' отсутствует')
  else
    begin
        Close (F) ;
        Write ( 'Удалять ', S, '? (y/no) ' ) ;
        Readln(Ch) ;
  {Function UpCase(C: char): Char Преобразует латинскую
букву в заглавную.}
        if UpCase(Ch) = 'Y' then Erase (F) ;
    end;
end.
        Процедура
  procedure Rename(var f; newname: string);
 переименовывает файл. Здесь f - переменная файлового типа;
newname - строка, содержащая новое имя внешнего файла.
        Пример:
program p55;
var
  f: file;
  S1, S2: String;
begin
                                                         117

Страницы