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

[Scorpion]

Hallo, ich würde gerne einen string auf Zahlen überprüfen, jedoch mache ich das mit PascalSkript, welches die In-Funktion nicht kennt. Wie kann ich das denn anderes realisieren?

Delphi-Quellcode:

Result := False;
for i := 1 to length(s) do
    if s[i] in ['0'..'1'] then
      Result := True

Vielen Dank im voraus

[uwewo]

Hi,

schau mal nach der function "pos"

[Lannes]

Hallo,

dafür

Delphi-Quellcode:

['0'..'9']

das:

Delphi-Quellcode:

if (s[i] >= '0') and (s[i] <= '9') then
  //...

[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;