Question

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

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 ......没有真正解决..

提前感谢：）

Answer 1

在你文件的某个地方声明：

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

在你执行程序正文之前，请写下：

Pred := @PredNap;

这段代码的作用是，它创建一个与PredNap（）具有相同签名的新函数指针，然后将PredNap（）的地址赋给该指针。因此，每当调用Pred（）时，调用的实际函数是PredNap（）。希望这会有所帮助。

如何更改已定义的函数的名称？ FE。 writeNap写（Pascal）

1 个答案: