Die Typen der tatsächlichen und formalen Var-Parameter müsse

[grizzly]

[OT]
Nu ja, wenn ich sowas schreibe, sollte das für mein "a" nicht böse ausgehen:

Delphi-Quellcode:

a := 5;
Tausche(a, a);
IF a = 0 then
  ShowMessage('Das war ja wohl nix');

Das heißt aber, daß man theoretisch diese Tausch-Funktion wie folgt ändern müßte:

Delphi-Quellcode:

procedure tausch(var x,y:integer);
begin
  if x <> y then
    begin
      x := x xor y;
      y := y xor x;
      x := x xor y;
    end;
end;

Entschuldigung für das OT, aber der Bug hat mich mal ganz schön Nerven gekostet....

Gruß
Michael
[/OT]