Arrays vertauschen

[DeddyH]

Und wieder zurück zum Thema *g*. @Jonsen: Du solltest Dir gleich eine nachvollziehbare Einrückung angewöhnen, dann können auch andere Deinen Code besser lesen. Und ich persönlich würde das etwas anders machen:

Delphi-Quellcode:

procedure tauschen(var a, b: integer);
var temp: integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

//der Aufruf könnte dann so aussehen
for i := Low(ar) to High(ar) - 1 do
  tauschen(ar[i],ar[i + 1]);