Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[matashen]

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;