Prozedur mit Referenzen

Wir haben bisher Prozeduren kennen gelernt, die Parameter als Werte bekommen (Eingabeparameter). Wenn die Prozedur verlassen wird, gehen auch die Werte der Parameter verloren.

Sollen die Parameter verändert werden, so dass sie nach Ablauf der Prozedur an der aufrufenden Stelle weiter benutzt werden können, dann muss man diese Parameter (Ausgabeparameter) als Referenzen an die Prozedur übergeben.

Deklaration:

procedure mache(var aus1,aus2: Integer);

Implementation:

procedure TForm1.mache(var aus1,aus2: Integer);
begin
  aus1 := ....
  aus2 := ....
end;

Aufruf:

mache(aus1,aus2);

Ein- und Ausgabeparameter können auch kombiniert werden. Die Eingabeparameter sollen immer an erster Stelle kommen, dann die Ausgabeparameter.

Deklaration:

procedure mache(ein1,ein2: Integer; var aus1,aus2: Integer);

Implementation:

procedure TForm1.mache(ein1,ein2: Integer; var aus1,aus2: Integer);
begin
  aus1 := ....
  aus2 := ....
end;

Aufruf:

mache(ein1,ein2,aus1,aus2);