Moin !
Eine funtion die genau das gegenteil prüft hab ich schon mal geschrieben
(musst du halt umschreiben) :
Delphi-Quellcode:
function isinteger(input : string): bool;
var
i :integer;
begin
result := true;
i:= 1;
repeat
if input[i] in ['0'..'9'] then i:=i+1 else
begin
result := false;
break;
end;
until i = length(input);
end;