Einem record eine procedure zuweisen?

[Christian Seehase]

Moin Tau,

hier mal ein kleines Beispiel:

Delphi-Quellcode:

type
  TMyProc = procedure(parameter : integer);

  TMyRecord = record
    proc : TMyProc;
  end;

procedure PrintInt(AiValue : integer);
begin
  ShowMessage(IntToStr(AiValue));
end;

procedure TForm1.FormCreate(Sender: TObject);

var
  mr : TMyRecord;

begin
  mr.proc := PrintInt;
  mr.proc(1);
end;