Hallo,
du warst doch fast fertig...
Wie sieht der Code jetzt komplett aus?
Dein letzter Post ist doch neuer Code.
<Ich bräuchte mal einen Kompletten Quelltext, ohne, dass was fehlt o.Ä.>
Den hattest du bei Deinem 1. Post schon fast.
Da fehlte nur u.a. das break.
procedure TForm1.Button6Click(Sender: TObject);
Var Rezept: array [1..25] of String;
i : Integer;
Gesucht : String;
Gefunden : Boolean;
begin
Gesucht:=UpperCase(Edit1.text);
Rezept[1]:='Apfelrotkohl';
Rezept[2]:='Apfelkuchen';
Rezept[3]:='Baerlauchhummus';
Rezept[4]:='Currywurst';
Rezept[5]:='Donauwelle';
Rezept[6]:='Eiersalat';
Rezept[7]:='Frikadellen';
Rezept[8]:='Gemuesepfanne';
Rezept[9]:='Heidelbeermarmelade';
Rezept[10]:='Italienischer_Nudelsalat';
Rezept[11]:='Jaegerschnitzel';
Rezept[12]:='Kuerbiscremesuppe';
Rezept[13]:='Linsensuppe';
Rezept[14]:='Mangomarmelade';
Rezept[15]:='Nudelauflauf';
Rezept[16]:='Omlette_mit_Tomaten';
Rezept[17]:='Pfifferlingsuppe';
Rezept[18]:='Quarkkeulchen';
Rezept[19]:='Rinderbraten';
Rezept[20]:='Schmandkuchen';
Rezept[21]:='Tomatensalat';
Rezept[22]:='Ungarisches_Gulasch';
Rezept[23]:='Vanillekipferl';
Rezept[24]:='Wirsinggemuese';
Rezept[25]:='Zucchinicremesuppe';
i := Low(Rezept);
repeat
Gefunden := Pos(Gesucht,UpperCase(Rezept[i])) <> 0;
Inc(i);
until Gefunden or (i >= High(Rezept));
Label9.Caption:=('Das Rezept ist in der Rezeptsammlung vorhanden!');
[IfThen(Gefunden,'','nicht ')]);
So sieht es bisher aus, allerdings verstehe ich das, was da steht eig kaum, habe in der schule nicht sonderlich viel davon gelernt. Eher Grundlagen:/