Discussion :

[hayat2]

salut;
je veux developper une application qui resoudre une equation du second degré.Pour cela j'ai cré trois zones d'edition pour entrer les trois consts de l'equation,mais j'arrive pas à lire ces trois consts à partir des zones d'editions . Puisque je peut pas ecrir a:=edit1.text erreur Real:=string.
Est-ce que vous pouvez m'aider c'est trés urgent.
Merci d'avance.

[Andnotor]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a := StrToFloat(Edit1.Text);

[hayat2]

Merci bien Andnotor
c'est trés efficace

[hayat2]

désolé;
Mais cette instruction ne marche pas avec les valeurs avec virgules par exemple:2.3

[Cl@udius]

Salut

C'est une virgule ou un point ?

La fonction StrToFloat utilise le séparateur décimal défini dans les options régionales pour effectuer la conversion. Si tu saisis un point alors qu'elle attend une virgule (ou inversement) alors StrToFloat lève une exception EConvertError.

Assure-toi d'une saisie correcte dans les 3 Edits avec l'évènement OnKeyPress implémentée comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = '.') or (Key = ',') then
    Key := DecimalSeparator;
  if not (Key in ['0'..'9', '-', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then
    Key := #0;
  if (Key = DecimalSeparator) and
    (Pos(DecimalSeparator, TEdit(Sender).Text) <> 0) then
    Key := #0;
end;

cf. http://delphi.developpez.com/faq/?pa...propri#numbers

@+ Claudius

[hayat2]

merci beaucoup