Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[TiGü]

Zitat:

Zitat von hoika (Beitrag 1387369)

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

Das ist genau die Art von Variablenbenennung und Codeformatierung, die man eigentlich nicht zeigen sollte. :roll:

[Klaus01]

und vielleicht noch auf Gleichheit prüfen.
Es soll ja nicht Vanille gefunden werden - sondern Vanillekipferl.

Grüße
Klaus

[Lisaaaa]

Hast du einen passenden Quelltext ? Problem: Eingabe von 'hjb jj' -> 'nicht vorh.' Danach sofortige Eingabe 'Apfelrotkohl' -> 'nicht vorhanden'...Habe den eindruck, das Programm führt nichts aus nachdem man erneut auf button klickt und es eig sagen müsste 'vorh.'

[LTE5]

Hier wurde schon einer geschrieben

Zitat:

Zitat von Delphi.Narium (Beitrag 1387371)

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;

[Lisaaaa]

Geht nicht. es sagt, dass es nicht vorhanden ist, egal ob es so ist oder nicht :(

[TiGü]

Zitat:

Zitat von Lisaaaa (Beitrag 1387377)

Geht nicht. es sagt, dass es nicht vorhanden ist, egal ob es so ist oder nicht :(

Zeig uns doch mal deine Konstanten (Apfelrotkohl, Currywurst...etc.).

Denn wenn ich das mal schnell runtertippe und die einzelnen Rezepte als Strings anstatt String-Konstanten schreibe, dann geht's:

[hoika]

Hallo,
und dann bitte noch 2 Stellen optimieren

alt:
For s:=1 to 25 do
If Pos (Uppercase(Gesucht),UpperCase(Rezept[s]))<> 0 Then

neu:
For s:=Low(Rezept) to High(Rezept) do
If AnsiUpperPos(Gesucht,Rezept[s])<> 0 Then

Dann musst du bei einem neuen Rezept die 25 nicht jedesmal ändern.

Und Zählvariablen heissen immer i
(Das war ein Scherz ;) )

[Delphi.Narium]

Delphi-Quellcode:

var
  Rezept   : array[1..25] of string;
  i        : Integer; 
  Gesucht  : String;
  Gefunden : Boolean;
begin
  Gesucht := UpperCase(Edit1.text);
  ...
  i := Low(Rezept);
  repeat
    Gefunden := Pos(Gesucht,UpperCase(Rezept[i])) <> 0;
    Inc(i);
  until Gefunden or (i > High(Rezept));
  Label9.Caption:= Format('Das Rezept ist %sin der Rezeptsammlung vorhanden!',[IfThen(Gefunden,'','nicht ')]);
end;

Die Variante aus http://www.delphipraxis.net/1387370-post19.html liefert bei mir korrekte Ergebnisse, wenn ich (ebenso wie TiGü) aus den Konstanten Zeichenfolgen mache.

[Lisaaaa]

String exceeds line wird mir angezeigt

[Delphi.Narium]

Wo?