procedure tauschen

[Luckie]

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.