NofStr ist eine Function und kein String. Steht doch mit in eddys Source.
Zitat:
Delphi-Quellcode:
[..]
{liefert 0 ... n zurück, wenn s in sarr gefunden wurde, -1, wenn nicht}
function NofStr( s : string; sarr : array of string) : integer;
var
erg, i : integer;
begin
erg := -1;
s := uppercase(s);
for i := 0 to high(sarr) do begin
if s = uppercase(sarr[i]) then begin
erg := i;
break;
end;
end;
Result := erg;
end;
Wenn du das so übernommen hast musst du die Function nur noch entweder im Interface-Teil deiner
Unit Eintragen
function NofStr( s : string; sarr : array of string) : integer;
oder über die andere Funktion verschieben, in der der Aufruf stattfindet.