Enable := False TIL alle bukstaver men ikke TAL

procedure TForm1.Edit1Change(Sender: TObject);
var
  I: integer;
  temp: string;
begin
  temp:=\'\';
  for I:=1 to length(edit1.text) do begin
    if (edit1.text[I] in [\'0\'..\'9\']) then
      temp:=temp+edit1.text[I];
  end;
  edit1.text:=temp;
  edit1.selstart:=length(edit1.text);
end;

//Der findes nok også en nemmere ... men den her virker :)

Mvh. _DJ_

Takker igen =)

En lidt mere generel løsning kunne udformes som følger :

procedure ValidateEdit(Sender: TEdit; ValidChars : String =\'0123456789\');
var
  i: integer;
  Buf : string;
begin
  Buf:=\'\';
  for i :=1 to Length(Sender.Text) do
    if Pos(Sender.Text[i], ValidChars) <> 0 then
      Buf:=Buf+Sender.Text[i];

  Sender.Text:=Buf;
  Sender.SelStart:=Length(Sender.Text);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ValidateEdit(Sender as TEdit);
end;


Jens B