prozedurvariable

[sakura]

Also folgender Code wird bei mir problemlos kompiliert und ausgeführt.

Delphi-Quellcode:

function Plus(X, C: Integer): Integer;
begin
  Result := X + C;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  F: function(A, B: Integer): Integer;
begin
  F := Plus;
  ShowMessage(IntToStr(F(1, 2)));
end;

......