Habs en bisschen kürzen können, aber ob der nun schneller is...
Delphi-Quellcode:
g := (w.IndexOf(s) > 0);
if not g then
for j := length(s)-1 downto 1 do
h := (w.IndexOf(Copy(s, 1, j)) > 0);
Ich weiß, die Audits werden mich für meinen Begin-End-Mangel hassen...