Discussion :

[Coussati]

bonjour

je suis entrain de programmer un logiciel de type caisse / calculatrice

j'ai décidé d'utiliser des variable "double" pour les prix et le total, afin de gérer les centimes ...

quand je saisie un prix dans le code, j'utilise un point (qui sert de virgule)

pour afficher le total (avec un point en guise de virgule), j'utilise ce code :

Code :

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

1
2
3
 
str(total:10:2, variable_string);
mon_edit.text := variable_string;

seulement il y a un espace + le total au lieu d'avoir uniquement le total

j'ai donc opté pour un autre affichage :

Code :

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

1
2
 
mon_edit.text := FloatToStr(variable_double);

cette fois le prix s'affiche bien, il n'y a pas de point pour séparer les centimes, mais une virgule

si je souhaite laisser l'utilisateur saisir le prix depuis un Tedit, celui ci doit saisir le prix avec une virgule et non un point

ça devient confus ...

je ne suis pas contre la virgule, mais sur des tickets de caisse, on ne voit que des points, donc j'aimerais faire ainsi

quelle combinaison dois je utiliser pour avoir un affichage correcte ?

merci d'avance

[SergioMaster]

Bonjour,

Comme il ne me semble pas avoir vu de version de Delphi, j'indique ici quelque chose de D7 compatible.

j'ai décidé d'utiliser des variable "double" pour les prix et le total, afin de gérer les centimes ...

pour le prix d'accord (i.e. le litre d'essence) pour le total currency serait peut être mieux

Une solution consiste à forcer tout le programme à utiliser le Point Décimal et non ce qui est configuré dans le système (et ce bien sûr sans changer la configuration )

par exemple ainsi, directement dans le source du projet

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
 
program Project1;
 
uses
  Forms, SysUtils,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  DecimalSeparator:='.';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Puisque l'on est sur des valeur monétaires, utiliser FloatToStr(variable_double); pour un Currency n'est pas une bonne idée
en effet FloatToStr(24.1256) donnera 24.1256 au lieu de, à priori, 24.13
pour la monnaie (currency) tout comme le point décimal on peut modifier le signe à utiliser via CurrencyString

Code :

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

1
2
CurrencyString:=''; //pour ne pas en avoir
CurrencyString:='EUR'; // etc....

de même que la position de cette dernière via CurrencyFormat

0 = Before amount
1 = After amount
2 = Before amount with space
3 = After amount with space

il vaut mieux écrire au choix !

Code :

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

1
2
3
4
5
6
7
8
 
// si variable_double= 24.1256
MonEdit.Text:=Format('%3.2f',[variable_double]);                      24.13
MonEdit.Text:=FloatToStrF(variable_double, ffCurrency, 10, 2)    24.13
// currencyString:='EUR'
// CurrencyFormat:=2; 
MonEdit.Text:=format('%m',[variable_double]);                    EUR 24.13
Monedit.Text:=CurrTostrF(Variable_Double,2);                     EUR 24.13

si je souhaite laisser l'utilisateur saisir le prix depuis un Tedit

mauvais choix que le TEdit, un TMaskEdit serait déjà un mieux ou un composant plus élaboré ne permettant que la saisie de nombre

[ShaiLeTroll]

j'utilise ce code :

Code :

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

1
2
3
 
str(total:10:2, variable_string);
mon_edit.text := variable_string;

seulement il y a un espace + le total au lieu d'avoir uniquement le total

C'est normal, tu lui indiques de "padder" sur 10 digits !
Ton Total doit être un nombre à 6 chiffres avant la virgule avec le point plus deux chiffres après la virgule, cela fait 9 caractères, plus l'espace au début, cela fait bien 10 !

Teste 15 tu auras 6 espaces

Code :

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

1
2
 
str(total:15:2, variable_string);

Teste 0 tu n'auras aucun espace

Code :

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

1
2
 
str(total:0:2, variable_string);

Sinon, c'est une VIEILLE syntaxe qu'il ne faut plus utiliser avec les Delphi Unicode !
Le Format permet exactement la même chose comme la si bien montrer SergioMaster

Mais j'ajouterais l'utilisation de TFormatSettings qui permet de forcer ponctuellement le séparateur de milliers, de choisir le point comme séparateur décimal au lieu de la virgule

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
var
  variable_string: string;
  Total: Double;
  FS: TFormatSettings;
begin
  total := 123456.78901;
  str(total:15:2, variable_string);
  ShowMessage('str:15:2 : "' + variable_string + '"');
 
  ShowMessage('DecimalSeparator Locale : "' + Format('%.2f', [total]) + '"');
 
  FS := TFormatSettings.Create();
  FS.DecimalSeparator := '.';
  ShowMessage('DecimalSeparator . : "' + Format('%.2f', [total], FS) + '"');
end;

[Andnotor]

cette fois le prix s'affiche bien, il n'y a pas de point pour séparer les centimes, mais une virgule

si je souhaite laisser l'utilisateur saisir le prix depuis un Tedit, celui ci doit saisir le prix avec une virgule et non un point

ça devient confus ...

Normalement pas.
Le "." du numpad correspond au code VK_DECIMAL et est interprété en fonction des réglages. L'utilisateur tapera toujours sur la même touche.

[sgmsg]

Pour se débarrasser d'un espace, faire replacestr(Chaine,' ','');
Pour s'assurer d'avoir un point (ou une virgule c'est selon) replacestr(Chaine,',',',');

[Coussati]

merci à tous pour votre aide

@SergioMaster tes exemples m'ont pas mal aidé


@ShaiLeTroll je n'avais pas bien capté cette histoire de digit, maintenant je saisie mieux

concernant ton code, sous delphi 7 il faut retirer "FS := TFormatSettings.Create();"


@Andnotor je sais bien, mais tout les pc n'ont pas forcément le numpad à droite, et donc peut utiliser la touche point ou virgule

après on peut mettre une petite protection pour transformé, mais je cherchais la meilleure formule


@sgmsg j'avais déjà essayé ce genre de formule pour supprimer les espaces, mais ça ne fonctionnait pas

[sgmsg]

Pour effacer des caractères

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
function EffaceCars(const Chaine:string; Caracteres:TSysCharSet=['+'..'.','0'..'9']):string;
//ShaiLeTroll 20130505
var Len, I, J : integer;
begin
  Len := Length(Chaine);
  SetLength(Result, Len);
  J := 0;
  for I := 1 to Len do
  begin
    if not (Chaine[i] in Caracteres) then
    begin
      inc(J);
      Result[J] := Chaine[i];
    end;
  end;
  SetLength(Result, J);
end;

Pour remplacer des caractères

Code :

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

1
2
3
4
5
6
7
8
9
function RemplaceCars(const Chaine:string; Caracteres:TSysCharSet=['+'..'.','0'..'9'];Par:Char=':'):string;
//ShaiLeTroll 20130505
var Len, I : integer;
begin
    Len := Length(Chaine);
    Result:=chaine;
    for I := 1 to Len do if (Chaine[i] in Caracteres) then
       Result[i] := Par;
end;

A+