Delphi-Quellcode:
procedure Swap(var value1, value2: Integer);
var
temp: Integer;
begin
temp := value1;
value1 := value2;
value2 := temp;
end;
Du musst die Parameter als var Parameter übergeben, damit die Speicheradressen übergeben werden und dort die Werte direkt zu ändern.