tal kontrol?

Rigtigt. Men det er nemt at tjekke om der er - eller + i starten, og for den sags skyld også om det er hex.
Det går an på hvad han skal bruge det til. Jeg gav ham blot et simpelt alternativ, som ikke benytter exceptions på den måde som du gør, hvilket jo af nogle vil betegnes som fy fy. Ikke at jeg ikke kan finde på at bruge din metode (Hvis du ikke havde forslået den havde jeg ), men man kan da give et alternativ.

btw. findes der en parser til regulære udtryk i delphi/pascal? Den kunne være brugbar i et tilfælde som denne og mange andre.

Der findes sikkert et regex unit til delphi et sted men jeg har ikke set et. Der følger dog et med til Freepascal. Hvis du henter sourcen ligger den også der ucompilet

Hvad med :
TryStrTo...
f.eks:
if TryStrToFloat(txt) or TryStrToInt(txt) then
// Yes this is a number

Den her bruger jeg:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#8, '0'..'9']) then begin
ShowMessage('Du kan kun skrive tal');
Key := #0;
end;
end;

function IsNumber(s: string): boolean;
var i: integer;
begin
   result := true;
   try
      i := strtoint(s);
   except
      result := false;
   end;
end;

Ikke en køn eller særlig smart metode, men nem

En noget kønnere måde: (Den bruger i hvert fald ikke exceptions )

function isNumber(s: string): boolean;
var
  i: integer;
begin
  for i := 1 to length(s) do
    if not (char(s[i]) in ['0'..'9']) then
    begin
      Result := false;
      exit;
    end;
  Result := true;
end;

Peter, din metode tager ikke højde for minus og hex numre

Hvis du ville bruge strengen fra en TEdit, kunne du altid bruge ES_NUMBER.