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

Aide sur du code DELPHI pour débutant !

Nicoboss3
Nicoboss3
Niveau 6
16 octobre 2004 à 17:09:52

Bonjour a tous ! jexplique !
je suis debutant en Delphi et j´ai fait un petit programme pour voir un peux les fonctionnalités et en fait ya une barre ou on doit rentrer un code ( 123456789)et s´il est bon sa affiche un mess. qui dit " bon code" et sa efface le texte " NON ENREGISTRE" par " ENREGISTRE"
s´il est pas bon sa afiche un mess. qui dit " mauvais code ! "
ok, et j´ai aussi mi un bouton en dessous de la zone de texte: c´est lui que vérifie ! et je lui ai mit sa en code :
procedure TCODE.Button1Click(Sender: TObject);
begin
if Edit1.Text=(´123456789´)then
begin
Label1.Caption:=(´ENREGISTRE´)
end
else showmessage(´Mauvais mot de passe ! ´);

end;

Mais j´arrive pas a mettre l´action que va afficher " Bon code" ! !
je sais pas ou le mettre ! !

[Lindel]
[Lindel]
Niveau 7
16 octobre 2004 à 18:22:52

Essaye avec ça :

procedure TCODE.Button1Click(Sender: TObject);
begin
if Edit1.Text = ´123456789´ then
begin
Label1.Caption:= ´ENREGISTRE´;
showmessage(´Bon code :)´);
end
else
begin
Label1.Caption := ´NON ENREGISTRE´;
showmessage(´Mauvais mot de passe ! ´);
end;
end;
end;

DasHuhn
DasHuhn
Niveau 10
16 octobre 2004 à 18:45:32

Lindel... ce pseudo me dit vaguement qqchose.

[Lindel]
[Lindel]
Niveau 7
17 octobre 2004 à 11:13:51

Hé =)

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