Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[LTE5]

Dein If ist irgendwie ganz komisch.

Muss das nicht eher so sein?
if Pos(UpperCase(Gesucht), UpperCase(Rezept[s])) > 0 then > 0 bedeutet, dass "Gesucht" in "Rezept[s]" vorkommt.
> 0, weil wenn Gesucht Wirsing ist und Rezept[s] Wirsinggemuese, dann ist das W von Wirsing an Position 1 gefunden worden.
= 0 bedeutet, dass Gesucht nicht gefunden wurde.

[Lisaaaa]

Wieso ausgerechnet „>“? Muss die Arbeit ich verteidigen deshalb die Frage 😅

[LTE5]

Zitat:

> 0, weil wenn Gesucht Wirsing ist und Rezept[s] Wirsinggemuese, dann ist das W von Wirsing an Position 1 gefunden worden.

Deshalb.

Gesucht: Wirsing
Rezept[s] = Wirsinggemuese

Resultat: Wirsinggemuese

Pos = 1 in diesem Fall, da die Zählung bei 1 beginnt (W = erster Buchstabe in Wirsinggemuese).

Deshalb auf > 0 testen.
Und = 0 heißt dann "nicht gefunden".

[TiGü]

Mit dem Handy den Bildschirm abfotografieren kenne ich so nur aus der Generation 50+.
Weißt du nicht, wie du in Windows einen Screenshot erstellen kannst?

https://www.youtube.com/watch?v=a6B3cDCg5CU

[Lisaaaa]

Bin neu hier und mache das hier grad alles auf dem Handy, deshalb mit bild!

[p80286]

Zitat von TiGü:

Mit dem Handy den Bildschirm abfotografieren kenne ich so nur aus der Generation 50+.
Weißt du nicht, wie du in Windows einen Screenshot erstellen kannst?

https://www.youtube.com/watch?v=a6B3cDCg5CU

Du machst Dir Freunde.

Gruß
K-H

[hoika]

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.

[DeddyH]

Wobei Repeat-Until eine Fußschleife darstellt, d.h. die Schleifenbedingung wird erst nach dem ersten Durchlauf überhaupt geprüft. Das kann zu unerwünschten Nebenwirkungen führen, wenn man das auf leere Listen bzw. Arrays loslässt.

[TiGü]

Zitat von p80286:

Zitat von TiGü:

Mit dem Handy den Bildschirm abfotografieren kenne ich so nur aus der Generation 50+.
Weißt du nicht, wie du in Windows einen Screenshot erstellen kannst?

https://www.youtube.com/watch?v=a6B3cDCg5CU

Du machst Dir Freunde.

Gruß
K-H

Ich hätte einschränkend schreiben sollen, dass dies selbstverständlich nicht für Leute aus dem IT-Umfeld - so wie du einer bist - gilt.
Ich setzte dies stillschweigend voraus.

Aber frage doch mal deine gleichaltrigen Verwandten, Bekannten und Freunde, die einen Beruf im Nicht-IT-Umfeld haben/hatten, ob sie mal ein Abbild von ihren PC-Desktop machen können und lass dich überraschen was da kommt.

[p80286]

Zitat von TiGü:

Aber frage doch mal deine gleichaltrigen Verwandten, Bekannten und Freunde, die einen Beruf im Nicht-IT-Umfeld haben/hatten, ob sie mal ein Abbild von ihren PC-Desktop machen können und lass dich überraschen was da kommt.

Die Kollegen aus der Abteilung die ich betreut habe, waren nicht virtuos im Umgang mit dem Screenshotprogramm, aber ein Foto mit dem Smartphone ist mir noch nicht unter gekommen. Gleiches gilt auch für meinen Bekanntenkreis. Da lebe ich wohl auf einer Insel der Glückseligen.

Gruß
K-H