Herrausfinden, ob im String ein bestimmtest wort vorhanden

[Christian18]

Wie kann ich herrausfinden, ob in einem bestimmten string ein bestimmtest wort vorhanden ist???

Also:

Wort: Test

String: Das ist ein kleiner Test.

Funktion soll in diesem Fall True zurückgeben.

MFG Christian18

[Sharky]

Hai Christian,

das kannst Du über die Funktion Pos machen:

Delphi-Quellcode:

function WortInString (const awort, astring :string) : boolean;
begin
  result := Pos(awort,astring) > 0;
end;

[Christian18]

Zitat von Sharky:

Hai Christian,

das kannst Du über die Funktion Pos machen:

Delphi-Quellcode:

function WortInString (const awort, astring :string) : boolean;
begin
  result := Pos(awort,astring) > 0;
end;

OK, danke funktioniert

[DaFox]

Die einfachste und intuitivste Lösung ist, wie Sharky es oben schreibt, das Suchwort per Pos() zu ermitteln. Einer der effizientesten dürfte aber Boyer-Moore Horspool sein.

Gruß,
Markus

[Christian18]

Hallo,

ich bins nochmal. Eine Frage habe ich noch. Bei der oben genannten Variante muss das wort wirklich richtig geschrieben sein. was ist wenn das wort klein geschrieben wird und dann aber im text das wort groß ist. kann man das auch noch irgendwie berücksichtigen???

Bsp.

Wort: cola

Text: Ich möchte gerne eine Cola haben.

MFG Christian18

[BenjaminH]

Delphi-Quellcode:

function WortInString (const awort, astring :string) : boolean;
begin
  result := Pos(Uppercase(awort),uppercase(astring)) > 0;
end;

[leddl]

Schau dir mal die Funktion LowerCase bzw. UpperCase genauer an.

//Edit:
Ups, da hätte ich vielleicht vor dem Antworten nochmal refreshen sollen

[Sharky]

Hai,

zu Sicherheit dann lieber so:
result := Pos(AnsiLowerCase(awort),AnsiLowerCase(astring)) > 0;