Voilà , j´ai plusieures question à poser:
1) Comment on traduit en Delphi ´Quelquechose´?
( ex:si edit1.text:=QUELQUECHOSE alors on quitte)
un truc comme ´$´ ou un autre truc.
2) J´arrive à convertir du texte en hexa mais je voudrait faire en sorte que le programme vérifie que le nom entré est bien égal à la conversion de hexa contenue dans le deuxiemme EDit.(en fait y 2 edit, on doit rentrer son nom et un sérial et pour que sa affiche ´Enregistré´ , sa doit vérifier que le nom entré est bien égal à la conversion de hexa.

Voila le code ( TEXT=>HEXA) :
procedure TForm1.Button1Click(Sender: TObject);
var Nom: String;
i: Integer;
sum: Cardinal;
Taille: Integer;
begin
sum:= 1;
Nom := Edit1.Text;
Taille:=Length(Nom);
If ( Taille < 3) Or ( Taille > 10) Then
ShowMessage(´Minimum 3 caractères et macimum 10!´);
For i:=1 To Taille Do
sum := sum + 1 + Ord(Nom[i]);
Edit2.Text:=IntToHex(sum,3);
end;

Nico,
pour ta 1ère question c´est pas bien méchant.

• Tu déclares dans ton prog une variable de type String
• Tu initialises cette variable avec la valeur que tu veux ( e.g: Var strTest: String = ´KEKCHOSE´;)
• Sur l´évènement que tu veux, par exemple sur la sortie de Edit1 tu testes de la manière suivante:

IF Edit1.Text = strTest THEN Application.Terminate;

et pour ta 2ème question, la réponse est dans la 1ère sauf qu´au lieu de tester la variable strTest, tu testes l´égalité entre tes 2 TEdit.

Heu... Oui mais c´est a dire que comment je fait pour les faires tester ? ?