CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

2 Emme topic sur delphi !

Nicoboss3
Nicoboss3
Niveau 6
23 décembre 2004 à 17:51:45

Salut je suis un débutant de chez débutant en delphi ! et j´arrive pas a faire un truc ! ; Je voudrais :

Que si edit1.text + edit2.text + edit3.text égal à 100 ( le chiffre ) alors ya un boutton qui s´active ( Button1.enabled:=true )

Merci de m´aider pour que je le sache une bonne fois pour toute !

:merci:

Nicoboss3
Nicoboss3
Niveau 6
23 décembre 2004 à 18:06:45

Je veux mettre cet événement dans onchange
Parce qu´a chaques fois sa me dit qu´il y a eu un bug . ... alors zut quoi :)

dnob700
dnob700
Niveau 10
23 décembre 2004 à 19:33:56

il doit y avoir une fonction val ou quelque chose dans le genre qui convertit le texte en chiffre, parceque le truc c´est que les propriété . text des boite de texte ne sont pas des variables numériques.

quand tu lui tape 100, l´ordi comprend " 100" c´est a dire le caractère ´1´ suivit du caractère ´0´ 2 fois. C´est comme si tu mettait cent. Il ne peut pas deviner que c´est un texte.

donc on suppose qu´il y a cette fonction val et alors tu fait : si val(edit1.text) + val(edit2.text) + val(edit3.text) égal à 100

mais je ne sais pas si cette fonction s´appelle comme ça.

Technix59
Technix59
Niveau 5
23 décembre 2004 à 19:38:03

C´est simple ça Nico, dans l´un des évènements TEdit.OnChange de l´un des 3 TEdit tu écriras le code suivant. Pour les 2 autres TEdit pas besoin de redondance de code, tu peux faire pointer via l´inspecteur d´objet, leur évènement OnChange sur le 1er TEdit.
Voici le code à entrer dans l´un des 3 TEdit:

procedure Edit1.Onchange(.....);
begin
Button1.Enabled:=
(
StrToInt(Trim(Edit1.Text)) +
StrToInt(Trim(Edit2.Text)) +
StrToInt(Trim(Edit3.Text))
) = 100;
end;

Technix59
Technix59
Niveau 5
24 décembre 2004 à 13:08:27

Nico, voici un petit détail supplémentaire pour le cas où tu ne ferais pas de contrôle de saisie sur les différents TEdit dans le TEdit.OnKeyPressed().
Tu peux éventuellement remplacer les TEdit par des TEditMask pour pallier à ce contrôle de saisie ou sinon modifier un peu le OnChange comme ça ( En intégrant un bloc d´exception):

procedure Edit1.Onchange(.....);
begin
TRY
Button1.Enabled:=
(
StrToInt(Trim(Edit1.Text)) +
StrToInt(Trim(Edit2.Text)) +
StrToInt(Trim(Edit3.Text))
) = 100;
EXCEPT
/ /Tu entres dans l´exception si l´une des conversions à merdé autrement dit si l´une des valeurs est non numérique.
Button1.Enabled:= False;
END;
end;

Sous forums
  • Aide à l'achat Mac
  • Macintosh
  • Création de Jeux
  • Programmation
  • Création de sites web
  • Linux
  • Internet
  • Steam Deck
  • Hardware
La vidéo du moment