Vertauschen von Pointern in einer Funktion

[Corpsman]

Das klappt nicht weil Integer kein Pointer ist.

Delphi-Quellcode:

type Pint = ^integer;

Procedure swap(Var p1, p2: Pint);
Var
  pdummy: Pointer;
Begin
  pdummy := p1;
  p1 := p2;
  p2 := pdummy;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var
  i1, i2: Pint;
Begin
  new(i1);
  new(i2);
  i1^ := 1;
  i2^ := 2;
  swap(i1, i2);
  showmessage('i1= ' + inttostr(i1^) + #13 + 'i2= ' + inttostr(i2^));
  dispose(i1);
  dispose(i2);
End;

Müste gehn.