Procedure mit Rückgabe wert schreiben

[Treffnix]

Über var-Parameter.

Delphi-Quellcode:

Procedure gibmirnezahl( var Zahl: Real );
Begin
  Zahl:= 5.5;
End;

Procedure Execute;
var MeinReal;
Begin
  gibmirnezahl( MeinReal );
End;