Zitat von
Thanatos81:
Man kann die for-Schleife noch los werden, und das andere Problem evtl. wie folgt lösen:
Delphi-Quellcode:
for l := 1 to length(s) do //string entschlüsseln (i ist der key der getestet wird)
s[l] := char(i Xor ord(s[l]));
if w.Strings.IndexOf(s) > 0 then
begin
//was halt bei einem Fund gemacht werden soll
end
else
for i := length(s)-1 downto 1 do
begin
t := Copy(s, 1, i);
if w.Strings.IndexOf(t) > 0 then
begin
//was bei einem Teilfund gemacht werden soll
end;
end;
delphi kennt den bezeichner "IndexOf()" nicht muss ich noch irgendwas extra einbinden ? welcher variablen typ ist "t" ?