edit Feld auf ein bestimmtes Wort untersuchen

[newmusicslamer]

Hallo,

ich bin mir nicht ganz sicher ob das hier hingehört, da ich neu bin.
Mein Problem ist folgendes ich würde gerne ein edit Feld auf ein bestimmtes Wort in einem ganzen Satz z.Bsp. 'Weil Kakao und Baum' untersuchen, d.h.
ungefähr in der Form:

Code:

if edit1.text with = 'Weil' , 'Und' then label1.caption := 'Sehr Gut!' ;

jetzt nur als Beispiel.

Ich hoffe ihr könnt mir helfen.
newmusicslamer

[Popov]

Fast richtig:

if edit1.text = 'Weil' then label1.caption := 'Sehr Gut!' ; Wenn nicht, dann bitte etwas konkreter werden.

[newmusicslamer]

Ok, ich habe verstanden ich muss etwas genauer schreiben.

Danke an Popov für deine schnelle Antwort, aber ich meine, dass Der Text im edit Feld z.Bsp. 'Weil Kakao Und Baum' heißt und dann erkennt er dass Weil un Und enthalten sind und reagiert dann.

[vagtler]

Das sind absolute Grundlagen. Du kannst Bedingungen natürlich miteinander verknüpfen:

Code:

if (Bedingung1) and (Bedingung2) then ...

Ob ein Text in einem anderen enthalten ist kannst Du z.B. mit der Funktion

Code:

MatchText()

feststellen.

[Popov]

Wobei ich dir für den Vergleich von Texten SameText(Text1, Text2) empfehlen würde. Denn das normale

if 'Text' = 'Text' then ... klappt zwar, aber

if 'Text' = 'text' then ... würde nicht klappen. SameText beachten Groß- und Kleinschreibung nicht. Also

if SameText('Text', 'text') then Oder in deinem Fall

if SameText(edit1.text, 'Weil') and SameText(edit1.text, 'Und') then label1.caption := 'Sehr Gut!' ;

[Popov]

Zitat von vagtler:

Ob ein Text in einem anderen enthalten ist kannst Du z.B. mit der Funktion

Code:

MatchText()

feststellen.

Ist in Delphi 7 wohl nicht enthalten.

[vagtler]

Zitat von Popov:

[...] Ist in Delphi 7 wohl nicht enthalten.

Korrekt. Das habe ich (mal wieder) überlesen.

Mal ganz abgesehen davon, dass ich das gar nicht meinte. Ich meinte ContainsText() , aber das wird dann wahrscheinlich auch nicht in Delphi 7 enthalten sein.

Da wird der Threadersteller dann wohl mit Pos() arbeiten müssen, denn

Zitat:

if SameText(edit1.text, 'Weil') and SameText(edit1.text, 'Und') then label1.caption := 'Sehr Gut!' ;

wird niemals erfüllt sein können...

[silver-moon-2000]

Zitat von Popov:

if SameText(edit1.text, 'Weil') and SameText(edit1.text, 'Und') then label1.caption := 'Sehr Gut!' ;

Hier widerspreche ich Dir einfach mal, denn das würde nie funktionieren. SameText untersucht ja den gesamten String und nicht einen Teilstring.
if (edit1.text = 'Weil') and (edit1.text = 'Und')... ist ja identisch (bis auf Groß/Kleinschreibung) und das liefert auch immer False.

Zitat von Delphi OH:

Compares two strings by ordinal value without case sensitivity.

SameText compares S1 and S2 and returns True if they are equal.

Du meinst vielleicht eher ContainsText oder ContainsStr ?

[edit]roter kasten, where art thou?

[Popov]

Ok, ich hab den einen Satz mit dem Im-Satz überlesen.

Sorry, hier also eine Funktion die funktionieren wird:

Delphi-Quellcode:

function ContainsText2(SubText, Text: String): Boolean;
begin
  Result := Pos(AnsiUpperCase(SubText), AnsiUpperCase(Text)) > 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ContainsText2('weil', Edit1.Text) and ContainsText2('und', Edit1.Text) then
    Caption := 'Gut';
end;

[newmusicslamer]

Danke, Leute für eure Hilfe der Beitrag von Popov hat mir schließlich geholfen. Damit ist mein Problem gelöst!

*geschlossen*