string auf zahlen prüfen

[braingrenade]

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;