Discussion :

[looping]

bonjour,

je dois importer des fichier CSV dans des bases paradox.
certain champ dans le fichier CSV sont des nombre (float) qui ont pour symbole décimal le point.
j'a remarqué que lors de l'import ca ne fonctionne pas si le symbole décimal definit dans les paramètre du PC est la virgule

Est ce qu'il y a un moyen de sursoir au paramètre du PC et de faire en sorte que le point fonctionne ?

merci

[Just-Soft]

Salut;

Tu peux toujours les importer comme étant text "string" sans te soucier du point décimal, puis dans un second lieu les traiter.

[tourlourou]

tu dois pouvoir changer la valeur DecimalSeparator pour arranger les choses

[ShaiLeTroll]

Même principe que Just-Soft, tu récupère la valeur en chaine puis tu utilise cette fonction pour transformer la chaine en nombre à virgule !

Code :

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

1
2
3
4
5
6
7
8
9
var
  FormatSettings: TFormatSettings;
begin
  // Le séparateur décimal est le point "." et non pas la virgule.
  GetLocaleFormatSettings(0, FormatSettings);
  FormatSettings.DecimalSeparator := '.';
  Result := StrToFloat(Value, FormatSettings);
  ...
end;

ou pour un vieux delphi n'ayant pas FormatSettings

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
function CheckDecimalSeparator(const S: string): string;
begin
  Result := S;
  ReplaceChar(Result, ',', DecimalSeparator);
  ReplaceChar(Result, '.', DecimalSeparator);
end;
 
{* -----------------------------------------------------------------------------
la procédure ReplaceChar remplace dans S le caractère OldChar par le caractère NewChar
@param S chaine à modifier
@param OldChar caractère à remplacer
@parem NewChar caractère de substitution
------------------------------------------------------------------------------ }
procedure ReplaceChar(var S: string; const OldChar, NewChar: Char);
var
  i: Integer;
  p: PChar;
begin
   if OldChar = NewChar then Exit;
 
   p := @S[1];
   for i := 0 to Length(S)-1 do
   begin
      if PChar(p+i)^ = OldChar then
         PChar(p+i)^ := NewChar;
   end;
end;