Überprüfung: Wiederholung von Zeichenketten im String

[Hawkeye219]

Hallo Nico,

hier ist mein Versuch:

Delphi-Quellcode:

function CheckString (const s: string): Boolean;
var
  idx, len: Integer;
begin
  Result := False;
  for idx := 1 to Length(s) - 1 do
    for len := 1 to (Length(s) + 1 - idx) div 2 do
      if CompareMem(@s[idx], @s[idx + len], len) then
        Exit;
  Result := True;
end;

Gruß Hawkeye