SUPPRIMERSUPPRIMERSUPPRIMERSUPPRIMERSUPPRIMER

Signaler
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
-
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/33681-supprimersupprimersupprimersupprimersupprimer

Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
13
Oulalala... c'est pas possible !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Quand est-ce que tu NOMMERAS TES COMPOSANTS ?????????
C'est pas compliqué !!!! De plus, on te l'a déjà dit plusieurs fois !!!!


Bon juste une chose, ces 10 procédures peuvent être remplacées par une seule:

----------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------
procedure TCALCULS1.Button1Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'1'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='1';
END;
END;
IF Enter=True THEN
Label1.Caption:='1';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button2Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'2'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='2';
END;
END;
IF Enter=True THEN
Label1.Caption:='2';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button3Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'3'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='3';
END;
END;
IF Enter=True THEN
Label1.Caption:='3';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button4Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'4'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='4';
END;
END;
IF Enter=True THEN
Label1.Caption:='4';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button5Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'5'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='5';
END;
END;
IF Enter=True THEN
Label1.Caption:='5';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button6Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'6'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='6';
END;
END;
IF Enter=True THEN
Label1.Caption:='6';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button7Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'7'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='7';
END;
END;
IF Enter=True THEN
Label1.Caption:='7';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button8Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'8'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='8';
END;
END;
IF Enter=True THEN
Label1.Caption:='8';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button9Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'9'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='9';
END;
END;
IF Enter=True THEN
Label1.Caption:='9';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;

procedure TCALCULS1.Button0Click(Sender: TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+'0'
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:='0';
END;
END;
IF Enter=True THEN
Label1.Caption:='0';
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;
----------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------

1- Mets la valeur de chaque bouton de 0 à 9 dans sa propriété Tag. Par exemple, pour le Button0, mets 0 dans le Tag, 1 pour le Button1, etc...
2- Assigne cette procédure dans le gestionnaire d'événements OnClick des boutons de 0 à 9 :


procedure TCALCULS1.BoutonsChiffresClick(Sender : TObject);
begin
IF Enter=False THEN BEGIN
IF Efface=False THEN
Label1.Caption:=Label1.Caption+IntToStr((Sender as TButton).Tag);
ELSE BEGIN
RegistreT:=RegistreZ;
RegistreZ:=RegistreY;
RegistreY:=RegistreX;
Label1.Caption:=IntToStr((Sender as TButton).Tag);
END;
END;
IF Enter=True THEN
Label1.Caption:=IntToStr((Sender as TButton).Tag);
Enter:=False;
Efface:=False;
RegistreX:=StrToFloat(Label1.Caption);
end;


Je n'ai pas plus regardé dans le détail, étant donné que l'on se perd dans les noms des composants non nommés correctement? Je reviendrais plus tard?