Hallo,
das
repeat until ist so ähnlich wie eine
for-Schleife.
Du hättest auch Deinen Code aus #1 nehmen können.
Delphi-Quellcode:
Gefunden:= False;
for i:= 1 to 25 do
// oder besser for i:= Low(Rezept) to High(Rezept) do
begin
Gefunden := Pos(Gesucht,UpperCase(Rezept[i])) <> 0;
if Gefunden then break;
end;
if Gefunden
then Label9.Caption := 'gefunden'
else Label9.Caption := 'nicht gefunden'
Bei dir ist es jetzt so.
i=1
Wiederhole
(Repeat)
Ermittle Rezept(i);
Inc(i) -> i=i+1 -> Nächstes Rezept
Solange (Until-Bedingung)
(Until)
Das
Repeat Until ist hier nicht notwendig, klappt aber auch statt der
For-Schleife.