Teilstrings abgleichen...

[g1o2k4]

die rechendauer ist mit zu lang, ich machs umgekehrt:

prüfe ob das wort an stelle "m" der wortliste in t (=dem entschlüsselten wort s) enthalten ist.

Delphi-Quellcode:

if w.IndexOf(s) > 0 then
          begin
            g := true;
          end
          else
          begin
            t := TStringList.create;
            t.Add(s);
            for m := 0 to w.Count - 1 do
            begin
              if t.IndexOf(w[m]) >= 0 then
              begin
                h := true;
              end;
            end;
          end;

aber irgendwie ist da noch ein denkfehler, oder ?
ist t = s ? oder funktioniert dieses prinzip grundsätzlich nicht ?