Prozedur in Typendeklaration

[Christian Seehase]

Moin Niels,

ich auch, und das sieht dann so aus:

Delphi-Quellcode:

procedure New(var node: dNode);
begin
  // Was auch immer damit passieren soll
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  pWork : pNode;
  dWork : dNode;

begin
  pWork.new := @new;
  dWork     := @dWork;
  pWork.new(dWork);
end;

Klappt auch, obwohl ich die Wahl von new als Prozedurenamen ansonsten als unglücklich erachte, da es eine Prozedur gleichen Namens ja schon gibt.
BTW:
Den Recordtypen mit p beginnen zu lassen, und den zugehörigen Pointer mit d hat mich offengestanden ein klein wenig irritiert. Eigentlich beginnen Pointer mit p (besser P).