Herrausfinden, ob im String ein bestimmtest wort vorhanden

[BenjaminH]

Delphi-Quellcode:

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