[
ot]Was ist der Unterschied zwischen einem Hund?[/
ot]
In meinem Delphibuch (Delphi für kids) wurde das mithilfe einer Funktion erklärt, die zwei Variablen vertauschen sollte.
Delphi-Quellcode:
procedure Exchange(x,y: integer);
var
tmp: integer;
begin
tmp := y; // Wert von Y zwischenspeichern
y := x;
x := tmp;
end;
Diese Funktion könntest du jetzt z.b. so testen:
Delphi-Quellcode:
var
a,b: integer;
begin
a := 5;
b := 42;
ShowMessage(Format('a:%d; b:%d',a,b)); // Gibt aus: a:5; b:42
Exchange(x,y);
ShowMessage(Format('a:%d; b:%d',a,b)); // Gibt ebenfalls aus: a:5; b:42
end;
Der Wert der Variablen wird also nur innerhlab von der Procedure Exchange verändert, weil sie mit Kopien der Variablen arbeitet. Das ganze ist so natürlich etwas witzlos, denn die Procedure soll ja die Variableninhalte austauschen.
Also schreiben wir das ganze etwas um:
Delphi-Quellcode:
procedure Exchange(var x,y: integer);
// ^-- Hierauf achten, bitte
var
tmp: integer;
begin
tmp := y; // Wert von Y zwischenspeichern
y := x;
x := tmp;
end;
Diesmal arbeitet die Funktion nicht mit einer lokalen Kopie sondern sozusagen "am lebenden Objekt", also direkt mit den Variablen, die wir als Parameter angegeben haben. Wenn du jetzt die Testprozedur nochmals ausführst, solltest du beim zweiten ShowMessage die vertauschten Werte bekommen.
@Kasten: ey... gemein, jetzt hab ich mir so viel Mühe gegeben