Suchen in einer Liste

[alcaeus]

Hi Alex,

du musst den folgenden Typen deklarieren:
type TIntArray = array of Integer; Den Header musst du dann noch ändern in
function FindStringInListBox(Str: String; var a: TIntArray; iFlag: Integer): Integer; Und vor dem Ende der Funktion fügst du noch ein: Result := iFound; Anscheinend wird ein als array übergebener Parameter nicht als dynamisches Array behandelt. Mit dem Umweg über den Typ funktioniert es aber. Und die Funktion gibt jetzt auch noch die Anzahl der gefundenen Einträge zurück, so dass diese nicht immer über Length(a) herausgefunden werden muss.

Greetz
alcaeus