n'autoriser que des chiffres dans un edit

Salut, j'ai un edit, et j'ai mis ce code pour qu'on ne puisse y entrer que des chiffres :

procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
If (not(Key in [#8,'0'..'9'])) then Key   := #0;
end;

Seulement, on peut toujours faire un coller et là il va y avoir un problème dans mon application.

Comment faire soit pour interdire le collage dans l'edit, soit pour vérifier qu'il n'y a que des chiffres dans l'edit grâce à l'évènement edit1exit ?

Merci

Utilise un MaskEdit, tu te feras moins ch***

bonne prog

Salut,

Ou alors comme tu le souhaite, tu peux utiliser l'évenement OnChange de ton Edit.

procedure TForm1.MonEditChange(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to Length(MonEdit.Text) do
    if not (MonEdit.Text[i]  in ['0'..'9']) then
   begin
     MonEdit.Text:='';
     Exit;
   end;
end;

Si tu ne te plantes pas ......
tu ne poussera jamais

j'ai un message d'erruer avec ton code dès que j'entre un chiffre

merci bcp florenth ça marche !!!

Je me peux mette

procedure TForm1.Edit1Change(Sender: TObject);
var nombre: integer;
begin
  If not TryStrToInt(Edit1.Text, nombre) then  Edit1.Text := '';
  // TryStrToFloat pour les réels
end;

le probleme c'est qu'a la moindre erreur ca efface tout...
Donc voila une autre solution qui tient la route

private
  MemoireTexte: string;
  MemoirePosition: integer;

procedure TForm1.FormCreate(Sender: TObject);
var nombre: integer;
begin
  If not TryStrToInt(Edit1.Text, nombre) then Edit1.Text := '';
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  MemoireTexte := Edit1.text;
  MemoirePosition:= Edit1.SelStart;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var nombre: integer;
begin
  If not TryStrToInt(Edit1.Text, nombre)
    then begin
      Edit1.Text := MemoireTexte;
      Edit1.SelStart := MemoirePosition;
    end;
end;