Teilstrings abgleichen...

[g1o2k4]

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" ?