ok war falsch ausgedrückt.. guck hier
Delphi-Quellcode:
function suche(buchstabe:string):integer;
begin
i:=1;
while a[i] <> buchstabe do Inc(i);
if i>nf then i:=-1;
result:=i;
end;
abbruchbedingung wenn mein zähler größer als die constante nf der arrays.. also laeuft er einmal mehr durch!