Hi, ich will mit folgendem Code überprüfen, ob Teile eines Strings direkte Wiederholungen haben, wie z.B AnAn oder 123123
Delphi-Quellcode:
function CheckDoubles(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;
Nur leider verwende ich PascalScript, was den Befehl
CompareMem nicht kennt. Wie könnte ich denn diese Funktion anderes schreiben, damit es funktioniert ?
Vielen Dank