probleme du boolean

Version imprimable

02/08/2006, 23h50
Nadirov

probleme du boolean

salut

j'ai finit pour les integer et maintenan je veut mettre du boolean :
voila j'ai 2 edit " edi1 , edit2" et un boutton

j'ai mis ce bout de code c'est marche pas :

Citation:

procedure TForm1.Button1Click(Sender: TObject);
var
a:boolean;
r:double;
begin
a:=BoolToStr(edit1.texte);
r:=a*2;
edit2.text:=floattostr(r)
end;

ben je veut entrer dans l'edit 1 un nombre comme 2.5 , et puis le multiplier par 2 et avoir le resultas finale dans edit2

Citation:

par exemple : 2.5*2=5

svp aidez moi
03/08/2006, 00h10
Jipété

Citation:

ben je veut entrer dans l'edit 1 un nombre comme 2.5
a:boolean;
a:=BoolToStr(edit1.texte);

Mais comment veux-tu que ça fonctionne ?
Tu fais les choses à l'envers et n'importe comment !

Tu veux mettre 2.5 dans l'Edit1, mais 2.5 ce n'est pas une valeur booléenne !
Le booléen, c'est oui-non, vrai-faux, 0-1 et basta !
Alors, ton 2.5, hein !

Ensuite, en admettant que tu aies entré "1" (valeur booléenne),
pourquoi veux-tu le transformer en string (BoolToStr) ???

Et tu pourras jamais le recopier dans ton "a", puisque tu le définis comme boolean, celui-ci.

Sans vouloir t'offenser, je crois que tu devrais t'acheter un bouquin sur la prog, comme beaucoup ont fait, et en avant la lecture, et la comprenette ! :roll:

JP
03/08/2006, 00h20
Nadirov

je peut savoir quoi faire pour entrer un nombre en virgule dans l'edit ?
03/08/2006, 00h57
Jipété

Citation:

je peut savoir quoi faire pour entrer un nombre en virgule dans l'edit ?

Bien sûr !
En plus c'est très simple : il te suffit de le taper ! :lol:
Ensuite, c'est à toi de savoir quoi en faire, et personne d'autre ne peut le savoir à ta place.
Tu noteras au passage qu'un nombre à virgule est un nombre, c'est-à-dire quelque chose de légèrement différent d'une chaîne, telle que retournée par la propriété "Text" de ton Edit.

Permets-moi d'insister, plutôt que de poser des questions niveau maternelle et d'attendre la réponse, je crois vraiment que tu devrais t'acheter un bouquin sur la prog, comme beaucoup ont fait, et en avant la lecture, et la comprenette !
Sinon, la touche F1 c'est pas mal aussi (OK, des fois les exemples ne fonctionnent pas, mais bon, on cherche, on trouve...)
JP
03/08/2006, 02h07
slimjoe

Est-ce qu'il te serait possible d'énoncer un objectif plus large stp ? Je ne comprends pas pourquoi tu cherches à multiplier un booléen par 2 ;)

Pour ce qui est de la conversion des réels en chaînes, il faut faire attention au séparateur de décimales. Parfois c'est un point parfois une virgule. Si dans ton edit tu n'utilises pas le bon séparateur, il est certain que c'est pour planter :).
03/08/2006, 09h02
Rayek

Tu trouveras >>> ici <<< plein de tutoriaux qui permettront de combler tes lacunes aux niveaux de la programmation en delphi.
03/08/2006, 10h03
SegmentationFault

eh les gars, ça se voit qu'il débute alors doucement, lol ;)

Bon, si j'ai bien compris! t'as un edit1 où tu insère un nombre. tu clique sur un bouton, alors le nombre inséré est multiplié par deux et écrit sur edit2.

dans l'évènement, onclick du bouton, tu écris:
edit2.Text := FloatToStr(StrToFloat(edit1.Text) * 2);

il reste un problème, cette fonction marchera si tu écris comme nombre : '1', '2', '3,5'... mais pas '3.5' car le séparateur par default de décimal est ',' et non '.'

pour résoudre le problème, il y en a qui changent le séparateur par default, mais personnellement je fais de sorte que c'est le ',' qui est écrit dans le edit1 meme si on tape '.' . je ne sais pas si je me suis fais comprendre, mais essaye d'ajouter ce bout de code dans l'évènement onkeypress de ton edit1 et tu verras:

if not (Key in ['0'..'9', ',', '.', Chr(VK_BACK), Chr(VK_DELETE)]) then
Key := #0;
if Key = '.' then
Key := ',';

un dernier point, comme toutes les personnes qui t'ont répondu avant moi, je sens que tu ne fais aucun effort avant de postuler sur ce forum! Alors que ce dernier est fait pour répondre à des points techniques assez chauds et dieu sait qu'il y en a des kilos.

Alors cherche un petit tutorial pour apprendre la programmation et alors on sera toujours la pour t’aider. Bon courage !
03/08/2006, 12h19
aityahia

si j'ai bien compri nadirov voudrai décomposer une chaine de caracteres d'un edit en opérateurs et opérandes et avoir le résultat.

la il te faut une function un peut complexe pour traiter tous les cas possible ( les parenthese, les priorité des opérateur .....)

j'ai modifier ton code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
   r:double;
begin
    try
       r:=Strtofloat(edit1.texte);//attention au séparateur 
//en plus tu peut utlisé val (voir l'aide de delphi)
       r:=r*2;
   except
       r:=0;
   end;
   edit2.text:=floattostr(r);
 
end;

pour moi j'ulise ces fonction dans le onkeypresse (comme ta dit SegmentationFault):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
interface
Procedure  KeyInte(var key:char);
procedure  keydeci(var key:char);
procedure  keydeci_(var key:char;s:string);
 
implementation
procedure  keyinte;
begin
     if not (key in [#13,#8,'0'..'9']) then key:=#0;
end;
procedure  keydeci;
begin
     if (key=',') or (key='.') then key:=DecimalSeparator
     else keyinte(key);
end;
procedure  keydeci_;
begin
     if (key=',') or (key='.') then
       begin
        key:=DecimalSeparator;
        if pos(key,s)>0 then key:=#0;
       end
     else keyinte(key);
end;

et aussi j'aime bien initialisé le séparateur au '.':

Code:

DecimalSeparator:='.';

03/08/2006, 23h27
Bejaia-In

Bravo les gars, si c'est pas un forum du tonerre ça ?
On aide même ceux qui veulent (peuvent ?) pas s'aider eux-même !
voir le post du même Nadirov:
http://www.developpez.net/forums/sho...d.php?t=190341