Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[Lisaaaa]

Zitat:

Zitat von Lisaaaa (Beitrag 1387397)

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:

Zitat von hoika (Beitrag 1387400)

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

[LTE5]

Zitat:

Zitat von Lisaaaa (Beitrag 1387401)

Label9.Caption:=('Das Rezept ist in der Rezeptsammlung vorhanden!');
[IfThen(Gefunden,'','nicht ')]);

Du hast das falsch kopiert.
Im Original-Beitrag steht was anderes.

Einfach die Hälfte rauslöschen und dann sagen, dass es nicht funktioniert? :cyclops:

[TiGü]

Wo kommt denn auf einmal die repeat-until-Schleife her?

Bis eben war es noch ein for-Schleife und das hat problemlos funktioniert.

[LTE5]

28 http://www.delphipraxis.net/1387382-post28.html

[Lisaaaa]

Zitat:

Zitat von TiGü (Beitrag 1387403)

Wo kommt denn auf einmal die repeat-until-Schleife her?

Bis eben war es noch ein for-Schleife und das hat problemlos funktioniert.

Ich glaube ich lasse es, denn es funktioniert bisher leider mit keinem der Vorschläge. Vielleicht mache ich auch was falsch..

[LTE5]

Zitat:

Vielleicht mache ich auch was falsch..

Du Hast einfach Code gelöscht .. guck mal Beitrag 28. Du musst einfach nur kopieren und einfügen und NICHT dran rumfummeln.

[hoika]

Hallo,
nur nicht verzagen.

Delphi-Quellcode:

Gefunden:= False;  // das sieht schöner aus
i := Low(Rezept);  // beginnt also bei 1
repeat
  Gefunden := Pos(Gesucht,UpperCase(Rezept[i])) <> 0;
  Inc(i);

  // hier ist Gefunden entweder True oder False

until Gefunden or (i >= High(Rezept));

// hier ist Gefunden immer noch entweder True oder False

if Gefunden
  then //na was wohl, aber bitte ohne abschließendes Semikolon ???
  else //na was wohl ???

//Label9.Caption:= 'Das Rezept ist in der Rezeptsammlung vorhanden!';
//Label9.Caption:= 'Das Rezept ist in der Rezeptsammlung nicht vorhanden!';

Die na was wohl solltest du jetzt aber sinnvollem Label9.Caption ersetzen können, oder?


PS:
Label9.Caption:= Format('Das Rezept ist %sin der Rezeptsammlung vorhanden!',[IfThen(Gefunden,'','nicht ')]);
Das erklär mal dem Lehrer, da kennt er doch vielleicht gar nicht ...


Da fällt mir noch ein
until Gefunden or (i >= High(Rezept));
Muss das nicht (i > High(Rezept)); sein?