String auf Zahlen überprüfen (aber ohne IN)

[Scorpion]

Vielen Dank, wüsstet ihr auch, wie ich das hier lösen kann ? Die Compare Methode geht auch nicht, hmmmm

//Hier wird überprüft, ob im String keine direkte Wiederholungen vorkommen, sonst
//wird ein false zurückgegeben

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;