Programmation en delphi
Fermé
Bolangi1
Messages postés
3
Date d'inscription
mercredi 20 mai 2015
Statut
Membre
Dernière intervention
22 mai 2015
-
Modifié par Bolangi1 le 21/05/2015 à 06:39
nadirinfo - 20 déc. 2015 à 13:45
nadirinfo - 20 déc. 2015 à 13:45
A voir également:
- Programmation en delphi
- Telecharger delphi 7 - Télécharger - Langages
- Application de programmation - Guide
- Mettre en veille un programme - Guide
- Télécharger pilote autocom cdp+ usb delphi - Forum Pilotes (drivers)
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;
