Pascal 如何更改已定义函数的名称？fe。writeNap-to-write（帕斯卡）

在上一个类中，我们在单元文件中定义了几个函数和过程

procedure WriteNap(const elo: string; const n: TNap; const uto: string);
begin
  Write(elo, Nap2Str(n), uto);
end;

function PredNap(const n: TNap): TNap;
begin
  case n of
    hetfo: PredNap := vasarnap;
    NemNap: PredNap := n;
  else  
    PredNap := Pred(n)
  end;
end;

function SuccNap(const n: TNap): TNap;
begin
  case n of
    NemNap: SuccNap := n;
  else
    SuccNap := Succ(n)
  end;
end;

我必须去掉“Nap”这个词，这样我就可以在主程序中使用Pred、Write、Succ而不是PredNap等。。。我试图创建另一个单元文件，该文件使用该单元，并包含诸如Succ Pred。。。我真的不行

---

提前感谢：）

在文件的某个地方声明：

var Pred = Function (Const n:TNap):TNap;

在程序主体中执行任何操作之前，请编写：

Pred := @PredNap;

这段代码的作用是，它创建一个新的函数指针，该指针的签名与PredNap（）相同，然后将PredNap（）的地址分配给该指针。因此，无论何时调用Pred（），实际调用的函数都是PredNap（）。希望这有帮助