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?

markieren

Delphi-Quellcode:

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

Vielen Dank im voraus

Hi,

schau mal nach der function "pos"

Hallo,

dafür ['0'..'9'] das:

markieren

Delphi-Quellcode:

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

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

zusammenfalten · markieren

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;