FOR-Schleifen Problem

[Aphton]

Da wir schon Snippets posten

Delphi-Quellcode:

var
  rZahl: Array[0..15] of Integer;
  i, j, k: Integer;
  a: Array of Integer;
begin
  SetLength(a, Length(rZahl));
  for i := 0 to High(a) do
    a[i] := i;
  k := Length(a);
  for i := 0 to High(rZahl) do
  begin
    j := Random(k);
    rZahl[i] := a[j];
    a[j] := a[k-1];
    dec( k );
    txtRandoms.Text := txtRandoms.Text + IntToStr( rZahl[i] ) + '; ';
  end;
end;