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 ?