Speicheradressen von 2 Variablen Vertauschen?

[tHeRiAn]

Guten Morgen erstmal...

in nachfolgendem Codeschnippsel will ich einfach nur die Adressen der beiden Variablen vertauschen, und nun die Frage...Warum gehts net...hab auch jetzt ne Zeit lang gesucht aber nix im Forum gefunden...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ax,by: integer;
begin
  ax := 1;
  by := 9;
  label1.Caption := IntToStr(ax)+'   '+IntToStr(by);
  tausche(@ax,@by);
  Label2.Caption := IntToStr(ax)+'   '+IntToStr(by);
end;

procedure TForm1.tausche(a,b: pointer);
var
  ptemp: pointer;
begin
  ptemp := a;
  a := b;
  b := ptemp;
end;

schonmal vielen Danke für die Antworten
mfg therian

[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

[tHeRiAn]

hm, funzt net so wirklich...
braucht man in der deklaration denn keine Typen? und warum funzt meine Variante net...?

[Shaman]

Komisch, bei mir funktioniert es tip top...

[HeZa]

Hm..., die Adresse einer benannten Variablen kann man gar nicht ändern. Sieh dir mal die Fehlermeldung an wenn man deb folgenden Code ausführt.

Delphi-Quellcode:

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

procedure TForm1.FormCreate(Sender: TObject);
var
  ax,by: integer;
begin
  ax := 1;
  by := 9;
  label1.Caption := IntToStr(ax)+'   '+IntToStr(by);
  tausche(@ax,@by);
  Label2.Caption := IntToStr(ax)+'   '+IntToStr(by);
end;

[Shaman]

  tausche(@ax,@by); Ohne @-Zeichen, das ist ja das Schöne.

Gruss
Shaman

[Phantom1]

Und noch eine möglichkeit:

Delphi-Quellcode:

procedure Swap(var X, Y: Pointer);
asm
    mov ecx, [edx]
    xchg [eax], ecx
    mov [edx], ecx
end;

[tHeRiAn]

danke für die vielen Antworten....jetzt funktionierts

[HeZa]

Hi Shaman

Zitat von Shaman:

  tausche(@ax,@by); Ohne @-Zeichen, das ist ja das Schöne.

nur das du damit nicht die Adresse sondern nur den Wert der Variablen getauscht hast. Versuch folgendes und staune:

Delphi-Quellcode:

oldAdr := Integer(@ax);
Swap(ax,by);
if oldAdr = Integer(@ax) then ShowMessage('War wohl nichts.');

Ciao HeZa