Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[himitsu]

Zitat von Lisaaaa:

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?
ContainsStr
ContainsText

[Lisaaaa]

Ich will quasi, dass mein Programm, wenn Eingabe edit Feld und Array übereinstimmen, im Label ausgibt ‚vorhanden‘ wenn dies nicht der Fall ist ‚nicht vorhanden.. bisher funktioniert leider kein Vorschlag. Habt ihr noch mehr Ideen ? Würde mich freuen wenn ich es gelöst bekommen

[LTE5]

Zitat:

wenn Eingabe edit Feld und Array übereinstimmen

Wenn Gesucht vorkommt oder übereinstimmt ?

[Lisaaaa]

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

[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

[LTE5]

Dann so

Zitat von himitsu:

Zitat von Lisaaaa:

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

[Aviator]

Zitat von Lisaaaa:

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.

Liebe Programmierkollegen: Es fehlt das BREAK in der SCHLEIFE!

[Klaus01]

Zitat von TiGü:

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