Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[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!!!