Zitat von
sECuRE:
Edit: Folgende Funktion wird auch benötigt:
Delphi-Quellcode:
function IsNumber(const s:string): Boolean;
var c:integer;
const nums:string = '0123456789';
begin
result:=(length(s) > 0);
for c:=1 to length(s) do
if (Pos(copy(s,c,1),nums) = 0) then begin
result:=false;
Break;
end;
end;
Viel Spaß
Mach dich mal über
Val schlau. Das dürfte einfacher sein.
StrToInt in Verbindung mit try/except ginge auch. Deine andere Funktion habe ich mir nicht angeschaut. Zuviel für mich am Sonntag Morgen.
