KUN Integer i Editbox!

type
  TCharSet = set of Char;


procedure ValidateEdit(Edit: TEdit; ValidChars: TCharSet = ['0'..'9']);
var
  s: string;
  i: Integer;
begin
  s := Edit.Text;
  for i := 1 to Length(s) do
    if not (s[i] in ValidChars) then
      Delete(s, i, 1);
  Edit.text := s;
  Edit.SelStart := Length(s);
end;

Du kan bruge val funktionen for at checke om den indtastede værdi er et tal således:
skriv dette i onclick i en knap eller i exit på edit-feltet:
Var
v,code : Integer;
Begin
        val(edit.text,v,code);
        if code <> 0 Then
        Begin
        Showmessage('Venligst indtast kun tal);
        edit.SetFocus;
        end
        else
        Begin
        //lav andengrads udregning her
        end;
end;

Mvh

PigBear

Din idé virkede sq godt pigbear.... dejligt og simpelt, og det virker bare!

jonathan_andersen>> Den kommer du sq nok til at forklare !

borrisholt>> Hvorfor? Jeg kunne ikke få dit til at virke! Hans metode var mere simpelt, og derfor valgte jeg det.... jeg ser ikke problemet!!!