Wieso funktioniert das hier mit OUT?

[Popov]

Nach meinem Verständnis übergeben mit out deklarierten Variablen keine Werte, bzw. werden diese vorher gelöscht. Wieso funktioniert das hier?

Delphi-Quellcode:

type
  Txy = (x, y);

procedure Test(out xy: Txy);
begin
  if xy = x then ShowMessage('x') else ShowMessage('y');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  xy: Txy;
begin
  xy := y; // mal x, mal y
  Test(xy);
end;

//Edit:

Weil es keine Variable ist und nur die Adresse übergeben wird?

[SirThornberry]

out löscht nichts sondern ist einfach zu Verdeutlichung das über den Parameter ausschließlich Werte zurück gegeben werden.

[Bummi]

versuch mal das ...

Delphi-Quellcode:

procedure Test(out xy: String);
begin
  ShowMessage(xy);
end;


procedure Test2(var xy: String);
begin
  ShowMessage(xy);
end;

procedure TForm4.Button1Click(Sender: TObject);
const
  C_S= 'Schau mal da';
var
 s:String;
begin
  s := C_S ;
  Test(s);
  Test2(s);


  s := C_S;
  Test(s);
  s := C_S;
  Test2(s);
  s := C_S;

end;