Thema: Delphi Array abfragen

Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#2

Re: Array abfragen

  Alt 31. Mär 2007, 18:22
Mit einem Array hast Du keine direkte Suchfunktion, das musst Du schon zu Fuss machen. Aber natürlich solltest Du die Suche in eine for-Schleife legen... Etwa so:
Delphi-Quellcode:
type
  TRouletteArray = array [1..40] of integer ;

var
  Zahl : TRouletteArray ;

function FindInArray (SearchFor : integer ; InArray : TRouletteArray) : integer ;
begin
     for Result := low(InArray) to high(InArray) do begin
         if InArray[Result] = SearchFor then
             exit ;
     end ;
     Result := -1 ;
end ;
FindInArray liefert dir dann den Index zurück, an der die suchende Zahl steht. Wird keine Zahl gefunden, so liefert die Funktion -1 zurück.
  Mit Zitat antworten Zitat