edit Feld auf ein bestimmtes Wort untersuchen

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

[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*

[DeddyH]

Du solltest die Funktionsparameter noch als const deklarieren, das dürfte effizienter sein.

[newmusicslamer]

@DeddyH Tschuldigung aber ich bin anfänger im programmieren. Wie meinst du das?

[DeddyH]

Delphi-Quellcode:

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

[Gustav.R]

Zitat von DeddyH:

Du solltest die Funktionsparameter noch als const deklarieren, das dürfte effizienter sein.

Ernstgemeinte Zwischenfrage, weshalb wird es dadurch effizienter

Dankeschön

GG

[DeddyH]

Ohne sonstige Angaben ist es ein Call By Value, d.h. es wird eine Kopie des Strings erstellt und übergeben. Mit einer Angabe (const, var, out) ist es ein Call By Reference, d.h. intern wird ein Zeiger auf die Originaldaten übergeben, ohne erst eine Kopie anlegen zu müssen.

[himitsu]

Wobei man aufpassen muß.
Diese Wort-Suche bezieht sich in ContainsText2 nicht auf ein ganzes Wort, sondern auf Textteile.

Weilheimer Hunde



@DeddyH: Das sind so um die 6 winzige Assemblerbefehler (INC, DEC und JZ/JNZ), da laß ich das const auch gerne mal weg, wenn dann der Code kürzer/übersichtlicher wird.