Ich muss schnell (!) herausfinden ob ein Array einen bestimmten Wert beinhaltet.
normalerweise geht das ja mit for-schleifen aber das ist zuuu langsam ...
Und sowas wie

if 50 in IntegerArray then ... scheint ja nicht zu gehen

Du wirst um eine for-Schleife nicht herumkommen.. es sei denn, du wandelst dein Array in einen String um und suchst in dem String nach deinem Wert, aber das is noch lahmer

Bei einem Array geht das nur mit der for-Schleife. Aber vielleicht kannst du was mit einer Menge anfangen (set of).

Zitat von Neutral General:

Ich muss schnell (!) herausfinden ob ein Array einen bestimmten Wert beinhaltet.
normalerweise geht das ja mit for-schleifen aber das ist zuuu langsam ...
Und sowas wie
if 50 in IntegerArray then ... scheint ja nicht zu gehen

Mengenoperation sind auf Mengen mit max 256 Elementen beschränkt. (Also Mengen kannst du vergessen)
Das Suchen in einem Array lässt sich massiv Beschleunigen, wenn man mit Zeigern arbeitet.

zusammenfalten · markieren

Delphi-Quellcode:

// ungetestet, da direkt hingeschrieben
function SearchArray(const a:array of Integer; sv:integer):Integer;
var
   p : ^integer;
begin
   p := @a[Low(a)];
   for i := Low(a) to High(a) do
   begin
      if p^ = sv then
      begin
         Result := i;
         Exit;
      end;
      Inc(p);
   end;
   Result := -1; // nix gfunden
end;

Ich verstehe deinen Code leider nicht weil ich Zeiger nicht verstehe
Deswegen werde ich ihn auch nicht einsetzten
Naja ich hab die Frage wegen einer Simulation gestellt die ich gerade am programmieren bin und wenn der PC da rumrechnet dann wird das Ergebnis verfälscht und das ist wohl nicht Sinn einer Simulation

Zitat von shmia:

Zitat von Neutral General:

Ich muss schnell (!) herausfinden ob ein Array einen bestimmten Wert beinhaltet.
normalerweise geht das ja mit for-schleifen aber das ist zuuu langsam ...
Und sowas wie
if 50 in IntegerArray then ... scheint ja nicht zu gehen

Mengenoperation sind auf Mengen mit max 256 Elementen beschränkt. (Also Mengen kannst du vergessen)
Das Suchen in einem Array lässt sich massiv Beschleunigen, wenn man mit Zeigern arbeitet.

zusammenfalten · markieren

Delphi-Quellcode:

// ungetestet, da direkt hingeschrieben
function SearchArray(const a:array of Integer; sv:integer):Integer;
var
   p : ^integer;
begin
   p := @a[Low(a)];
   for i := Low(a) to High(a) do
   begin
      if p^ = sv then
      begin
         Result := i;
         Exit;
      end;
      Inc(p);
   end;
   Result := -1; // nix gfunden
end;

Brauchst du gar nicht machen, das macht der Delphi-Compiler in schnellen Schleifen automatisch.