A voir également:
- Programmation en delphi
- Delphi 7 - Télécharger - Langages
- Application de programmation - Guide
- Mettre en veille un programme - Guide
- Bde delphi - Télécharger - Édition & Programmation
- Veuillez attendre la fin de l'installation ou de la modification du programme en cours ✓ - Forum Windows
1 réponse
slt, je suis un programmeur en delphi je n'ai pas compris ta question, mais je peux vs donner le code de calculatrice,
déclaration des variable globale :
partie implementation
var v1,v2:real;
op:string;
//code pour les buttons 0,1,2,3.......9
button '1'
Begin
edit1.text:=edit1.text+'1';
end;
//même chose pour la suite des buttons
// code pour les buttons opérateurs /.*.-.+
Begin
v1:=StrToFloat(edit1.text)
op:='/';
edit1.text:='';
end;
//même chose pour la suite des buttons
//code pour le button =
Begin
V2:=StrToFlaot(edit1.text);
if op='+' then edit1.text:=flaottostr(v1+v2);
//la même condition pour les autres les opérateurs dans le même bloc bien sur (-.*./)
end;
// code pour cléar
Begin
edit1.clear;
v1:=0;
v2:=0;
edit1.seffocus;
end;
déclaration des variable globale :
partie implementation
var v1,v2:real;
op:string;
//code pour les buttons 0,1,2,3.......9
button '1'
Begin
edit1.text:=edit1.text+'1';
end;
//même chose pour la suite des buttons
// code pour les buttons opérateurs /.*.-.+
Begin
v1:=StrToFloat(edit1.text)
op:='/';
edit1.text:='';
end;
//même chose pour la suite des buttons
//code pour le button =
Begin
V2:=StrToFlaot(edit1.text);
if op='+' then edit1.text:=flaottostr(v1+v2);
//la même condition pour les autres les opérateurs dans le même bloc bien sur (-.*./)
end;
// code pour cléar
Begin
edit1.clear;
v1:=0;
v2:=0;
edit1.seffocus;
end;
