Правила форума
Rename.PASЯзык:
Русский
English
{ Пример программы для процедуры Rename }
var
F : File;
begin
{ Переименовывает файл. Имена вводятся в командной строке. }
if ParamCount <> 2 then
begin
WriteLn('Неверные параметры!');
Halt(1);
end;
Assign(F, ParamStr(1));
WriteLn('Переименовываю ', ParamStr(1), ' в ', ParamStr(2));
Rename(F, ParamStr(2));
end.
F : File;
begin
{ Переименовывает файл. Имена вводятся в командной строке. }
if ParamCount <> 2 then
begin
WriteLn('Неверные параметры!');
Halt(1);
end;
Assign(F, ParamStr(1));
WriteLn('Переименовываю ', ParamStr(1), ' в ', ParamStr(2));
Rename(F, ParamStr(2));
end.
::
::
::
