Sharkys Funktion sollte funktionieren, allerdings mit zwei Einschränkungen :
1) Als Delimiter zwichen zwei Wörtern setzt er ein Leerzeichen voraus, d.h. bei
str1 := 'Otto Harfe spielt gern.';
str2 := 'Otto spielt gern Harfe am Wochenende';
würde es nicht mehr klappen, denn das letzte Wort der str1 nach dem Split wäre "gern." (mit dem Punkt am Ende).
2) Durch den direkten Vergleich mit Pos() werden auch Substrings gefunden, d.h. bei
str1 := '
Ot Harfe spielt gern';
str2 := 'Otto spielt gern Harfe am Wochenende';
würde er sagen, is OK den '
Ot' ist in 'Otto' enthalten.
Zum splitten der Wörter würde ich eher die Formel aus Deinem Code vom Swiss-Center benutzen und beim Vergleich, wie schon oben geschrieben das Pos leicht verändern.
MfG.
Lutz