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
