Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[Lisaaaa]

Wenn das gesuchte vorkommt. Sprich Wirsinggemuese Eingabe -> (im Array vorhanden):vorhanden

[LTE5]

Dann so

Zitat:

Zitat von himitsu (Beitrag 1387359)

Zitat:

Zitat von Lisaaaa (Beitrag 1387355)

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

Wieso überhaupt so ein Vergleich?

Ihr wollt nicht di Position wissen, sondern nur ob was drin ist.

Delphi-Quellcode:

pos > 0

oder

Delphi-Quellcode:

pos <> 0

ist hier also das Gleiche. (0 = nicht gefunden)

Aber warum die Position, welche ihr nicht wissen wollt?
ContainsStr
ContainsText

[TiGü]

Schreib mal bitte folgendes (die drei ... natürlich nicht hinschreiben, ist eine verkürzte Darstellung!):

Delphi-Quellcode:

for ... do 
if ... then
  begin
    Label9.Caption := 'Hier steht dein Text';
    Break; // <--- das wird der entscheidende Punkt sein!
  end else
...

Du verlässt die Schleife nicht im Erfolgsfall. Darum musst du ein Break hinmachen!

[Klaus01]

Zitat:

Wenn das gesuchte vorkommt. Sprich Wirsinggemuese Eingabe -> (im Array vorhanden):vorhanden

dann musst Du auf Gleichheit prüfen
Gesucht = ArrayElement[x]

Oder sameText() verwenden.

Grüße
Klaus

[Aviator]

Zitat:

Zitat von Lisaaaa (Beitrag 1387360)

bisher funktioniert leider kein Vorschlag. Habt ihr noch mehr Ideen ?

Ich glaube eher, dass du die Vorschläge falsch umsetzt. Poste doch mal den Delphi Code in Delphi Tags. Der Helm über dem Editor im Forum. Das sieht dann so aus.

Code:

[DELPHI]
  // Dein SourceCode hier
[/DELPHI]

Dann sieht der SourceCode gleich viel besser und viel lesbarer aus.

Delphi-Quellcode:

if (Pos(StringPart, MainString) <> 0) then begin
  // Do something
end;

[TiGü]

Süß wie alle sich auf das String-Problem stürzen. :twisted:

Liebe Programmierkollegen: Es fehlt das BREAK in der SCHLEIFE! 8-)

[Klaus01]

Zitat:

Zitat von TiGü (Beitrag 1387367)

Süß wie alle sich auf das String-Problem stürzen. :twisted:

Liebe Programmierkollegen: Es fehlt das BREAK in der SCHLEIFE! 8-)

Nur ob es mit einem Break getan ist?
Wenn das Element das letzte der Liste ist, gibt es 24 x mal die Ausgabe "nicht gefunden/enthalten".

Grüße
Klaus

[hoika]

Hallo,
auch mit dem break ist der Code nicht so schön lesbar.

Delphi-Quellcode:

var
  bGefunden: Boolean;
begin
  bGefunden:= False;
  for do
  begin
    if bla then
    begin
      bGefunden := True;
      break;
    end;
  end;

  if bGefunden
    then Label9.Caption := 'gefunden'
    else Label9.Caption := 'nicht gefunden';

[Lisaaaa]

procedure TForm1.Button6Click(Sender: TObject);
Var Rezept:array[1..25] of string;
s:Integer;
Gesucht:String;
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;
For s:=1 to 25 Do
If Pos (Uppercase(Gesucht),UpperCase(Rezept[s]))<> 0 Then
begin
Label9.Caption:='Das Rezept ist in der Rezeptsammlung vorhanden!';
Break;
end
Else
begin
Label9.Caption:='Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
end;
end;

So sieht es jetzt aus. Wenn ich zuerst was eingebe, was nicht vorhanden ist zeigt es dann an '...nicht vorh.'. Aber wenn ich dann etwas eingebe was vorhanden ist, auf den button klicke, passiert nichts und das '...nicht vorh.' bleibt stehen !:O

[Delphi.Narium]

Delphi-Quellcode:

Label9.Caption:='Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
For s:=1 to 25 Do 
begin
  If Pos (Uppercase(Gesucht),UpperCase(Rezept[s]))<> 0 Then
  begin
    Label9.Caption:='Das Rezept ist in der Rezeptsammlung vorhanden!';
    Break;
  end;
end;