Discussion :

[gillou026]

Bonjour

Dans mon appli, je souhaite utiliser un memo afin de rentrer des données (ce sont des distances en kms) en colonne.

Les données pourront être du style : 01.20 ou 1.230 ou 1.28 ou 10.15 ou 100.425 ou 120.4 ou 120.45 ... etc
Cela représente des kilomètres. Le format doit pouvoir être variable.

Je voudrais convertir ces données en mètres et les stocker dans un tableau d'integer. Bon stocker dans un tableau je sais faire ...

C'est convertir en mètres (entiers) que je n'arrive pas à faire ...

Il faudrait que mes données deviennent (si je les reprend dans l'ordre) :
1200 puis 1230 puis 1280 puis 10150 puis 100425 puis 120400 puis 120450 .. etc ...

Vous voyez le truc ?

Je ne sais pas s'il existe des fonctions toutes faites ou s'il faut se la construire ... Dans le 2eme cas, comment ?

Merci de votre aide.

[Cl@udius]

Salut

Tu peux utiliser la fonction StrToFloat:

Code :

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

1
2
3
4
5
6
7
var
  S: String;
  Dist: Integer;
begin
  S := '1.20';
  Dist := Trunc(StrToFloat(S) * 1000);  // Dist = 1200
end;

Attention cependant au séparateur décimal qui peux poser soucis. Voir le cas échéant le 2° paramètre de StrToFloat: FormatSettings.

@+ Claudius

[cincap]

@ gillou026, marque le post précédent en "Résolu" svp.

@+,

Cincap

[tourlourou]

Bienvenue !

Plutôt qu'un Memo, pourquoi pas un StringGrid ?

Sinon, pour convertir une chaîne en réel : StrToFloat
Puis x1000
Puis conversion en entier avec Trunc

Il est bon de prévoir les problèmes de conversion entre chaîne et réel :

Code :

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

1
2
3
4
5
6
7
8
S:=Trim(Chaine); // enlève les espaces de début et de fin
try
  R:=StrToFloat(S);
  R:=1000*R;
  I:=Trunc(R);
except
  on EConvertError do ShowMessage( 'Erreur de conversion de la valeur ' + Chaine );
end;

[EDIT = grillé... ]

[dehorter olivier]

Attention au caractère décimal utilisé dans les nombres de la chaine (, ou . ou les 2)
Idem pour celui des milliers (. en US, espace en français)...

[gillou026]

j'ai effectivement un probleme avec la virgule.

si j'utilise la virgule "," ça marche.
si j'utilise le point "." du clavier numérique : erreur !!!!!

comment faire pour que ça marche avec le "." ???

[dehorter olivier]

il faut travailler avec la variable DecimalSeparator.


2 solutions:
1 : Changer tous les caractères "faux" des nombres en texte par celui définit par DecimalSeparator(changer tous les points par des virgules)
2 : Changer le DecimalSeparator en fonction du caractère décimal utilisé pour chaque nombre.

la première solution à ma préférence

[gillou026]

heuuuu là je comprend plus rien Olivier .. lol

ça se code comment tout ça ???

[dehorter olivier]

utilises :

Code :

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

        Str := StringReplace(Str, '.', DecimalSeparator, [rfReplaceAll, rfIgnoreCase]);

Cela va remplacer tous les . par le caractère décimal utilisé pour les conversions

[gillou026]

ça marche !
c'est clair que je n'aurai pas trouvé tout seul ....

merci

[Dr.Who]

Pour gérer les séparateur de decimales :

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
function SafeStrToFloat(S: string; var E: extended): boolean;
var ODS: char;
begin
  ODS := decimalSeparator;
  try
    if pos('.', S) <> 0 then
      decimalSeparator := '.'
    else
    if pos(',', S) <> 0 then
      decimalSeparator := ',';
 
    result := TryStrToFloat(S, E);
  finally
    decimalSeparator := ODS;
  end;
end;