Prüfen, ob Edit nur aus Zahlen besteht

[Amateurprofi]

Oder so :

Delphi-Quellcode:

function IsNumeric(s:String):Boolean; 
var i:Integer; 
begin 
  Result:=False; 
  for i := 1 to Length(s) do 
    if not (s[i] in ['0'..'9']) then exit; 
  Result:=True; 
end;

oder so (einschließlich Prüfung auf 24 Bit RGB-Werte)

Delphi-Quellcode:

function IsColorValue(s:String):Boolean; 
var v:cardinal; vc:integer 
begin 
  Val(s,v,vc)
  result:=(vc=0) and (v<=$FFFFFF);
end;