[Frage] ArrayIndex nach Werten sortiert ausgeben

[Uwe Raabe]

XE2 bietet da doch schon was aus der Kiste:

Delphi-Quellcode:

uses
  System.Generics.Collections, System.Generics.Defaults, System.Math;

var
  A: TArray<Integer>;
  B: TArray<Integer>;
  I: Integer;
begin
  A := TArray<Integer>.Create(5, 8 ,9, 7, 6);

  SetLength(B, Length(A));
  for I := 0 to High(B) do
    B[I] := I;

  TArray.Sort<Integer>(B, TDelegatedComparer<Integer>.Create(
    function(const Left, Right: Integer): Integer
    begin
      result := CompareValue(A[Left], A[Right]);
    end));
end;