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 4 von 7   « Erste     234 56     Letzte » 
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#31

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

  Alt 28. Nov 2017, 16:21
String exceeds line wird mir angezeigt
Dann hast du vermutlich irgendwo ein
Code:
'
vergessen oder zu viel.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
Lisaaaa

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

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

  Alt 28. Nov 2017, 16:25
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
Var 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';
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 ')]);
So habe ich es eigegeben, es funktioniert nicht. :/ Bin leider in Info nicht allzu begabt
Hoffe das es bald geht, ihr eine Lösung meines Problems findet

Geändert von mkinzler (29. Nov 2017 um 17:44 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
1.752 Beiträge
 
Delphi 7 Professional
 
#33

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

  Alt 28. Nov 2017, 16:27
Da fehlt am Ende das '

Rezept[1]:='Apfelrotkohl;
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.772 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#34

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

  Alt 28. Nov 2017, 16:28
So habe ich es eigegeben, es funktioniert nicht. :/ Bin leider in Info nicht allzu begabt
Hoffe das es bald geht, ihr eine Lösung meines Problems findet
Zähle mal die '
Wenn die Zahl ungerade ist, dann fehlt dir eins.

Tipp: Das fehlende ' ist in den ersten 10 Zeilen deiner Methode zu suchen!
  Mit Zitat antworten Zitat
matashen

Registriert seit: 29. Jan 2007
Ort: daheim
453 Beiträge
 
Delphi XE2 Enterprise
 
#35

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

  Alt 28. Nov 2017, 16:28
Hallo,

damit ich auch meinen Senf dazu gebe - ungetestet
denn das mit dem Array ist Käse, geht alles wesentlich eleganter und einfacher, vor allem wenn du etwas erweitern willst
Delphi-Quellcode:
//Stringliste definieren
var meineRezepte: TStringlist;

//.. Instanz erzeugen im OnCreate
meinerezepte:=TStringlist.create;

//.. Etwas hinzufügen
meineRezepte.add('Lieblingsessen');

//.. Suchen
if meineRezepte.indexof('Lieblingsessen')<>-1 then vorhanden

//..Läßt sich statt Edit auch mit Combobox und Autovervollständigung nutzen
//.. Die Strings bekommst du dann rein mit
Combobox1.items.addstrings(meineRezepte);

//.. und wenn du das abspeichern willst
meineRezepte.Savetofile('Zieldatei');

//..zum Beispiel über einen Dialog
if savedialog1.execute then meineRezepte.Savetofile(savedialog1.filename);


// Du kannst genauso durch deine Stringliste mit einer Forschleife und Pos wenn du das willst und musst dich auch um die Anzahl der Gerichte nicht kümmern
gefunden:=false;
for i:=0 to meineRezepte.count-1 do if pos('eingabe',meineRezepte[i])>0 then gefunden:=true;
Matthias
Das Leben ist eines der härtesten.
  Mit Zitat antworten Zitat
Lisaaaa

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

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

  Alt 28. Nov 2017, 16:28
Es sagt nun, das 'Rezept'nicht gefunden wird
  Mit Zitat antworten Zitat
LTE5

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

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

  Alt 28. Nov 2017, 16:29
Da fehlt am Ende das '

Rezept[1]:='Apfelrotkohl;
Solche Nachrichten gehen leider vollkommen unter, da immer mehr unnötige Sachen gepostet werden.
  Mit Zitat antworten Zitat
Lisaaaa

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

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

  Alt 28. Nov 2017, 16:31
Die Variable 'rezept' wird nicht gefunden. Warum ??
  Mit Zitat antworten Zitat
LTE5

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

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

  Alt 28. Nov 2017, 16:32
Weil du sie nicht mehr deklariert hast.
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
Var i : Integer;
Gesucht : String;
Gefunden : Boolean;
begin
So sah es vorher aus.
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
Var Rezept:array[1..25] of string;
s:Integer;
Gesucht:String;
begin
nichts für ungut. Aber Grundwissen bezüglich Variablen-Deklaration sollte eigentlich vorhanden sein.
  Mit Zitat antworten Zitat
Lisaaaa

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

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

  Alt 28. Nov 2017, 16:37
Ich habe noch nicht sehr lang Informatik Unterricht, aber ja.
,[IfThen(Gefunden,'','nicht ')]);end; -> so steht es in Meinem Programm ...aber es fehlt ja was bei dem Teil, was muss ich da eig rein schreiben?
  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 +2. Es ist jetzt 13:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf