Prozedur aus einer anderen Prozedur aufrufen

[Mikkey]

Zitat von baumina:

Was meinst du denn jetzt genau? Hast du dafür mal ein Beispiel?

Ich meinte sowas:

Delphi-Quellcode:

type
  TFunc=Function(): Integer;

Function Bar(): Integer;
begin
  Result := 42;
end;

var
  pFunc: TFunc;
  funcResult: Integer;
begin
  pFunc := Bar;
  funcResult := pFunc;
end.

Aber mit dem aktuellen XE7 funktioniert das, beim Delphi7 hat er aber AFAIR noch gemault, dass er Typ Funktion nicht in Integer verwandelt könne.

[baumina]

OK, sowas gabs unter TurboPascal noch nicht.

[himitsu]

Delphi führt an vielen Stellen eine automatische (De)Referenzierung durch.

* Prozedurvariablen
* zuweisen von Prozedurzeigern (x:=@proc = x:=proc)
* Record-Pointer ... sobald da ein Punkt folgt, kann man das ^ weglassen (p^.x = p.x)
(nur bei mehrfachen Pointern muß man aufpassen)
Ist vorallem praktisch, da man den Code später fast problemlos auf Daten-Objekte/Interfaces umstellen kann.