Procedure mit Rückgabe wert schreiben

[Christian18]

Hallo,

kann man mit Delphi auch eine Procedure mit einen Rückgabewert vom Typ Real Deklarieren??? wenn ja wie???

Mit freundlichen Grüßen

Christian

[Treffnix]

Über var-Parameter.

Delphi-Quellcode:

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

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

[tommie-lie]

Alternativ als Funktion (just to be sure):

Delphi-Quellcode:

function gibmirnezahl: Real;
begin
  Result := 5.5;
end;

procedure Execute;
  var MeinReal;
begin
  MeinReal := gibmirnezahl;
end;

[runningsoft]

Zitat:

Zitat von Treffnix

Über var-Parameter.

Delphi-Quellcode:

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

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

Seit welcher Delphi-Version haben denn Prozeduren Rückgabewerte?
Das ist mir neu.

In Deinem Quelltext ist die Variable "Zahl" doch der Wert, der der Prozedur selbst übergeben wird, und nicht ein Wert, den die Prozedur zurückgibt.


Steffen

[CalganX]

Hi Steffen,
in gewisser Weise schon, weil der Parameter mit var deklariert wird. Dadurch wird dort keine Konstante (oder eine Variable mit einem Wert) übergeben, sondern nur eine Variable, der einen Wert übergeben wird. Es ist also eher ein Rückgabewert, als ein Parameter (vom Verständnis her). ;)

Chris

[Dax]

Diese var-Parameter in Prozeduren gibt's schon seit TurboPascal, und die Prozedur kann diesen Wert auch lesen. Wenn du willst, das der Wert nicht gelesen werden kann, kannst du ihn alternativ als out deklarieren.