Une autre variante en gérant les erreurs de conversion:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
s :string;
i,j :integer;
begin
with TEdit(Sender) do
Type: Messages; Utilisateur: Andnotor
Une autre variante en gérant les erreurs de conversion:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
s :string;
i,j :integer;
begin
with TEdit(Sender) do
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.