Suche im Array

[marabu]

Hallo,

wenn die Randbedingungen stimmen, dann ist eine sequentielle Suche im Array vertretbar:

Delphi-Quellcode:

function IndexOfMin(const Data: array of Integer): Integer;
var
  i: Integer;
begin
  Result := High(Data);
  for i := Low(Data) to Pred(High(Data)) do
    if Data[Result] > Data[i] then
      Result := i;
end;

Ist das Array groß und wird das Minimum öfter lokalisiert, dann sollte ein sortiertes Index-Array erstellt werden.

Grüße vom marabu