Vertauschen von Pointern in einer Funktion

[Alexander Roth]

Hi,

also, ich habe schon im Forum gesucht und auch gute Lösungen zum Vertauschen von Variablen gefunden.

Doch es wäre ideal wenn man nur die Pointer auf die Speicherbereiche verschiebt. So könnte man unabhängig von der Größe der eigentlichen Variable, die Pointer vertauschen. Notfalls mit einem Hilfspointer.

Und das ab besten in einer Funktion kapseln.

Kurzum ich will ungefähr so was, doch leider funktioniert das nicht:

Delphi-Quellcode:

procedure swap(var p1,p2:Pointer);
var pdummy:Pointer;
begin
  pdummy:=p1;
  p1:=p2;
  p2:=pdummy;
end;

aufrufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i1,i2:integer;
begin
  i1:=1;
  i2:=2;
  swap(@i1,@i2);
  showmessage('i1= '+inttostr(i1)+#13+'i2= '+inttostr(i2));
end;

Wie kann man so was realisieren?

Gruß Alexander

[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.

[Alexander Roth]

Klappt.

Aber Ich will ja ganz normale Variablen (Integer, String, etc..) vertauschen.
Da zeigt doch auch ein Pointer nähmlich @int auf int. Oder sehe ich das falsch?

[Corpsman]

@int gibt dir die Addresse an der die Variable im Stack oder Heap gespeichert ist.

Die kannst du aber keinesfalls als Var Parameter übergeben.

[Alexander Roth]

Schade. Also ist es nicht möglich für alle Typen die Pointer zu vertauschen?

[Corpsman]

für Pointer Typen bestimmt.

Delphi-Quellcode:

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

Müste in meinem Codebeispiel auch gehn. Weil Pint ja in Pointer ist.

Aber für Nicht Pointertypen kriegst du das bestimmt net hin. Zumindest weis ich net das es geht.

[Texas]

schau doch mal in der Hilfe unter

Zeiger im Überblick

[Alexander Roth]

Zitat von Texas:

schau doch mal in der Hilfe unter

Zeiger im Überblick

In Bezug worauf?

Gruß Alexander

[shmia]

Man könnte zuerst eine allgemeine Procedure schreiben:
procedure MemSwap(a,b : Pointer, Size:Integer); Damit kann man dann schreiben:

Delphi-Quellcode:

procedure SwapInt(var a,b: integer);
begin
   MemSwap(@a, @b, sizeof(Integer));
end;

So kann man für andere Datentypen (double, Boolean, ...) dann weitermachen.
Spätestens aber bei Strings, dynamischen Arrays und Objekten versagt dann diese Methode.

[3_of_8]

Wieso? Strings, dyn. Arrays, Objekte kann man ganz einfach vertauschen, genauso wie einen Integer.

Ich würds übrigens so machen:

Delphi-Quellcode:

procedure SwapMemory(var a, b; size: Cardinal=0);
var I, max: Cardinal;
begin
  if size=0 then size:=sizeof(a);
  I:=0;
  max:=(ALength div 4)*4-1;
  while I<=max do
  begin
    PCardinal(Cardinal(ADst)+I)^:=PCardinal(Cardinal(ASrc)+I)^;
    inc(I, 4);
  end;
  case ALength+4-I of
    1: PByte(Cardinal(ADst)+I)^:=PByte(Cardinal(ASrc)+I)^;
    2: PWord(Cardinal(ADst)+I)^:=PWord(Cardinal(ASrc)+I)^;
    3:
      begin
        PWord(Cardinal(ADst)+I)^:=PWord(Cardinal(ASrc)+I)^;
        PByte(Cardinal(ADst)+I+2)^:=PByte(Cardinal(ASrc)+I+2)^
      end;
  end;
end;