Hallo,
und dann bitte noch 2 Stellen optimieren
alt:
For s:=1 to 25 do
If Pos (Uppercase(Gesucht),UpperCase(Rezept[s]))<> 0 Then
neu:
For s:=Low(Rezept) to High(Rezept) do
If AnsiUpperPos(Gesucht,Rezept[s])<> 0 Then
Dann musst du bei einem neuen Rezept die 25 nicht jedesmal ändern.
Und Zählvariablen heissen immer
i
(Das war ein Scherz
)