Discussion :

[houred]

bonjour
au cours de l'exécution de mon interface j'ai eu ce message
"débordement en virgule flottante"
mon bout de programme est celui la

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm4.Button2Click(Sender: TObject);
var delta_U,L,X,Un,Ino,cos_phi,phi,R_service,R_ambiante:real;
begin
  Un := strtofloat (form3.edit2.text);
  delta_U := strtofloat(edit3.Text);
  L := strtofloat (edit4.text);
  X := strtofloat(edit5.Text);
  cos_phi := strtofloat(edit2.text);
  phi := ArcCos(cos_phi);
  ->>R_service := ((((delta_U/100)*Un)/(sqrt(3)*Ino*L))-X*sin(phi)/cos_phi);
  edit7.text := floattostr (R_service);
  R_ambiante := R_service/(1+(X/100)*50);
  edit8.text := floattostr (R_ambiante);
end;

sachant que dans un autre pc l'exécution s'est bien déroulée et sans problème

j'ajoute autre chose dans mon pc pour écrire la virgule j'utilise la virgule du clavier alors que dans l'autre pc ou j'ai essayé la virgule s'écrit avec le point??
j'ai besoin de votre aide et merci d'avance

[petitcoucou31]

salut

La différence entre les deux pc doit venir des variables régionales de window, le caractère des séparateur décimal.

Pour régler ce problème dans delphi ,regarde avec F1 la variable DecimalSeparator. tu dois définir le '.'

bye

[houred]

désolé pour ma question mais comment faire?

[evarisnea]

comme te le suggère petitcoucou31, utilise la variable globale DecimalSeparator pour définir si c'est le point (.) ou la virgule (,) qui doit être considéré comme séparateur décimal dans ton application.

voir dans la : Comment changer le caractère décimal par défaut ?

[houred]

merci pour la reponse mais encore désolé je debute et je n'ai pas trouvé (section initialization) indiqué dans le faq cité avec le lien
est ce que c'est dans la barre de menu?

[evarisnea]

selon l'aide de delphi :

La section d'initialisation est facultative. Elle commence par le mot réservé initialization et se poursuit jusqu'au début de la section finalisation ou, en son absence, jusqu'à la fin de l'unité. La section d'initialisation contient des instructions qui sont exécutées, dans l'ordre où elles apparaissent, au démarrage du programme. Si, par exemple, vous avez défini des structures de données devant être initialisées, vous pouvez le faire dans la section d'initialisation.

Pour les unités de la liste uses de la section interface, les sections d'initialisation des unités utilisées par un client sont exécutées dans l'ordre de leur énumération dans la clause uses du client.

plus pratiquement, ton code doit ressembler à ceci : tu vas tout en bas du code de ta form principale, tu ajoutes le mot clé initialization et tu y écris le code définissant le caractère pour le séparateur décimal au sein de ton application.

Code :

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

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
26
27
28
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
initialization
  DecimalSeparator := '.';
  //ou
  DecimalSeparator := ',';
end.