AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Neuen Beitrag zur Code-Library hinzufügen Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

Ein Thema von Lisaaaa · begonnen am 28. Nov 2017 · letzter Beitrag vom 30. Nov 2017
Antwort Antwort
Seite 2 von 7     12 34     Letzte » 
Lisaaaa

Registriert seit: 28. Nov 2017
18 Beiträge
 
#11

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:27
Wenn das gesuchte vorkommt. Sprich Wirsinggemuese Eingabe -> (im Array vorhanden):vorhanden
  Mit Zitat antworten Zitat
LTE5

Registriert seit: 13. Nov 2017
355 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#12

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:28
Dann so
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.
pos > 0 oder pos <> 0 ist hier also das Gleiche. (0 = nicht gefunden)

Aber warum die Position, welche ihr nicht wissen wollt?
Delphi-Referenz durchsuchenContainsStr
Delphi-Referenz durchsuchenContainsText
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#13

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:29
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!
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#14

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:30
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
Klaus

Geändert von Klaus01 (28. Nov 2017 um 15:33 Uhr)
  Mit Zitat antworten Zitat
Aviator

Registriert seit: 3. Jun 2010
1.610 Beiträge
 
Delphi 10.3 Rio
 
#15

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:31
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;
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#16

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:33
Süß wie alle sich auf das String-Problem stürzen.

Liebe Programmierkollegen: Es fehlt das BREAK in der SCHLEIFE!
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#17

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:37
Süß wie alle sich auf das String-Problem stürzen.

Liebe Programmierkollegen: Es fehlt das BREAK in der SCHLEIFE!
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
Klaus
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#18

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:38
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';
Heiko
  Mit Zitat antworten Zitat
Lisaaaa

Registriert seit: 28. Nov 2017
18 Beiträge
 
#19

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:39
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
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.400 Beiträge
 
Delphi 7 Professional
 
#20

AW: Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

  Alt 28. Nov 2017, 15:42
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;
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz