Hallo,
damit ich auch meinen Senf dazu gebe - ungetestet
denn das mit dem Array ist Käse, geht alles wesentlich eleganter und einfacher, vor allem wenn du etwas erweitern willst
Delphi-Quellcode:
//Stringliste definieren
var meineRezepte: TStringlist;
//.. Instanz erzeugen im OnCreate
meinerezepte:=TStringlist.create;
//.. Etwas hinzufügen
meineRezepte.add('Lieblingsessen');
//.. Suchen
if meineRezepte.indexof('Lieblingsessen')<>-1 then vorhanden
//..Läßt sich statt Edit auch mit Combobox und Autovervollständigung nutzen
//.. Die Strings bekommst du dann rein mit
Combobox1.items.addstrings(meineRezepte);
//.. und wenn du das abspeichern willst
meineRezepte.Savetofile('Zieldatei');
//..zum Beispiel über einen Dialog
if savedialog1.execute then meineRezepte.Savetofile(savedialog1.filename);
// Du kannst genauso durch deine Stringliste mit einer Forschleife und Pos wenn du das willst und musst dich auch um die Anzahl der Gerichte nicht kümmern
gefunden:=false;
for i:=0 to meineRezepte.count-1 do if pos('eingabe',meineRezepte[i])>0 then gefunden:=true;