@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...