Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

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

[Delphi.Narium]

Anstelle der Zeile mit IfThen eventuell:

Delphi-Quellcode:

  case Gefunden of
    true : Label9.Caption := 'Das Rezept ist in der Rezeptsammlung vorhanden!';
    false: Label9.Caption := 'Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
  end;

Mein Delphi kommt mit dem IfThen zurecht.

Im Original steht nicht

Delphi-Quellcode:

Label9.Caption:=('Das Rezept ist in der Rezeptsammlung vorhanden!');
[IfThen(Gefunden,'','nicht ')]);

sondern Label9.Caption:=Format('Das Rezept ist in der Rezeptsammlung vorhanden!',[IfThen(Gefunden,'','nicht ')]); Format ist eine Funktion, die zur parametrisierten Ausgabe von Zeichenfolgen dient.

IfThen ist eine Funktion, die abhängig vom Wahrheitsgehalt des ersten Parameters den zweiten oder dritten Parameter ausgibt.

IfThen('ist dieses hier wahr','gebe diese aus','ansonsten jenes');
IfThen(1 = 2,'richtig','falsch');
IfThen(Gefunden,'','nicht ');
Wenn also in der vorherigen Schleife nichts gefunden wurde, so ist Gefunden = false und es wird nicht ausgegeben. Wurde etwas gefunden, so wird nur ein Leerstring (also '') ausgegeben.

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

[Delphi.Narium]

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

Inc(i) entspricht i := i + 1

Die Prozedure sucht in dem Array Rezept nach der ersten Übereinstimmung von Suchbegriff und Rezepteinträgen. Dabei wird die Groß-/Kleinschreibung ignoriert.

Am Ende wird ausgegeben, ob der Suchbegriff gefunden wurde oder nicht.

Um zu verstehen was die Routine macht, setze Dich hin und kommentiere jede Zeile, schreib zu jeder Zeile im Kommentar, was sie macht. Ähnlich wie hoika es in seinem Beispiel tat und gib Dich erst zufrieden, wenn wirklich jede Zeile kommentiert ist. Schreibe zu jeder Variabel, warum sie deklariete wurde und welche Aufgabe sie im weiteren Verlauf der Routine erfüllen soll.

Ausnahme ist das Befüllen des Arrays, hier reicht ein Kommentar für alle identischen Zeilen.

Wenn Du die Kommentare in verständlichem Deutsch schreibst, ergibt sich daraus fast von alleine die von Dir gewünschte Beschreibung zur Prozedur.

Sollte Dir das nicht gelingen, dann frag nach! Ein "Ich hab' ja fast alles verstanden bis auf ..." darf es nicht geben.

Das erscheint eventuell erstmal etwas übertrieben, aber es erhöht den Lerneffekt kolossal.

Und dass Du

Zitat von Lisaaaa:

Bin leider in Info nicht allzu begabt

schreiben musst, erledigt sich dann fast von alleine. Wenn Du Dich anstrengst sagen die anderen dann später:

Zitat von die anderen:

Frag mal Lisaaaa, die ist in in Info begabt!

Bei uns heißt es immer: Programmierung ist 3% Inspiration und 97% Transpiration.
Oder anders formuliert: Mit Fleiß, Geduld und Genauigkeit erreicht man hier sehr vieles.

[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