fpcdocs/refex/ex77.pp


1
2
3
4
5
6
7
8
9

Program Example77;

{ Program to demonstrate the Rename function. }
Var F : Text;

begin
  Assign (F,paramstr(1));
  Rename (F,paramstr(2));
end.