Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

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

[LTE5]

Zitat von Lisaaaa:

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?

[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 von TiGü:

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?

[LTE5]

KOPIEREN und unter deinem "ButtonXClick" EINFÜGEN, das ist alles.

Delphi-Quellcode:

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';

 Label9.Caption := 'Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
 for i := 1 to 25 do
  begin
   if Pos(UpperCase(Gesucht), UpperCase(Rezept[i])) <> 0 then
    begin
     Label9.Caption := 'Das Rezept ist in der Rezeptsammlung vorhanden!';
     Break;
    end;
  end;
end;

[Lisaaaa]

Zitat von 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?

Danke, Danke!!! Es funktioniert endlich Tausend Dank!!!

[Lisaaaa]

Hab nur noch eine Frage, wenn ich es in Worte fassen müsste, macht die Prozedur was genau ? Sie fängt bei dem 1. Rezept an, schaut/vergleicht es mit dem Array Inhalt und dann ? Inc? was bedeutet das?