Ähnlichkeiten im String suchen???

[Bummi]

vielleicht willst Da das fertig basteln?

Delphi-Quellcode:

Function InString(search,S:String):Boolean;
var
  i:Integer;
  buffer:String;
begin
  S := UpperCase(s);
  search := Uppercase(search);
  for I := 1 to Length(S) do
      if not (S[i] in [#0..#32,'.','/','-']) then buffer := buffer + s[i];
  Result := Pos(search , Buffer) > 0;
end;