En function til at tjekke om en string er et tal

Du kan hurtigt lave en..

Funtion StrIsInt(Str:String):Boolean;
var v,c:integer;
begin
  Val(str,v,c);
  Result:=(c=0);
end;

--

Desuden findes der i delhi en funktion der hedder:
Function StrToIntDef(str,defaultVærdigHvisStringenIkkeErEtTal):Integer;
Som kan bruges hvis at string ikke er et tal og den så bare skal f.eks 0.

Der kunne også bruges en

try
inttostr(streng);
except
showmessage('Strengen varIKKE et tal');
end;

FEJL!!!!

det er selvfølgelig

try
strtoint(streng);
except
showmessage('Strengen varIKKE et tal');
end;

som skal bruges...

volstrup>> Det er ineffentivt at bruge exceptions til at kontrollere om en streng er et tal. Prøv at lave en løkke med 100 kald til din kode, hvor strengen ikke er et tal og sammenlign hastigheden med snorga's kode...

Mvh

Den er helle ikke særlig sjov hvis delphi er sat til at "break"e på exceptions. For så stopper den uden at der er grund til det :(