Speicheradressen von 2 Variablen Vertauschen?

[Shaman]

Hoi

Delphi-Quellcode:

procedure Swap(var A, B);
var
  C: Pointer;
begin
  Move(A, C, SizeOf(C));
  Move(B, A, SizeOf(C));
  Move(C, B, SizeOf(C));
end;

So sollte es gehen. Braucht dann auch kein @ beim Aufruf.

Gruss
Shaman