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?