Sujet Précédent Sujet Suivant

SUPPRIMERSUPPRIMERSUPPRIMERSUPPRIMERSUPPRIMER

ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 7 sept. 2005 à 10:18
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 7 sept. 2005 à 10:18

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

ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 12
7 sept. 2005 à 10:18

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?

Votre réponse