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).