string auf zahlen prüfen

[TypusMensch]

@braingrenade:

Nur um es hinzufügen zu wollen, damit keiner später noch einmal dumm nachfragt, warum dein Code nicht funzt. Dein Code funktioniert seltsamer Weise nur bei ab zweistelligen Zahlen. Eine einstellige Zahl z.B. 1 wird als alphanumerisch erkannt, nehmt als die einfache Version:

Delphi-Quellcode:

function isinteger (s:string) : boolean;
var i:integer;
begin
  result := true;
  for i := 1 to length(s) do begin
      if not (s[i] in ['-','0'..'9']) then begin
        result := false;
        exit;
      end;
  end;
end;

Fragt mich nicht wieso, habe den Code jetzt nicht weiter auseinander genommen. Habe dazu keinen Bock gehabt...