bestimmtes element eines arrays nach einem wert durchsuchen

[SirThornberry]

ich kenn keine solche funktion, allerdings kann man das auch einfacher machen (ohne found-variable) - und vor allem ohne break was fast so beliebt ist wie globale Variable oder Goto's

Delphi-Quellcode:

function searcharray(array1:tarray;element1:telement;value1:string):integer; 
var i, len:integer; 
begin 
  len := length(array);
  result := -1;
  i := 0;
  while (i < len) and (result = -1) do
  begin
    if array1.element1[i] = value1 then
      result := i;
    inc(i);
  end;
end;