Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[Delphi.Narium]

Da fehlt am Ende das '

Rezept[1]:='Apfelrotkohl;

[Lisaaaa]

Es sagt nun, das 'Rezept'nicht gefunden wird

[LTE5]

Zitat von Delphi.Narium:

Da fehlt am Ende das '

Rezept[1]:='Apfelrotkohl;

Solche Nachrichten gehen leider vollkommen unter, da immer mehr unnötige Sachen gepostet werden.

[Lisaaaa]

Die Variable 'rezept' wird nicht gefunden. Warum ??

[LTE5]

Weil du sie nicht mehr deklariert hast.

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
Var i : Integer;
Gesucht : String;
Gefunden : Boolean;
begin

So sah es vorher aus.

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
Var Rezept:array[1..25] of string;
s:Integer;
Gesucht:String;
begin

nichts für ungut. Aber Grundwissen bezüglich Variablen-Deklaration sollte eigentlich vorhanden sein.

[Lisaaaa]

Ich habe noch nicht sehr lang Informatik Unterricht, aber ja.
,[IfThen(Gefunden,'','nicht ')]);end; -> so steht es in Meinem Programm ...aber es fehlt ja was bei dem Teil, was muss ich da eig rein schreiben?

[Lisaaaa]

Zitat von Lisaaaa:

Ich habe noch nicht sehr lang Informatik Unterricht, aber ja.
,[IfThen(Gefunden,'','nicht ')]);end; -> so steht es in Meinem Programm ...aber es fehlt ja was bei dem Teil, was muss ich da eig rein schreiben?

Ich bräuchte mal einen Kompletten Quelltext, ohne, dass was fehlt o.Ä.

[LTE5]

Zitat:

Ich bräuchte mal einen Kompletten Quelltext, ohne, dass was fehlt o.Ä.

Ist das jetzt nicht ein bisschen unverschämt?

Ließ dir bitte die letzten 4 Seiten durch.

[hoika]

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.

[Lisaaaa]

Zitat von hoika:

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:/