Funktion Needle und Array übergeben - aber generisch

[Uwe Raabe]

Der Rückgabewert von 0 für nicht gefunden ist vielleicht etwas ungeschickt, da er nicht von der erfolgreichen Suche nach dem ersten Elements unterschieden werden kann. Besser wäre es da wie anderswo auch eine -1 zurückzugeben.

Ich würde das analog aufbauen wie TArray.BinarySearch aus System.Generics.Collection:

Delphi-Quellcode:

interface

uses
  System.Generics.Default;

type
  TMyArray = class
  public
    class function IndexOf<T>(const Values: array of T; const Item: T): Integer; overload; static;
    class function IndexOf<T>(const Values: array of T; const Item: T; const Comparer: IEqualityComparer<T>): Integer; overload;
        static;
    class function IndexOf<T>(const Values: array of T; const Item: T; const Comparer: IEqualityComparer<T>; Index, Count:
        Integer): Integer; overload; static;
  end;

implementation

uses
  System.RtlConsts;

class function TMyArray.IndexOf<T>(const Values: array of T; const Item: T): Integer;
begin
  Result := IndexOf<T>(Values, Item, TEqualityComparer<T>.Default,
    Low(Values), Length(Values));
end;

class function TMyArray.IndexOf<T>(const Values: array of T; const Item: T; const Comparer: IEqualityComparer<T>): Integer;
begin
  Result := IndexOf<T>(Values, Item, Comparer,
    Low(Values), Length(Values));
end;

class function TMyArray.IndexOf<T>(const Values: array of T; const Item: T; const Comparer: IEqualityComparer<T>; Index, Count:
    Integer): Integer;
var
  I: Integer;
begin
  if (Index < Low(Values)) or ((Index > High(Values)) and (Count > 0))
    or (Index + Count - 1 > High(Values)) or (Count < 0)
    or (Index + Count < 0) then
    raise EArgumentOutOfRangeException.CreateRes(@SArgumentOutOfRange);

  Result := -1;
  for I := Index to Index + Count - 1 do begin
    if Comparer.Equals(Values[I], Item) then
      Exit(I);
  end;
end;

[gammatester]

Zitat von Uwe Raabe:

Der Rückgabewert von 0 für nicht gefunden ist vielleicht etwas ungeschickt, da er nicht von der erfolgreichen Suche nach dem ersten Elements unterschieden werden kann. Besser wäre es da wie anderswo auch eine -1 zurückzugeben.

Das wäre nicht wesentlich geschickter, da ja auch -1 im Array vorhanden sein kann. Es wird ja nicht der Index des übereinstimmenden Wertes geliefert, der darüber hinaus noch nicht mal eindeutig sein muß.

[TiGü]

Da braucht man nicht mal einen Compiler, um zu sehen, dass dies nicht kompiliert .
Mach aus T1 und T2 ein einzigen Parameter T und als Rückgabewert Boolean. True für gefunden und fertig.
Beachte auch die Hinweise auf den Comparer. Wenn dir das unklar ist, frag bitte nach.

[Uwe Raabe]

Zitat von gammatester:

Es wird ja nicht der Index des übereinstimmenden Wertes geliefert, der darüber hinaus noch nicht mal eindeutig sein muß.

Ja, jetzt sehe ich es auch.

Wäre in dem Fall nicht ein Boolean als Rückgabewert geschickter? Im vorliegenden Fall würde ja auch eine 0 zurückkommen, wenn nach 0 gesucht wird, diese aber im Array nicht vorkommt.

[Delphi.Narium]

Die Funktion kann man nur als boolesche Funktion implementieren. Bei allem anderen numerischen besteht die Gefahr, dass der Rückgabewert 0 für nicht gefunden auch als Wert im Array vorkommen kann und damit der Rückgabewert der Funktion nicht korrekt ist.

Statt Boolean könnte man natürlich auch 0 für nicht gefunden und 1 für gefunden definieren (oder was man sonst noch eindeutig unterscheiden kann). Aber der Rückgabewert darf nicht ein Wert aus dem Array sein, der dem Rückgabewert für nicht gefunden entsprechen kann.

[DieDolly]

Die Lösung aus Nummer 4 gefällt mir schon ganz gut denn sie ist mit mehreren Datentypen verwendbar.
Aber leider lässt es sich nicht kompilieren. Die Fehlermeldung im ersten IndexOf lautet

Es gibt keine überladene Version von 'TMyArray.IndexOf<T>', die man mit diesen Argumenten aufrufen kann

[Uwe Raabe]

Zitat von DieDolly:

Die Lösung aus Nummer 4 gefällt mir schon ganz gut denn sie ist mit mehreren Datentypen verwendbar.
Aber leider lässt es sich nicht kompilieren. Die Fehlermeldung im ersten IndexOf lautet

Es gibt keine überladene Version von 'TMyArray.IndexOf<T>', die man mit diesen Argumenten aufrufen kann

Fixed! Es muss natürlich TEqualityComparer heißen.

[DieDolly]

Da war ich wohl blind.
Denn der Parameter in der dritten überladenen Funktion ist vom Typ IEqualityComparer.