Speicheradressen von 2 Variablen Vertauschen?

[tHeRiAn]

Guten Morgen erstmal... :thumb:

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 :spin:

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

Delphi-Quellcode:

  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:

Zitat von Shaman

Delphi-Quellcode:

  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